1 Ανοίξτε την εφαρμογή της Visual Basic που χρησιμοποιείται για να δημιουργήσετε και να επεξεργαστείτε VB κώδικα και εφαρμογών που βασίζονται σε VB . 2
Δημιουργήστε ένα νέο έγγραφο VB και να κινήσει και το όνομα ενός νέα υπο - ρουτίνα? για παράδειγμα :
Sub CompileWorkbook ( )
εικόνων 3
Αποκτήστε τα φύλλα εργασίας του βιβλίου εργασίας με την προσθήκη ενός δεύτερου γραμμή κώδικα :
Sub CompileWorkbook ( ) Dim objX As Object
Η
4 Ρυθμίστε το στόχο της ρουτίνας καθορίζοντας τι θα πρέπει να κάνει συγκεκριμένα :
Sub CompileWorkbook ( ) Dim objX Όπως ObjectOn Συνέχιση Σφάλμα NextSet objX = Application.CommandBars.FindControl ( Τύπος: = msoControlButton )
5
Ορίστε τι το σενάριο θα πρέπει να κάνω αν οι ορισμοί της δεν είναι σε θέση να ανταποκριθεί με την προσθήκη μιας " If Not " επιχείρημα :
Sub CompileWorkbook ( ) Dim objX Όπως ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl ( Τύπος: = msoControlButton ) If Not objX δεν είναι τίποτα ThenobjX.ExecuteSet objX = Τίποτα
6
Κλείστε το σενάριο σύνταξη με την προσθήκη " End" δηλώσεις του κώδικα :
Sub CompileWorkbook ( ) Dim objX Όπως ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl ( Τύπος: = msoControlButton ) If Not objX δεν είναι τίποτα ThenobjX.ExecuteSet objX = NothingEnd IfEnd Sub
Η 7
Αποθηκεύστε τον κώδικα VB και να ενσωματώσετε το σενάριο στην εφαρμογή VB , όπου θα πρέπει να εκτελέσετε την κατάρτιση του βιβλίου εργασίας .
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα