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

Excel VBA: Προσθήκη φύλλου εάν δεν υπάρχει (μια γρήγορη προβολή)

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Το ''" & addSheetName & _ "'' φύλλο έχειπροστέθηκε καθώς δεν υπήρχε.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "Το ''" & addSheetName & _ "''φύλλο υπάρχει ήδη σε αυτό το βιβλίο εργασίας.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Εισάγετε σε μια νέα ενότητα για να εφαρμόσετε τον παραπάνω κώδικα.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε δωρεάν το τετράδιο ασκήσεων από εδώ!

Βήματα για την εφαρμογή κώδικα VBA για την προσθήκη φύλλου στο Excel εάν δεν υπάρχει

Ας πούμε, έχετε ένα βιβλίο εργασίας που περιέχει 4 φύλλα εργασίας με τα ονόματα Ιανουάριος, Φεβρουάριος, Μάρτιος και Απρίλιος. Κάθε φύλλο περιέχει την έκθεση πωλήσεων του επόμενου μήνα. Τώρα, πρέπει να βρείτε κάποια φύλλα στο βιβλίο εργασίας και να προσθέσετε το φύλλο αν δεν υπάρχει. Μπορείτε να ακολουθήσετε τις παρακάτω οδηγίες βήμα προς βήμα για να το πετύχετε αυτό.

📌 Βήμα 1: Εισαγωγή νέας ενότητας

Πρώτον, πρέπει να εισαγάγετε μια ενότητα για να γράψετε κώδικα VBA.

• Για να το κάνετε αυτό, στην αρχή, πηγαίνετε στην ενότητα Προγραμματιστής tab>>, Visual Basic εργαλείο.

• Ως αποτέλεσμα, η Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο.
• Στη συνέχεια, μεταβείτε στο Εισαγωγή tab>>, Ενότητα εργαλείο.

Έτσι, μια νέα ενότητα με το όνομα Ενότητα1 έχει δημιουργηθεί.

Διαβάστε περισσότερα: Πώς να προσθέσετε φύλλο με όνομα στο Excel VBA (6 εύκολοι τρόποι)

Παρόμοιες αναγνώσεις

• Δημιουργία νέου βιβλίου εργασίας και αποθήκευση χρησιμοποιώντας το VBA στο Excel
• Excel VBA: Δημιουργήστε ένα νέο βιβλίο εργασίας και ονομάστε το (6 παραδείγματα)
• Πώς να δημιουργήσετε νέο φύλλο από το πρότυπο χρησιμοποιώντας μακροεντολή στο Excel

📌 Βήμα 2: Γράψτε και αποθηκεύστε τον απαιτούμενο κώδικα VBA

Τώρα, πρέπει να γράψετε τον κώδικα μέσα στην ενότητα και να τον αποθηκεύσετε.

• Για να το κάνετε αυτό, κάντε κλικ στο Ενότητα1 και γράψτε τον ακόλουθο κώδικα στο παράθυρο κώδικα.

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Το ''" & addSheetName & _ "'' φύλλο έχειπροστέθηκε καθώς δεν υπήρχε.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "Το ''" & addSheetName & _ "''φύλλο υπάρχει ήδη σε αυτό το βιβλίο εργασίας.", _ vbInformation, "Add Sheet If Not Exist" End If End  Υπο 

• Ως αποτέλεσμα, το παράθυρο κώδικα θα έχει την ακόλουθη μορφή.

🔎 Επεξήγηση κωδικού:

♣ Τμήμα 1:

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String 

Σε αυτό το μέρος, έχουμε δηλώσει το όνομα της μακροεντολής και τα ονόματα των μεταβλητών.

♣ Τμήμα 2:

 addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

Σε αυτό το μέρος, έχουμε δημιουργήσει ένα πλαίσιο εισαγωγής. Μέσω αυτού του πλαισίου εισαγωγής, μπορούμε να λάβουμε το όνομα του αρχείου που πρέπει να βρούμε.

