Πώς να Τοποθετήστε μια εικόνα διαλόγου στο Excel 2007 VBA

Microsoft Excel 2007 είναι περισσότερο από γραμμές και στήλες των δεδομένων . Πανίσχυρα εργαλεία που περιλαμβάνουν τύπους , συναρτήσεις , γραφήματα , συγκεντρωτικοί πίνακες και το φιλτράρισμα . Επιπλέον , Excel έρχεται με τη δική του γλώσσα προγραμματισμού , Visual Basic for Applications ( VBA ) . Όταν καταγράφετε μια μακροεντολή , πίσω από τα παρασκήνια , το Excel μετατρέπει τις πληκτρολογήσεις σας σε κώδικα VBA . Με το Visual Basic Editor , μπορείτε να επεξεργαστείτε ηχογραφημένης κώδικα και γράψε τη δική σου . Χρησιμοποιήστε VBA να δώσει το έργο σας μια επαγγελματική άκρη. Δημιουργήστε ένα προσαρμοσμένο παράθυρο διαλόγου , τότε το φόρεμα με την εικόνα της επιλογής σας . Οδηγίες
Δημιουργία φόρμας χρήστη
Η 1 φόρμας χρήστη σας μπορεί να περιλαμβάνει μια εικόνα από τα λουλούδια στον κήπο .

Ανοίξτε το Visual Basic Editor. Κάντε κλικ στο " Visual Basic" στην ενότητα " κώδικας" της καρτέλας "Προγραμματιστής " . 2

Επιλέξτε Προβολή > Εξερεύνηση έργου από το μενού , στη συνέχεια, επιλέξτε Προβολή > Ιδιότητες .

με 3

Επιλέξτε Insert > UserForm από το μενού . Θα δείτε μια κενή φόρμα χρήστη και την εργαλειοθήκη ελέγχου .
Η 4

Προσθέστε ένα πλαίσιο κειμένου στη φόρμα . Στην Εργαλειοθήκη ελέγχου , αιωρείται πάνω από τα εικονίδια για να βρείτε το πλαίσιο κειμένου , το οποίο μοιάζει με " ab ". Κάντε κλικ στο εικονίδιο . Κάντε κλικ στη φόρμα του χρήστη να θέσει το πλαίσιο κειμένου στη φόρμα , τοποθετώντας το στα δεξιά για να αφήσει χώρο για μια ετικέτα , και αφήνοντας περιθώρια πάνω και κάτω .
5

Προσθήκη ετικέτας στη φόρμα . Βρείτε " Ετικέτα " στην εργαλειοθήκη ( μοιάζει με ένα μεγάλο Α) . Χρησιμοποιώντας την ίδια μέθοδο , τοποθετήστε μια ετικέτα στα αριστερά του πλαισίου κειμένου .
Η 6

Προσθέστε δύο κουμπιά εντολών . Βρείτε " CommandButton " στην εργαλειοθήκη . Χρησιμοποιήστε την ίδια διαδικασία για να τοποθετήσετε δύο κουμπιά εντολών δίπλα-δίπλα στο κάτω μέρος της φόρμας .
Η

7 Κάντε κλικ στην ετικέτα στη φόρμα του χρήστη . Στο παράθυρο Ιδιότητες , δίπλα στο " Λεζάντα " αλλαγή " Label1 " στο "Enter Name ".
8

Κάντε κλικ στο πλαίσιο κειμένου στη φόρμα του χρήστη . Στο παράθυρο Ιδιότητες , δίπλα στο " ( Name ) , " αλλαγή " TextBox1 " σε " Name_txt . "
Η

9 Κάντε κλικ στο πρώτο κουμπί εντολής στη φόρμα του χρήστη . Στο παράθυρο Ιδιότητες , δίπλα στο " ( Name ) , " αλλαγή " CommandButton1 " σε " OK_btn . " Δίπλα στο " Λεζάντα " αλλαγή " CommandButton1 " στο " OK".

10

Κάντε κλικ στο δεύτερο κουμπί εντολής στη φόρμα του χρήστη . Στο παράθυρο Ιδιότητες , δίπλα στο " ( Name ) , " αλλαγή " CommandButton2 " σε " Cancel_btn . " Δίπλα στο " Λεζάντα " αλλαγή " CommandButton2 " στο " Άκυρο ".
Η 11

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

Κάντε κλικ στο στοιχείο ελέγχου εικόνας που διατίθενται στην φόρμα του χρήστη . Στο παράθυρο Ιδιότητες , δίπλα στο "Picture ", κάντε κλικ στους τρεις τελείες ( ... ) σχετικά με το δικαίωμα . Αναζητήστε μια εικόνα που έχει αποθηκευτεί στον υπολογιστή σας , όπως C : \\ Users \\ Public \\ Pictures \\ Δείγμα Pictures \\ garden.jpg για μια επίδειξη της πορτοκαλί λουλούδια .
Η 13 Κάντε διπλό κλικ στην επιλεγμένη εικόνα .

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

14 Φτιάξτε μια λίστα με ονόματα στο υπολογιστικό φύλλο του Excel .

Κάντε διπλό κλικ στο κουμπί " ΟΚ " στη φόρμα του χρήστη να ανοίξει ένα παράθυρο κώδικα . Θα δείτε την αρχή και το τέλος καταστάσεις για την υπορουτίνα
Η

15 Προσθήκη κώδικα μεταξύ του " Private Sub " και " End Sub" δηλώσεις , έτσι ώστε να έχει ως εξής : .

Private Sub OK_btn_Click ( )

Dim LastRow Όπως Long

LastRow = Φύλλα εργασίας ( " Sheet1" ) . Range ( " A65536 " ) . Τέλος ( xlUp ) . Σειρά + 1

κύτταρα ( LastRow , 1 ) . Value = Name_txt

End Sub

Αυτός ο κωδικός τοποθετεί το όνομα από το πλαίσιο κειμένου στο κελί A1 στο υπολογιστικό φύλλο του Excel . Κάθε φορά που ο χρήστης εισάγει ένα νέο όνομα και κάνει κλικ στο " OK ", θα προστεθεί κάτω .
Τετάρτη 16

Κάντε διπλό κλικ UserForm1 Στο παράθυρο του έργου . Κάντε διπλό κλικ στο κουμπί ακύρωσης . Στο παράθυρο κώδικα , προσθέστε κώδικα μεταξύ " Private Sub " και " End Sub" , έτσι ώστε η ρουτίνα έχει ως εξής :

Private Sub Cancel_btn_Click ( )

UserForm1.Hide

End Sub

ο κωδικός αυτός αποκρύπτει το παράθυρο διαλόγου όταν ο χρήστης κάνει κλικ στο " Άκυρο ".
Η 17

εκτελέσει τη ρουτίνα . Επιλέξτε Run > Run Sub /UserForm από το μενού . Θα επιστρέψετε στο Excel και να δείτε το παράθυρο διαλόγου , συμπεριλαμβανομένων των επιλεγμένων εικόνα σας .
Η 18

Πληκτρολογήστε ένα όνομα στο πλαίσιο κειμένου και κάντε κλικ στο "OK". Θα δείτε το όνομα στο κελί A1 . Πληκτρολογήστε ένα άλλο όνομα και κάντε κλικ στο "OK". Θα δείτε το όνομα στο κινητό Α2 .
Η 19

Κάντε κλικ στο " Ακύρωση" για να αποκρύψετε το παράθυρο διαλόγου .
Η
εικόνων