Come creare form utente con Excel 2003

Creazione di moduli utente in Excel 2003 consente l'immissione dei dati un gioco da ragazzi . Forme che vengono utilizzati per raccogliere e verificare le informazioni da un utente proteggere il foglio di lavoro da variazioni e le cancellazioni non necessari che gli utenti potrebbero fare se dato accesso alla lista dei dati effettivi sul corrispondente foglio di lavoro . Ogni modulo così creata viene richiedere e raccogliere informazioni diverse, ma una volta imparato il Visual Basic , Applications Edition (VBA) per quello che si può costruire e personalizzare qualsiasi forma in Excel 2003 . Cose che ti serviranno
Microsoft Office Excel 2003
Show More Istruzioni
1

Nel menu " Strumenti " , scegliere "Macro" e quindi fare clic su " Visual Basic Editor " o premere" ALT " + " F11 "per aprire l'editor di Visual Basic. Aprire il menu "Main " , selezionare "Inserisci" e fare clic su " Modulo Utente " per creare un nuovo oggetto UserForm .
2

Inserire un controllo TextBox e un controllo Label per ogni colonna del foglio di lavoro sul formare facendo doppio clic sul controllo o trascinandoli dalla Casella degli strumenti nel form. Sostituire qualsiasi TextBox e Label combinazione con un controllo ComboBox , se si desidera presentare all'utente un elenco di opzioni tra cui scegliere per il campo , piuttosto che una casella di testo .
3

Assegnare la corretta nome di campo proprietà al testo e caselle combinate digitando i nomi dei campi del database corrispondenti nella riga Nome immobile nel suo corrispondente finestra delle proprietà . Modificare le proprietà Caption di un nome di visualizzazione user-friendly , allo stesso tempo .
4

Fare doppio clic sullo strumento di controllo " CommandButton " quattro volte per aggiungere , i pulsanti Precedente , Successivo e Ultimo primo a modulo . Digitare il proprio nome nella linea di proprietà Caption nelle loro finestre delle proprietà corrispondenti .
5

trascinare un controllo TextBox nel form tra i comandi Indietro e Avanti . Tipo " RowNumber " nel suo nome linea Proprietà . Digitare " 2 ' sulla linea di proprietà Text .
6

Fare clic o trascinare tre controlli CommandButton aggiuntivi nel form. Tipo " Save ", " Annulla " e " Aggiungi " sui loro corrispondenti Nome linee di proprietà . impostare la proprietà Enabled su false sul Salva e Annulla pulsanti di comando quando si digitano le proprietà Name .
7

Disporre i controlli e le etichette , quindi regolare le dimensioni del modulo utente con un semplice clic e metodo di trascinamento fino a quando si è sicuri che la forma è facile da usare e piacevole per un utente .
8

Aggiungere eventuali altre caselle di testo e impostare le proprietà come necessario per le funzionalità aggiuntive e di ricorso. una scatola titolo modulo è consigliato .
9

Tipo questa routine GetData nella finestra del codice VBA sostituendo i nomi colonna (campo proprietà del nome ) e tipi di dati con il campione di nomi di colonna CustomerId , CustomerName , Città , Stato, CAP e DateAdded :

" private Sub GetData ( ) per

Dim r As Long

Se IsNumeric ( RowNumber.Text ) Poi

r = CLng ( RowNumber.Text )

Else

ClearData

MsgBox " numero di riga non valido"

Exit Sub End If

Se r > , 1 e R < = LastRow Poi

CustomerId.Text = FormatNumber ( Cells ( r, 1 ) , 0 ) per

CustomerName.Text = Cells ( r, 2 ) per

City.Text = Cells ( r, 3)

State.Text = Cells ( r, 4 ) per

Zip.Text = Cells ( r, 5 ) per

DateAdded.Text = FormatDateTime ( Cells ( r , 6 ) , vbShortDate ) per

DisableSave

ElseIf r = 1 Then

ClearData

Else

ClearData

MsgBox " non valido riga numero"

End If End Sub

"
10

Tipo questa routine ClearData in VBA . finestra del codice sostituire i vostri nomi di colonna (campo proprietà del nome ) con il campione CustomerId , CustomerName , Città , Stato, CAP e nomi di colonna DateAdded :

" private Sub ClearData ( ) per

CustomerId.Text = " "

CustomerName.Text = " "