♣ Τμήμα 3:

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Το φύλλο ''" & addSheetName & _ "''' προστέθηκε καθώς δεν υπήρχε.", _ vbInformation, "Add Sheet If Not Exist" 

Σε αυτό το μέρος, ελέγχουμε αν το απαιτούμενο φύλλο υπάρχει στο βιβλίο εργασίας. Αν όχι, θα δημιουργηθεί το απαιτούμενο φύλλο και θα μας εμφανιστεί ένα μήνυμα σχετικά με αυτή την αλλαγή.

♣ Τμήμα 4:

 Else MsgBox "Το ''" & addSheetName & _ "''φύλλο υπάρχει ήδη σε αυτό το βιβλίο εργασίας.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Σε αυτό το μέρος, εργαστήκαμε με το αποτέλεσμα εάν το απαιτούμενο φύλλο υπάρχει ήδη στο βιβλίο εργασίας. Σε αυτό το σενάριο, θα εμφανιστεί ένα άλλο πλαίσιο μηνύματος που θα σας ενημερώνει ότι το φύλλο αυτό υπάρχει. Επιπλέον, σε αυτό το μέρος, τελειώνουμε τον κώδικα σωστά.

• Στη συνέχεια, πατήστε Ctrl + S.

• Στη συνέχεια, ένα Microsoft Excel Θα εμφανιστεί το παράθυρο. Όχι κουμπί.

• Ως αποτέλεσμα, η Αποθήκευση ως θα εμφανιστεί το παράθυρο.
• Στη συνέχεια, επιλέξτε το Αποθήκευση ως τύπος: επιλογή ως .xlsm Στη συνέχεια, κάντε κλικ στο κουμπί Αποθήκευση κουμπί.

Έτσι, έχετε γράψει και αποθηκεύσει τον απαιτούμενο κώδικα.

Σημείωση:

Πρέπει να αποθηκεύσετε το βιβλίο εργασίας του Excel στο .xlsm Διαφορετικά, η μακροεντολή δεν θα ενεργοποιηθεί και ο κώδικας δεν θα λειτουργήσει.

Διαβάστε περισσότερα: Excel VBA για να προσθέσετε φύλλο με όνομα μεταβλητής (5 ιδανικά παραδείγματα)

📌 Βήμα 3: Εκτελέστε τον κώδικα

Τώρα, πρέπει να εκτελέσετε τον κώδικα και να ελέγξετε τα αποτελέσματα.

• Για να το κάνετε αυτό, πρώτα απ' όλα, κάντε κλικ στην επιλογή Εκτέλεση στο εικονίδιο Microsoft Visual Basic για εφαρμογές παράθυρο.

• Ως αποτέλεσμα, η Μακροεντολές θα εμφανιστεί το παράθυρο.
• Στη συνέχεια, επιλέξτε το AddSheetIfNotExist μακροεντολή και κάντε κλικ στο Εκτέλεση κουμπί.

• Αυτή τη στιγμή, το πλαίσιο μηνυμάτων που δημιουργήσαμε με το όνομα Προσθήκη φύλλου αν δεν υπάρχει Εδώ, η αυτόματη επιλογή θα είναι Φύλλο5 .

• Τώρα, για έλεγχο, γράψτε "Απρίλιος" στο πλαίσιο κειμένου και κάντε κλικ στο κουμπί Εντάξει κουμπί.

• Στη συνέχεια, θα δείτε ότι θα εμφανιστεί ένα άλλο πλαίσιο μηνύματος που θα σας λέει ότι το φύλλο υπάρχει ήδη.
• Κάντε κλικ στο Εντάξει κουμπί.

• Στη συνέχεια, εκτελέστε ξανά τον κώδικα και γράψτε "May" στο πλαίσιο κειμένου του δημιουργημένου πλαισίου μηνυμάτων. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί.

• Ως αποτέλεσμα, θα εμφανιστεί ένα άλλο πλαίσιο μηνύματος που θα σας ενημερώνει ότι η "May" φύλλο δεν υπήρχε και έτσι δημιούργησε αυτό το φύλλο.
• Στη συνέχεια, κάντε κλικ στο OK κουμπί.

Τέλος, μπορείτε να δείτε ότι έχετε προσθέσει ένα φύλλο που δεν υπήρχε προηγουμένως. Και, το βιβλίο εργασίας θα μοιάζει τώρα ως εξής.

Διαβάστε περισσότερα: Excel VBA: Προσθήκη φύλλου μετά το τελευταίο (3 ιδανικά παραδείγματα)

Συμπέρασμα

Έτσι, σε αυτό το άρθρο, σας έχω δείξει όλα τα βήματα για να προσθέσετε ένα φύλλο εάν δεν υπάρχει με το Excel VBA. Διαβάστε προσεκτικά ολόκληρο το άρθρο για να το κατανοήσετε καλύτερα και να επιτύχετε το επιθυμητό αποτέλεσμα. Ελπίζω να βρείτε αυτό το άρθρο χρήσιμο και ενημερωτικό. Εάν έχετε περαιτέρω ερωτήσεις ή συστάσεις, μη διστάσετε να επικοινωνήσετε μαζί μου.

Και, επισκεφθείτε ExcelWIKI για πολλά ακόμη άρθρα σαν αυτό. Σας ευχαριστώ!