Πώς να δημιουργήσετε φόρμες χρήστη Με το Excel 2003

Δημιουργία φόρμες χρήστη στο Excel 2003 κάνει την εισαγωγή δεδομένων ένα αεράκι . Έντυπα που χρησιμοποιούνται για τη συλλογή και την επαλήθευση πληροφοριών από έναν χρήστη την προστασία του φύλλου εργασίας σας από περιττές αλλαγές και τις διαγραφές που οι χρήστες θα μπορούσαν να κάνουν αν τους δοθεί πρόσβαση στην πραγματική λίστα δεδομένων στο αντίστοιχο φύλλο εργασίας . Κάθε μορφή που δημιουργείτε θα ζητήσει και να συγκεντρώσει διάφορες πληροφορίες , αλλά μόλις μάθετε τη Visual Basic for Applications ( VBA) για ένα μπορείτε να δημιουργήσετε και να προσαρμόσετε οποιαδήποτε μορφή στο Excel 2003 . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel 2003
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Στο μενού " Εργαλεία" , επιλέξτε " Macro " και στη συνέχεια κάντε κλικ στο κουμπί " Επεξεργασία Visual Basic " ή πατήστε το πλήκτρο " ALT " + " F11 " για να ανοίξει το Visual Basic Editor. Ανοίξτε το μενού " Main " , επιλέξτε "Εισαγωγή " και κάντε κλικ στο " Φόρμας Χρήστη " για να δημιουργήσετε ένα νέο αντικείμενο UserForm . 2

Τοποθετήστε ένα στοιχείο ελέγχου πλαισίου κειμένου και ελέγχου ετικέτας για κάθε στήλη στο φύλλο εργασίας σας πάνω στο σχηματίζουν με διπλό κλικ τον έλεγχο ή μεταφέροντάς τους από την εργαλειοθήκη στη φόρμα . Αντικαταστήστε οποιοδήποτε συνδυασμό TextBox και Label με σύνθετο πλαίσιο ελέγχου εάν θέλετε να παρουσιάσετε στο χρήστη μια λίστα επιλογών για να επιλέξετε από το πεδίο και όχι ένα πλαίσιο κειμένου .
Εικόνων 3

Εκχώρηση τη σωστή πεδίου ιδιοτήτων όνομα στο κείμενο και τα σύνθετα πλαίσια πληκτρολογώντας τις αντίστοιχες ονόματα των πεδίων δεδομένων στη γραμμή όνομα Ακίνητα σε αντίστοιχο παράθυρο ιδιοτήτων του. Αλλαγή λεζάντας Ακίνητα σε έναν φιλικό προς το χρήστη εμφανιζόμενο όνομα την ίδια στιγμή .
Η

4 Κάντε διπλό κλικ στο " CommandButton " εργαλείο ελέγχου τέσσερις φορές για να προσθέσετε το πρώτο , Προηγούμενο , Επόμενο και Τελευταία κουμπιά στη φόρμα σας . Πληκτρολογήστε τα ονόματά τους στη γραμμή Λεζάντα Ακίνητα στην αντίστοιχη παράθυρα ιδιοτήτων τους .
5

Σύρετε ένα στοιχείο ελέγχου πλαισίου κειμένου στη φόρμα ανάμεσα στα Προηγούμενο και Επόμενο ελέγχους . Πληκτρολογήστε " RowNumber " στη γραμμή Όνομα του ακινήτου . Πληκτρολογήστε " 2 " στη γραμμή Ακίνητα κειμένου .
Η 6

Κάντε κλικ ή σύρετε τρία επιπλέον ελέγχους CommandButton στη φόρμα . Πληκτρολογήστε " Αποθήκευση ", " Cancel" και "Προσθήκη" σε αντίστοιχες γραμμές Όνομα ακινήτου τους . Ρυθμίστε την ιδιότητα Enabled στην τιμή False για την Αποθήκευση και Άκυρο κουμπιά εντολών όταν πληκτρολογείτε το όνομα Properties .
Η 7

Τακτοποίηση ελέγχους και τις ετικέτες σας , στη συνέχεια, να ρυθμίσετε το μέγεθος της φόρμας χρήστη με το πάτημα και τη μέθοδο drag έως ότου είστε βέβαιοι ότι η φόρμα είναι εύκολο στη χρήση και ευχάριστο για έναν χρήστη .
8

Προσθέστε τυχόν πρόσθετα πλαίσια κειμένου και να ορίσετε τις ιδιότητές τους, όπως απαιτείται για πρόσθετη λειτουργικότητα και την έφεση. ένα κουτί τίτλου μορφή συνιστάται .
Η 9

Πληκτρολογήστε αυτήν την ρουτίνα GetData στο παράθυρο κώδικα VBA αντικαθιστώντας τα ονόματα των στηλών σας ( όνομα πεδίου ιδιότητες ) και τους τύπους δεδομένων με το Αρ. Πελάτη δείγματος , ΌνομαΠελάτη , Πόλη , Νομός, Τ.Κ. DateAdded και τα ονόματα στηλών :

" Private Sub GetData ( )

Dim r Όπως Long

Εάν IsNumeric ( RowNumber.Text ) Στη συνέχεια

r = CLng ( RowNumber.Text )

Else

ClearData

MsgBox " Παράνομη αριθμό γραμμής "

Exit Sub

End If

Εάν r > ? 1 και r <= LastRow τότε

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

CustomerName.Text = Cells ( r , 2 )

City.Text = Cells ( r , 3 )

State.Text = Cells ( r , 4 )

Zip.Text = Cells ( r , 5 )

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

DisableSave

ElseIf r = 1 τότε

ClearData

