Αυτό το σεμινάριο θα συζητήσει τον τρόπο προσθήκης / εισαγωγής φύλλων εργασίας χρησιμοποιώντας το VBA.
Προσθήκη φύλλου
Αυτή η απλή μακροεντολή θα προσθέσει ένα φύλλο πριν από το ActiveSheet:
| 123 | Υποπροσθήκη ()Φύλλα. ΠροσθήκηΤέλος υπο |
Μετά την εισαγωγή ενός φύλλου, το νέο φύλλο γίνεται το ActiveSheet. Στη συνέχεια, μπορείτε να χρησιμοποιήσετε το αντικείμενο ActiveSheet για να εργαστείτε με το νέο φύλλο (Στο κάτω μέρος αυτού του άρθρου θα δείξουμε πώς να εισαγάγετε ένα νέο φύλλο απευθείας σε μια μεταβλητή).
| 1 | ActiveSheet.Name = "NewSheet" |
Προσθήκη φύλλου με όνομα
Μπορείτε επίσης να ορίσετε ένα όνομα φύλλου καθώς δημιουργείτε το νέο φύλλο:
| 1 | Sheets.Add.Name = "NewSheet" |
Δημιουργία νέου φύλλου με όνομα από ένα κελί
Or χρησιμοποιήστε μια τιμή κελιού για να ονομάσετε ένα νέο Φύλλο:
| 1 | Sheets.Add.Name = range ("a3"). Τιμή |
Προσθήκη φύλλου πριν / μετά από άλλο φύλλο
Μπορεί επίσης να θέλετε να επιλέξετε τη θέση όπου θα εισαχθεί το νέο Φύλλο. Μπορείτε να χρησιμοποιήσετε τις ιδιότητες Μετά ή Πριν για να εισαγάγετε ένα φύλλο σε μια συγκεκριμένη θέση στο βιβλίο εργασίας.
Εισαγωγή φύλλου μετά από άλλο φύλλο
Αυτός ο κωδικός θα εισαγάγει το νέο φύλλο ΜΕΤΑ από ένα άλλο φύλλο:
| 1 | Sheets.Add After: = Sheets ("Input") |
Αυτό θα εισαγάγει ένα νέο φύλλο ΜΕΤΑ ένα άλλο φύλλο και θα καθορίσει το όνομα του φύλλου:
| 1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Παρατηρήστε την πρόσθετη παρένθεση που απαιτείται στο δεύτερο παράδειγμα (το πρώτο παράδειγμα θα δημιουργήσει σφάλμα εάν προστεθεί η δεύτερη παρένθεση).
ή Πριν:
| 1 | Sheets.Add (Πριν: = Sheets ("Input")). Name = "NewSheet" |
Σε αυτά τα παραδείγματα ονομάσαμε ρητά το Φύλλο που χρησιμοποιείται για τον προσδιορισμό της θέσης του φύλλου. Συχνά θα θέλατε να χρησιμοποιήσετε τον αριθμό Ευρετηρίου φύλλου, για να εισαγάγετε το φύλλο στην αρχή ή στο τέλος του βιβλίου εργασίας:
Προσθήκη φύλλου στο τέλος του βιβλίου εργασίας
Για να προσθέσετε ένα φύλλο στο τέλος του βιβλίου εργασίας:
| 1 | Sheets.Add After: = Sheets (Sheets.Count) |
Προσθήκη φύλλου στην αρχή του βιβλίου εργασίας:
Για να προσθέσετε ένα φύλλο στην αρχή του βιβλίου εργασίας:
| 1 | Sheets.Add (Πριν: = Sheets (1)). Name = "FirstSheet" |
Προσθήκη φύλλου στη μεταβλητή
Αυτός ο κώδικας εκχωρεί το νέο φύλλο σε μια μεταβλητή καθώς δημιουργείται το φύλλο:
| 12 | Dim ws Ως φύλλο εργασίαςΟρισμός ws = Φύλλα. Προσθήκη |
Από εδώ μπορείτε να αναφέρετε το νέο φύλλο με τη μεταβλητή "ws":
| 1 | ws.name = "VarSheet" |
Περισσότερα προσθήκη παραδειγμάτων φύλλου
Δημιουργία φύλλου εάν δεν υπάρχει ήδη
Μπορεί να θέλετε να δημιουργήσετε ένα φύλλο μόνο αν δεν υπάρχει ήδη.
Δημιουργία φύλλων εργασίας από τη λίστα ονομάτων
Η ακόλουθη ρουτίνα θα εξετάσει τα περιεχόμενα μιας μόνο στήλης που έχει δημιουργήσει φύλλα εργασίας του Excel στο τρέχον βιβλίο εργασίας με αυτά τα ονόματα. Πραγματοποιεί κλήση σε άλλη συνάρτηση για να διαπιστώσει εάν υπάρχει ήδη ένα φύλλο με αυτό το όνομα και εάν ναι, το φύλλο δεν δημιουργείται.
| 1234567891011121314151617181920212223242526 | Private Sub CommandButton1_Click ()Καλέστε CreateWorksheets (Φύλλα ("Φύλλο2"). Εύρος ("A1: a10"))Τέλος υποSub CreateWorksheets (Names_Of_Sheets As Range)Dim No_Of_Sheets_to_be_Added As IntegerDim Sheet_Name As StringDim i As IntegerNo_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.CountΓια i = 1 σε No_Of_Sheets_to_be_AddedSheet_Name = Names_Of_Sheets.Cells (i, 1). Value"Προσθέστε φύλλο μόνο αν δεν υπάρχει ήδη και το όνομα είναι μεγαλύτερο από μηδέν χαρακτήρεςΑν (Sheet_Exists (Sheet_Name) = False) And (Sheet_Name "") ΤότεΦύλλα εργασίας. Προσθήκη (). Όνομα = Όνομα φύλλουΤέλος εανΕπόμενο iΤέλος υπο |
| 1234567891011121314 | Λειτουργία Sheet_Exists (WorkSheet_Name As String) As BooleanDim Work_sheet As WorksheetSheet_Exists = ΛάθοςΓια κάθε φύλλο εργασίας σε αυτό το βιβλίο εργασίας. Φύλλα εργασίαςΑν Work_sheet.Name = WorkSheet_Name ΤότεSheet_Exists = TrueΤέλος εανΕπόμενοΛειτουργία Τέλους |
Αν λοιπόν έχουμε το ακόλουθο κείμενο στα κελιά A1: A30 στο Φύλλο 2:
Στη συνέχεια, θα δημιουργηθούν τα ακόλουθα φύλλα:
Σημειώστε ότι αν και το "Dog" εμφανίζεται δύο φορές, δημιουργείται μόνο ένα φύλλο.
Για να κατεβάσετε το αρχείο .XLS για αυτό το σεμινάριο, κάντε κλικ εδώ.
