Προσθέτοντας ένα VBA CommandButton με τον αντίστοιχο κώδικα

Η προσθήκη ενός VBA CommandButton με τον αντίστοιχο κώδικα δεν είναι μια πολύπλοκη εργασία. Απλώς απαιτεί λίγη γνώση του Excel και των μακροεντολών. Με το VBA, τα κουμπιά μπορούν να επικαλούνται τις μακροεντολές, να εμφανίζουν τα μηνύματα και να εκτελούν άλλες λειτουργίες. Χρησιμοποιήστε το VBA inorder για να προσθέσετε περισσότερες λειτουργίες στα φύλλα εργασίας του Excel χωρίς να έχετε γνώση των τεχνικών λεπτομερειών των ιδιοτήτων του VBA CommandButton ή των λειτουργιών όπως το κλικ του VBA CommandButton . Αντιγράψτε τον κώδικα στην αντίστοιχη ενότητα και επιβεβαιώστε ότι το κουμπί είναι ενεργό. Κάποιος μπορεί να αυξήσει τη λειτουργικότητα των φύλλων εργασίας προσθέτοντας ένα VBA CommandButton με τον αντίστοιχο κώδικα . Το λογισμικό του Office είναι σαφώς πιο ανεπτυγμένο από ποτέ.

Επικολλήστε αυτά τα δύο τμήματα του κώδικα σε μια γενική ενότητα (για παράδειγμα την Ενότητα1).

 Sub CreateButton () Dim Obj ως αντικείμενο Dim Code ως φύλλα συμβολοσειράς ("Sheet1") Επιλέξτε 'Create button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = False, Left: = 200, Top: = 100, Πλάτος: = 100, Ύψος: = 35). macro code = "Sub ButtonTest_Click ()" & vbCrLf Κωδικός = Κωδικός & "Κλήση κλήσης" & Κωδικός vbCrLf = Κωδικός & "End Sub" Προσθήκη macro στο τέλος της ενότητας φύλλων Με ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, End Code Με End Sub Sub Tester () MsgBox "Έχετε κάνει κλικ στο κουμπί δοκιμής" End Sub 

Κατεβάστε:

  • Διακομιστής 1: Παράδειγμα.xls
Προηγούμενο Άρθρο Επόμενο Άρθρο

Οι Καλύτερες Συμβουλές