Πίνακας περιεχομένων
Ελέγξτε αν υπάρχει φύλλο
Δημιουργήσαμε μια συνάρτηση που θα ελέγξει εάν υπάρχει ένα φύλλο ή μια περιοχή (σε ένα συγκεκριμένο φύλλο). Η δοκιμή εύρους είναι χρήσιμη αν θέλετε να ελέγξετε εάν υπάρχει ένα συγκεκριμένο εύρος ονομάτων σε ένα φύλλο.
| 123456789101112 | «Δοκιμάστε αν υπάρχει εύρος σε φύλλο.«Αφήστε το εύρος κενό για να ελέγξετε εάν υπάρχει φύλλο'Εισόδους:'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (Προαιρετικό, Προεπιλογή = "A1") - Όνομα συμβολοσειράς εύρους (πρώην "A1")RangeExists (WhatSheet As String, Optional ByVal WhatRange As String = "A1") As BooleanDim test As RangeΣτο Σφάλμα Συνέχιση ΕπόμενοΟρισμός δοκιμής = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Σφάλμα GoTo 0Λειτουργία Τέλους |
Τοποθετήστε τη συνάρτηση μέσα σε μια ενότητα κώδικα VBA και μπορείτε να αποκτήσετε πρόσβαση σε αυτήν χρησιμοποιώντας δευτερεύουσες διαδικασίες όπως αυτές:
Ελέγξτε αν υπάρχει φύλλο
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("εγκατάσταση")Τέλος υπο |
Ελέγξτε εάν το εύρος υπάρχει σε ένα φύλλο
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")Τέλος υπο |
Προσαρμογή της συνάρτησης RangeExists
Ελέγξτε αν υπάρχει φύλλο σε άλλο βιβλίο εργασίας
Η παραπάνω συνάρτηση εξέτασε το ActiveWorkbook (το τρέχον ενεργό βιβλίο εργασίας). Αντ 'αυτού, μπορείτε να προσαρμόσετε τη λειτουργία για να δείτε ένα συγκεκριμένο βιβλίο εργασίας όπως αυτό:
| 12345678910111213 | «Δοκιμάστε αν υπάρχει εύρος σε φύλλο.'Αφήστε το εύρος κενό για να ελέγξετε εάν υπάρχει φύλλο'Εισόδους:'WhatBook - *Αντικείμενο βιβλίου εργασίας *'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (Προαιρετικό, Προεπιλογή = "A1") - Όνομα συμβολοσειράς εύρους (πρώην "A1")RangeExists (WhatBook As Workbook, WhatSheet As String, Optional ByVal WhatRange As String = "A1") As BooleanDim test As RangeΣτο Σφάλμα Συνέχιση ΕπόμενοΟρισμός δοκιμής = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Σφάλμα GoTo 0Λειτουργία Τέλους |
Εκτέλεση:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb Ως βιβλίο εργασίαςΡύθμιση wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Τέλος υπο |
