Welkom op de Nederland Computer Kennisnetwerk!  
 
Zoeken computer kennis
Home Hardware Netwerken Programmering Software Computerstoring Besturingssysteem
Computer Kennis >> Software >> Microsoft Access >> Content
Hoe Gebruiker Formulieren maken met Excel 2003
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 . "

Previous: Next:
  Microsoft Access
·Hoe krijg je het Row Header te…
·Hoe maak je een Naamlijst van …
·Klikken Hoogtepunten Meerdere …
·Een Per Diem Formule voor Exce…
·Hoe de waarde altijd positief …
·Kan een BlackBerry bewerken Mi…
·How to Get Excel Waarde From A…
·Hoe te gebruiken Excel spreads…
·Hoe te Tabs in een Excel -werk…
  Related Articles
Hoe maak je een Tilde gebruiken in een W…
Hoe kan ik een Umlaut gebruiken in een W…
Hoe maak je een Holiday Nieuwsbrief op u…
Hoe maak je een viervoudige Wenskaart ma…
Hoe maak je een Tent - Fold Wenskaart Ma…
Hoe te Spelling en grammatica fouten te …
Hoe kan ik een document Zoom in Word 200…
Hoe je tekst rond een afbeelding in Word…
Hoe je de uitlijning van de tekst wijzig…
  Software Articles
·Hoe maak ik een boek Library Program Met…
·Hoe te Uitdrukkingen voor Access Build 
·Word 2007 Style Sheets Tutorial 
·Hoe de AbstractPlus View in PubMed 
·Hoe te Invoer Coördinaten in Matlab 
·Hoe maak je een Verjaardag Banner maken …
·Hoe het opzetten van Polycom 
·Over Adobe After Effects 8.0 
·How to Set Up Karaoke voor een Windows V…
Copyright © Computer Kennis http://www.nldit.com