Cuprins
Verificați dacă există o foaie
Am creat o funcție care va testa dacă există o foaie sau un interval (pe o anumită foaie). Testul Range este util dacă doriți să verificați dacă există un anumit interval numit pe o foaie.
| 123456789101112 | 'Testați dacă există o gamă pe o foaie.„Lăsați intervalul gol pentru a testa dacă există foaia„Intrări:'WhatSheet - Numele șirului foii (ex "Sheet1")'WhatRange (Opțional, implicit = "A1") - Numele șirului intervalului (ex "A1")Funcția RangeExists (WhatSheet As String, Optional ByVal WhatRange As String = "A1") As BooleanTest dim ca intervalLa eroare Reluați în continuareSet test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0La eroare GoTo 0Funcția de sfârșit |
Plasați funcția într-un modul de cod VBA și o puteți accesa utilizând proceduri secundare precum acestea:
Verificați dacă există o foaie
| 123 | Sub Test_SheetExists ()MsgBox RangeExists („setare”)Sfârșitul Sub |
Verificați dacă gama există pe o foaie
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")Sfârșitul Sub |
Reglarea funcției RangeExists
Verificați dacă Foaia există pe un alt registru de lucru
Funcția de mai sus se uită la ActiveWorkbook (registrul de lucru activ în prezent). În schimb, puteți regla funcția pentru a privi un anumit registru de lucru ca acesta:
| 12345678910111213 | 'Testați dacă există o gamă pe o foaie.„Lăsați intervalul gol pentru a testa dacă există foaia„Intrări:„WhatBook - * Obiect de registru de lucru *'WhatSheet - Numele șirului foii (ex "Sheet1")'WhatRange (Opțional, implicit = "A1") - Numele șirului intervalului (ex "A1")Funcția RangeExists (WhatBook As Workbook, WhatSheet As String, Optional ByVal WhatRange As String = "A1") As BooleanTest dim ca intervalLa eroare Reluați în continuareSet test = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0La eroare GoTo 0Funcția de sfârșit |
Implementare:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb Ca registru de lucruSetați wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Sfârșitul Sub |