Else

ClearData

MsgBox " Μη έγκυρος αριθμός σειράς "

End If

End Sub "

10

Πληκτρολογήστε αυτήν τη ρουτίνα ClearData στην VBA . παράθυρο κώδικα Αντικαταστήστε τα ονόματα των στηλών σας ( ακίνητα όνομα πεδίου ) με τον Αρ. Πελάτη δείγματος , ΌνομαΠελάτη , Πόλη , Νομός, Τ.Κ. DateAdded και τα ονόματα στηλών :

" Private Sub ClearData ( )

CustomerId.Text = " "

CustomerName.Text = " "

City.Text = " "

State.Text = " AK "

Zip.Text = " "

DateAdded.Text = " "

End Sub "

11

Πληκτρολογήστε αυτήν τη σταθερή εντολή LastRow στο παράθυρο κώδικα VBA :

" Const LastRow = 20 "

12

Πληκτρολογήστε αυτήν την ρουτίνα DisableSave στο παράθυρο κώδικα VBA :

" Private Sub DisableSave ( )

CommandButton5.Enabled = False

CommandButton6.Enabled = False

End Sub "

13

Πληκτρολογήστε αυτό που ονομάζεται ρουτίνα RowNumber_Change στο παράθυρο κώδικα VBA :

" Private Sub RowNumber_Change ( )

GetData

End Sub "

14

Επιλέξτε την κατάλληλη εντολή εκδήλωση πληκτρολογώντας αυτό στο παράθυρο κώδικα VBA :

" RowNumber . Text = " 2 " "
Η 15

Ρυθμίστε τις Προηγούμενο και Επόμενο κωδικούς κουμπιά , πληκτρολογώντας αυτό στο παράθυρο κώδικα VBA :

" Private Sub CommandButton2_Click ( )

Dim r Όπως Long

Αν IsNumeric ( RowNumber.Text ) Στη συνέχεια

r = CLng ( RowNumber.Text )

r = r ; 1

Εάν r > 1 και r <= LastRow Τότε

RowNumber.Text = FormatNumber ( r , 0 )

End If End

Αν

End Sub "

16

Πληκτρολογήστε αυτό LastRow σταθερή μεταβλητή κώδικα στο παράθυρο κώδικα VBA :

" Private Sub UserForm_Initialize ( )

GetData

End Sub "

17

Πληκτρολογήστε αυτό FindLastRow ( ) ρουτίνα στο παράθυρο κώδικα VBA :

" Private FindLastRow Function ( )

Dim r Όπως Long

r = 2

Do Ενώ r <65536 Και Len ( Cells ( r , 1 ) . κειμένου) > 0

r = r + 1

Loop

FindLastRow = r

End Function "
Η 18

Πληκτρολογήστε τα γεγονότα αυτά UserForm_Initialize στο παράθυρο κώδικα VBA :

" LastRow = FindLastRow

Private Sub CommandButton4_Click ( )

LastRow = FindLastRow - 1

RowNumber.Text = FormatNumber ( LastRow , 0 )

End Sub "

19

Πληκτρολογήστε τη ρουτίνα PutData στο παράθυρο κώδικα αλλαγή των δειγμάτων ονόματα των στηλών και θέσεις για να ταιριάζουν με το φύλλο εργασίας σας :

" Private Sub PutData ( )

Dim r Όπως Long

Αν IsNumeric ( RowNumber.Text ) Στη συνέχεια

r = CLng ( RowNumber.Text )

υπόλοιπα

MsgBox " Παράνομη σειρά αριθμός "

Exit Sub

End If

Εάν r > 1 και r

Cells ( r , 1 ) = Αρ. Πελάτη . κείμενο

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 " Μη έγκυρος αριθμός σειράς "

End If

End Sub "
20

Πληκτρολογήστε αυτό Προσθέτοντας δεδομένων ρουτίνας στο παράθυρο κώδικα :

" Private Sub CommandButton7_Click ( )

RowNumber.Text = FormatNumber ( LastRow , 0 )

End Sub"

21

Πληκτρολογήστε αυτήν τη ρουτίνα επικύρωση των στοιχείων στο παράθυρο κώδικα :

" Private Sub CustomerId_KeyPress ( ByVal KeyAscii Όπως MSForms.ReturnInteger )

Εάν KeyAscii Asc ( " 9 ") Στη συνέχεια

KeyAscii = 0

End If

End Sub "

22

Πληκτρολογήστε αυτόν τον κωδικό περίπτωση εξόδου στο παράθυρο κώδικα VBA :

" Private Sub DateAdded_Exit ( ByVal Cancel As MSForms.ReturnBoolean )

If Not IsDate ( DateAdded.Text ) Στη συνέχεια

DateAdded.BackColor = & Ε.Π.Ο. &

MsgBox " Παράνομη ημερομηνία αξία "

Cancel = True

Else

DateAdded.BackColor = & H80000005

End If

End Sub "

23

Πληκτρολογήστε τα στοιχεία αυτά σύνθετο πλαίσιο λίστας στο παράθυρο κώδικα :

" Private Sub AddStates ( )

State.AddItem " AK "

μέλος . AddItem " AL "

State.AddItem " AR "

State.AddItem "AZ "

End Sub "

24

Πληκτρολογήστε αυτές Εμφάνιση φόρμας του χρήστη εντολές στο παράθυρο κώδικα VBA :

" ShowForm Public Sub ( )

UserForm1.Show vbModal

End Sub "

25

Αξιολόγηση και κείμενο οδηγίες μορφή και κωδικοποίηση σας επιλέγοντας " Run" από το " Main Visual Basic for Applications Menu . "
Η
εικόνων