Δημιουργήστε ένα τιμολόγιο στο Excel , και να αποθηκεύσετε το αρχείο ως " Invoice.xls "
2
Εισάγετε τον αρχικό αριθμό τιμολογίου στο κελί A1 . Για παράδειγμα , εάν η αρχική αριθμός του τιμολογίου σας είναι 300 , θα γράφατε 300 στο κελί A1 .
Εικόνων 3
Πατήστε το "Alt " και τα πλήκτρα " F11 " την ίδια στιγμή . Αυτό θα ανοίξει το Visual Basic Editor .
Η 4
Στο Visual Basic editor , πατήστε το πλήκτρο " Ctrl " + " R" για να ανοίξετε το παράθυρο Project Explorer.
5
Double κάντε κλικ στη γραμμή που λέει VBA ( Invoice.xls ) . Όταν το μενού ανοίγει , κάντε διπλό κλικ στο " ThisWorkbook , " η οποία είναι μια ειδική λειτουργία σε Visual Basic λεπτομερώς πώς οι διαδικασίες σχετικά με αυτό το βιβλίο θα λειτουργήσει . Ένα παράθυρο που θα εμφανιστεί στα δεξιά .
Η 6
Πληκτρολογήστε το ακόλουθο κείμενο , ακριβώς όπως φαίνεται εδώ , στο παράθυρο στα δεξιά , χωρίς τα εισαγωγικά . Οι αλλαγές γραμμής είναι σημαντικές - αυτό θα πρέπει να εμφανιστεί στις τρεις γραμμές στο παράθυρο
" Private Sub Workbook_Open ( )
Range ( " a1 " ) α1 " . Value = Range ( ". ) . Value + 1
End Sub "
Η 7
Αποθηκεύστε και ανοίξτε ξανά το αρχείο . Κάθε φορά που το αρχείο Invoice.xls ανοίγει , ο αριθμός στο κελί Α1 θα έχουν 1 προστεθούν σε αυτό .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα