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 < p > 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 < p > 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 :
< p > " 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 < p > 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 < br >
Cells ( r, 5) = Zip.Text
Cells ( r, 6) = DateAdded.Text
DisableSave
Else
< p > 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
< p > 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
" < br >
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 < p > recensione e testo le istruzioni del modulo di codifica e selezionando "Esegui " dal "Main Visual Basic for Applications Menu ".
