Tartalomjegyzék
Ellenőrizze, hogy létezik -e lap
Létrehoztunk egy függvényt, amely teszteli, hogy létezik -e munkalap vagy tartomány (egy adott lapon). A Tartomány teszt akkor hasznos, ha ellenőrizni szeretné, hogy létezik -e egy adott névvel ellátott tartomány egy lapon.
| 123456789101112 | 'Ellenőrizze, hogy van -e tartomány a lapon.'Hagyja üresen a tartományt, hogy ellenőrizze, létezik -e lap'Bemenetek:'WhatSheet - A lap karakterlánc -neve (korábbi "Sheet1")'WhatRange (opcionális, alapértelmezett = "A1") - A tartomány karakterlánca (korábbi "A1")Funkciótartomány Létezik (WhatSheet mint karakterlánc, opcionális ByVal WhatRange as karakterlánc = "A1") logikai értékkéntDim teszt As RangeHiba esetén Folytassa a következőtTeszt beállítása = ActiveWorkbook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Hibaszám = 0GoTo 0 hiba eseténVége funkció |
Helyezze a funkciót egy VBA kódmodulba, és az alábbi eljárásokkal érheti el:
Ellenőrizze, hogy létezik -e lap
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("beállítás")End Sub |
Ellenőrizze, hogy van -e tartomány a lapon
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("beállítás", "rngInput")End Sub |
A RangeExists funkció beállítása
Ellenőrizze, hogy létezik -e munkalap egy másik munkafüzetben
A fenti funkció az ActiveWorkbookot (a jelenleg aktív munkafüzetet) tekintette meg. Ehelyett a funkciót úgy állíthatja be, hogy egy adott munkafüzetet nézzen meg, mint ez:
| 12345678910111213 | 'Ellenőrizze, hogy van -e tartomány a lapon.'Hagyja üresen a tartományt, hogy ellenőrizze, létezik -e lap'Bemenetek:'WhatBook - *Munkafüzet -objektum *'WhatSheet - A lap karakterlánc -neve (korábbi "Sheet1")'WhatRange (opcionális, alapértelmezett = "A1") - A tartomány karakterlánca (korábbi "A1")Funkciótartomány Létezik (WhatBook As Workbook, WhatSheet as String, Optional ByVal WhatRange As String = "A1") BooleanDim teszt As RangeHiba esetén Folytassa a következőtA teszt beállítása = WhatBook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Hibaszám = 0GoTo 0 hiba eseténVége funkció |
Végrehajtás:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb Mint munkafüzetWb = ActiveWorkbook beállításaMsgBox RangeExists (wb, "Sheet1")End Sub |
