Ξεκινήστε δημιουργώντας μια φόρμα χρήστη με την είσοδο του Visual Basic IDE ( ολοκληρωμένο περιβάλλον ανάπτυξης ) : από το φύλλο εργασίας του Excel , πατήστε το πλήκτρο "alt " - " F11 " . Δημιουργήστε μια νέα φόρμα χρήστη την πρόσβαση στο " Εισαγωγή" > " UserForm "
Drag and drop τα ακόλουθα στοιχεία ελέγχου από την εργαλειοθήκη στη φόρμα : . Δύο πλαίσια κειμένου , το δεύτερο κάτω από την πρώτη . Προσθέστε ένα κουμπί εντολής κάτω από τα πλαίσια κειμένου , και τα δύο στοιχεία ελέγχου ετικέτας , το καθένα στα αριστερά του πλαισίου κειμένου . Στο παράθυρο ιδιοτήτων , να αλλάξετε τη λεζάντα του άνω ετικέτα " Όνομα " και η λεζάντα της κάτω ετικέτα " Διεύθυνση ηλεκτρονικού ταχυδρομείου ". Αλλαγή λεζάντας του κουμπιού στο "Υποβολή ".
Εικόνων Εισάγετε τον κωδικό
Η
Τώρα γράψτε τον κωδικό που τραβάει δεδομένα από τη φόρμα και τις εντάσσει σε ένα φύλλο εργασίας .
Από το παράθυρο της φόρμας σχεδιαστή , κάντε διπλό κλικ στο κουμπί " Υποβολή" . Ο κέρσορας μετακινείται στην εκδήλωση Button1_Click , που εκτοξεύει όταν το κουμπί πατηθεί κατά τη διάρκεια της εκτέλεσης του προγράμματος
Σε περίπτωση Button1_Click , εισάγετε τον παρακάτω κωδικό του προγράμματος : .
Dim r Όπως Σειρά
Ορισμός r = Range ( " a65536 " ) . Τέλος ( xlUp )
Set r = r.Offset ( 1 , 0 )
r.Value = TextBox1.Value
Set r = r.Offset ( 0 , 1 ) = r.Value TextBox2.Value - ----------------------------- -----------
Γράψτε μια μικρή ρουτίνα που να εμφανίζει τη νέα φόρμα του χρήστη. Μέσα στο IDE , κάντε διπλό κλικ στο εικονίδιο ThisWorkbook στο παράθυρο Project. Στο παράθυρο κώδικα , πληκτρολογήστε το νέο υπορουτίνα :
Δημόσια MAC1 Sub ( ) UserForm1.Show
End Sub
Εκτελέστε το πρόγραμμα από το φύλλο εργασίας του Excel με τη μετάβαση σε προγραμματιστή> μακροεντολές , επιλέγοντας « MAC1 " και πατώντας το κουμπί " Run" . Πληκτρολογήστε ορισμένα δεδομένα του φύλλου εργασίας με φόρμα του χρήστη .
Η Εξερευνήστε το Πρόγραμμα
Η
Η πρώτη γραμμή της Button1_Click δηλώνει μια μεταβλητή σειράς . Μια σειρά είναι μια σειρά από κελιά φύλλου εργασίας. . . Θα εισάγετε τα δεδομένα σε αυτή την περιοχή με τους ακόλουθους κωδικούς τοΧαμηλόςπρόταση
Η δήλωση Set r = Range ( " a65536 ") End ( xlUp ) ορίζει μια σειρά από ένα κύτταρο : το αριστερό κελί του προηγούμενη σειρά των δεδομένων. Αυτό δεν είναι μια διαισθητική - αναζητούν κομμάτι του κώδικα , γι 'αυτό μην ανησυχείτε αν δεν το καταλαβαίνουν με την πρώτη ματιά . Χωρίστε τη δήλωση για να δείτε πώς λειτουργεί . Το Range ( " a65536 " ) τμήμα προσδιορίζει με σαφήνεια το κύτταρο a65536 - τρόπο στο κάτω μέρος της πρώτης στήλης στο φύλλο εργασίας . Το επόμενο κομμάτι , End ( xlUp ) , είναι μια άλλη σειρά : αυτό είναι που βρίσκεται ο δρομέας σας θα καταλήξετε αν το είχε αρχικά στο κελί a65536 , πιέζεται το πλήκτρο τερματισμού , και στη συνέχεια πίεσε το πάνω βέλος
Αν ήσουν . για να εισάγετε δεδομένα σε αυτό το κελί , που θα αντικαταστήσει την προηγούμενη σειρά . Γι 'αυτό θα πρέπει να έχετε την επόμενη δήλωση : Set r = r.Offset ( 1 , 0 ) . Η δήλωση αυτή επαναπροσδιορίζει το εύρος να είναι μία γραμμή προς τα κάτω ( και μηδενική στήλες προς τα δεξιά ) από εκεί που ήταν. Η σειρά " r " είναι τώρα στην πρώτη κενό κελί κάτω από οποιεσδήποτε υπάρχουσες σειρές δεδομένων . Αυτός είναι όπου κωδικό σας μπορείτε να εισαγάγετε μια νέα γραμμή δεδομένων .
Εικόνων πλήρωσης των δεδομένων από τηλέφωνο Φόρμα Εισόδου
Η
Οι επόμενες δηλώσεις να μετακινήσετε τα δεδομένα της φόρμας με το εύρος κώδικα σας, ακριβώς προσδιορίζονται ως τα πρώτα κενά κελιά κάτω από την προηγούμενη σειρά δεδομένων . r.Value = TextBox1.Value καθορίζει την αξία του κενό κελί με την τιμή από το πρώτο πλαίσιο κειμένου . Το επόμενο κελί είναι μία στήλη προς τα δεξιά , και το σύνολο r = r.Offset ( 0 , 1 ) επαναπροσδιορίζει το εύρος να είναι αυτό το κελί . Τα επιχειρήματα 0 και 1 αναφέρονται σε 0 γραμμές προς τα κάτω και 1 κελί στα δεξιά του ( "r " ) θέση της προηγούμενης σειράς του .
Πλήρωση των δύο κίονες κλείνει μια γραμμή δεδομένων . Όταν ο χρήστης κάνει κλικ στο κουμπί , η εκδήλωση Button1_Click θα εκτελέσει ξανά . Το σύνολο r = Range ( " a65536 " ) . Τέλος ( xlUp ) για άλλη μια φορά θα ρυθμιστεί σωστά το εύρος της νέας γραμμής .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα