Het creëren gebruiker formulieren in Excel 2003 maakt het invoeren van gegevens in een handomdraai . Formulieren die worden gebruikt om informatie te verzamelen en te verifiëren van een gebruiker beschermt uw werkblad tegen onnodige veranderingen en verwijderingen die gebruikers kunnen maken als ze toegang hebben tot de actuele gegevens lijst op de bijbehorende werkblad . Elke vorm die u maakt verschillende informatie aan te vragen en te verzamelen , maar als je eenmaal de Visual Basic for Applications ( VBA ) code voor degene die je kunt bouwen en aanpassen van enige vorm in Excel 2003 te leren . Wat je nodig hebt Microsoft Office Excel 2003 Toon Meer Aanwijzingen 1 In het menu , ga naar " Macro " " Tools" en vervolgens op " Visual Basic Editor ' of druk op ' Alt ' + " F11 " om de Visual Basic Editor te openen . Open de " Main" menu, selecteer " Insert " en klik "User Form" om een nieuw UserForm -object te creëren . Kopen van 2 Plaats een TextBox-besturingselement en een Label control voor elke kolom in het werkblad op de vormen door te dubbelklikken op de controle of door ze uit de Toolbox naar het formulier te slepen . Vervang TextBox en Label combinatie met een ComboBox controle als u wenst om de gebruiker te presenteren met een lijst met opties om uit te kiezen voor het veld in plaats van een tekstvak . 3 Wijs de juiste veldnaam eigenschappen om de tekst en keuzelijsten door het intikken van het corresponderende veldnamen in de naam Property lijn in zijn venster bijbehorende woning . Wijzig Onderschrift Eigenschappen om een gebruiksvriendelijke weergave naam tegelijk . 4 Dubbelklik op het " deCommandButton " controle-instrument vier keer aan de Eerste , Vorige , Volgende en Laatste knoppen toe te voegen aan uw formulier . Typ hun namen in de Bijschrift Property lijn in hun overeenkomstige eigendom ramen. 5 Sleep een TextBox-besturingselement op het formulier in tussen de vorige en volgende controles . Type " RowNumber " in zijn Naam Property lijn . Type " 2 " op de tekst Property lijn . 6 Klik of sleep drie extra CommandButton besturingselementen op het formulier . Type " Save ", "Annuleren" en " toevoegen " op hun corresponderende Naam Property lijnen . Stel de eigenschap Enabled op False op Opslaan en Annuleren opdrachtknoppen wanneer u de naam Eigenschappen typen . 7 Schik uw besturingselementen en labels , pas dan de grootte van de gebruiker vormen met de klik en sleep methode totdat u zeker weet dat het formulier is eenvoudig te gebruiken en een lust voor een gebruiker . 8 Voeg eventuele extra tekstvakken en stel zo nodig voor extra functionaliteit en de aantrekkingskracht van hun eigenschappen . een vorm titel vak wordt aangeraden . 9 Vul dit GetData routine in de code -venster VBA vervangen van uw kolomnamen ( veldnaam eigenschappen ) en typen gegevens met het monster CustomerId , CustomerName , City, State , Zip en Toevoegingsdatum kolomnamen : < br > " Private Sub GetData ( ) Dim r As Long Als IsNumeric ( RowNumber.Text ) dan r = CLng ( RowNumber.Text ) < br Else clearData MsgBox " Illegal rijnummer " Exit Sub End Als Als r > > ; 1 En r < = LastRow dan CustomerId.Text = FormatNumber ( Cells ( r , 1 ) , 0 ) CustomerName.Text = Cells ( r , 2 ) op City.Text = Cells ( r , 3 ) State.Text = Cells ( r , 4 ) Zip.Text = Cells ( r , 5 ) op DateAdded.Text = FormatDateTime ( Cells ( r , 6 ) , vbShortDate ) op Twitter DisableSave ElseIf r = 1 dan clearData Else clearData MsgBox " Invalid rijnummer " End Als End Sub " Type 10 dit clearData routine in de VBA . code venster Vervang uw kolomnamen ( veldnaam eigenschappen ) met het monster CustomerId , CustomerName , City, State , Zip en Toevoegingsdatum kolomnamen : " Private Sub clearData ( ) CustomerId.Text = " " CustomerName.Text = " " City.Text = " " State.Text = " AK " Zip.Text = " " DateAdded.Text = " " End Sub " Type 11 deze constante LastRow opdracht in het venster VBA-code : " Const LastRow = 20 " Type 12 deze DisableSave routine in het venster VBA-code : " Private Sub DisableSave ( ) CommandButton5.Enabled = False < br > CommandButton6.Enabled = False End of Sub " Type 13 deze routine genaamd RowNumber_Change in het venster VBA-code : " Private Sub RowNumber_Change ( ) GetData End of Sub " 14 Stel de juiste evenement commando door het volgende in het venster VBA-code : " RowNumber . Text = " 2 " " 15 Stel de knoppen Vorige en Volgende codes door het volgende in het venster VBA-code : " Private Sub CommandButton2_Click ( ) op Dim r As Long Als IsNumeric ( RowNumber.Text ) dan r = CLng ( RowNumber.Text ) op r = r ? 1 Als r > 1 En r < = LastRow Dan RowNumber.Text = FormatNumber ( r , 0 ) Eind Als End Als End Sub " Type 16 deze LastRow constante variabele code in de VBA-code venster : " Private Sub UserForm_Initialize ( ) op GetData End Sub " Type 17 deze FindLastRow ( ) routine in het venster VBA-code : " Private Function FindLastRow ( ) op Dim r As Long r = 2 Doe terwijl r < 65536 En Len ( Cells ( r , 1 ) . Text ) > 0 r = r + 1 Loop FindLastRow End Function = r " Type 18 deze UserForm_Initialize gebeurtenissen in het venster VBA- code : " LastRow = FindLastRow Private Sub CommandButton4_Click ( ) op LastRow = FindLastRow - 1 RowNumber.Text = FormatNumber ( LastRow , 0 ) op Twitter end Sub " 19 Typ de PutData routine in de code -venster verandert de kolom steekproef namen en locaties op uw werkblad overeenkomen : " Private Sub PutData ( ) op Dim r As Long Als IsNumeric ( RowNumber.Text ) op = CLng ( RowNumber.Text ) op Else MsgBox " Illegal rij dan r nummer " Exit Sub End Als Als r > 1 En r < LastRow dan Cells ( r , 1 ) = CustomerId . tekst Cellen ( 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 MsgBox " Ongeldige rijnummer " End Als End Sub " Type 20 deze toevoegen van gegevens routine in het venster code : " Private Sub CommandButton7_Click ( ) op RowNumber.Text = FormatNumber ( LastRow , 0 ) End Sub " Type 21 deze data Valideren routine in het code-venster : " Private Sub CustomerId_KeyPress ( ByVal KeyAscii Zoals MSForms.ReturnInteger ) op Twitter Als KeyAscii < Asc ( " 0 " ) Of KeyAscii > Asc ( " 9 " ) dan KeyAscii = 0 End Als End Sub " 22 Vul dit Exit event code in het venster VBA-code : " private Sub DateAdded_Exit ( ByVal Cancel As MSForms.ReturnBoolean ) op Twitter Als Niet IsDate ( DateAdded.Text ) dan DateAdded.BackColor = & HFF & MsgBox " Illegal date waarde " Cancel = True Else DateAdded.BackColor = & H80000005 End Als End Sub " < br > Type 23 deze combo box lijst gegevens in het venster code : " Private Sub AddStates ( ) State.AddItem " AK " Staat . AddItem "AL " State.AddItem " AR " State.AddItem " AZ " End of Sub " Type 24 deze het gebruikersinterface Vorm opdrachten om in de VBA-code venster : " Public Sub ShowForm ( ) UserForm1.Show vbModal End Sub " 25 beoordeling en tekst uw formulier instructies en codering door het selecteren van " Run" van de " Main Visual Basic for Applications Menu . "
|