1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ανοίξετε το παράθυρο επεξεργασίας VB . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα ενότητα 2
Δημιουργήστε μια διαδικασία ρουτίνας με την προσθήκη του παρακάτω κώδικα : .
Private Sub checkForBlankCell ( )
Η 3
Δημιουργήστε μια μεταβλητή Ακέραιος και να του δώσετε μια τιμή 1 :
Dim X As Integer
X = 1
Η 4
Προσθέστε τα στοιχεία για τις δέκα πρώτες σειρές της Α1 : .
Range ( "A1" ) Επιλέξτε
ActiveCell.FormulaR1C1 = " 1"
Range ( " A2 " . ) Επιλέξτε
ActiveCell.FormulaR1C1 = " 2 "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα