Ελέγξτε εάν υπάρχει φύλλο και/ή εύρος λειτουργίας

Πίνακας περιεχομένων

Ελέγξτε αν υπάρχει φύλλο

Δημιουργήσαμε μια συνάρτηση που θα ελέγξει εάν υπάρχει ένα φύλλο ή μια περιοχή (σε ένα συγκεκριμένο φύλλο). Η δοκιμή εύρους είναι χρήσιμη αν θέλετε να ελέγξετε εάν υπάρχει ένα συγκεκριμένο εύρος ονομάτων σε ένα φύλλο.

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")Τέλος υπο
wave wave wave wave wave