City.Text = " "

State.Text = " AK "

Zip.Text = " "

DateAdded.Text = " "

End Sub "
11

Tipo questo comando costante LastRow nella finestra del codice VBA :

"Const LastRow = 20 "
12

Tipo questa routine DisableSave nella finestra del codice VBA :

" DisableSave private Sub ( ) per

CommandButton5.Enabled = False

CommandButton6.Enabled = False

End Sub "
13

Tipo questa routine di nome RowNumber_Change nella finestra del codice VBA :

" RowNumber_Change private Sub ( ) per

GetData

End Sub "
14

il comando evento appropriato digitando questo nella finestra di codice VBA :

" RowNumber . Text = "2" "
15

precedenti e successivi codici pulsanti digitando questo nella finestra di codice VBA :

" private Sub CommandButton2_Click ( ) per

Dim r As Long

Se IsNumeric ( RowNumber.Text ) Poi

r = CLng ( RowNumber.Text ) per

r = r ? 1

Se r > 1 e R < = LastRow Poi

RowNumber.Text = FormatNumber (r , 0 ) per

End If End

Se

End Sub "
16

Tipo questo LastRow costante variabile codice nella finestra del codice VBA :

" private Sub UserForm_Initialize ( ) per

GetData

End Sub "
17

Tipo questo FindLastRow ( ) di routine nella finestra del codice VBA :

" Private Function FindLastRow ( ) per

dim r As Long

r = 2

fare mentre r < 65536 e Len ( Cells (r , 1) . Text ) > 0

r = r + 1

loop

FindLastRow = r

End Function "
18

Tipo questi UserForm_Initialize eventi nella finestra del codice VBA :

" LastRow = FindLastRow

private Sub CommandButton4_Click ( ) per

LastRow = FindLastRow - 1

RowNumber.Text = FormatNumber ( LastRow , 0 ) per

End Sub "
19

Tipo la routine PutData nella finestra del codice cambiando i nomi delle colonne di esempio e le posizioni per abbinare il vostro foglio di lavoro :

" private Sub PutData ( ) per

Dim r As Long

Se IsNumeric ( RowNumber.Text ) Poi

r = CLng ( RowNumber.Text ) per

Else

MsgBox "riga Illegal numero "

Exit Sub End If

Se r > 1 e R < LASTROW Poi

Cells ( r, 1) = IDCliente. testo

Cells ( r, 2) = CustomerName.Text

Cells ( r, 3) = City.Text

Cells ( r, 4) = State.Text

Cells ( r, 5) = Zip.Text

Cells ( r, 6) = DateAdded.Text

DisableSave

Else

MsgBox "Invalid riga numero"

End If End Sub

"
20

Tipo questa aggiunta di routine di dati nella finestra del codice :

" private Sub CommandButton7_Click ( ) per

RowNumber.Text = FormatNumber ( LastRow , 0 ) per

End Sub "
21

Tipo questa procedura Convalida dati nella finestra del codice :

" private Sub CustomerId_KeyPress ( ByVal KeyAscii Come MSForms.ReturnInteger ) per

KeyAscii < Asc ( " 0 ") o KeyAscii > Asc ( " 9 " ) Poi

KeyAscii = 0

End If End Sub

"
22

Tipo questo codice evento Exit nella finestra del codice VBA :

" private Sub DateAdded_Exit ( ByVal Cancel As MSForms.ReturnBoolean ) per

Se Non IsDate ( DateAdded.Text ) Poi

DateAdded.BackColor = & HFF &

MsgBox " data non valida valore "

Annulla = True

Else

DateAdded.BackColor = & H80000005

End If End Sub

"

23

Tipo queste caselle combinate dettagli lista nella finestra del codice :

" AddStates private Sub ()

State.AddItem " AK "

Stato . AddItem "AL"

State.AddItem " AR "

State.AddItem "AZ"

End Sub "
24

Tipo questi Visualizzazione dei comandi di modulo utente nella finestra del codice VBA :

" Public Sub ShowForm ( ) per

UserForm1.Show vbModal

End Sub "
25

recensione e testo le istruzioni del modulo di codifica e selezionando "Esegui " dal "Main Visual Basic for Applications Menu ".

• Come utilizzare la Creazione guidata Grafico in Excel 2007 
• Come fare i grafici per la previsione delle vendite in Excel