Turinys
Patikrinkite, ar lapas yra
Mes sukūrėme funkciją, kuri patikrins, ar yra lapas ar diapazonas (tam tikrame lape). Diapazono testas yra naudingas, jei norite patikrinti, ar lape yra tam tikras pavadintas diapazonas.
123456789101112 | „Patikrinkite, ar lape yra diapazonas.„Palikite diapazoną tuščią, kad patikrintumėte, ar lapas yra„Įėjimai:„WhatSheet - lapo eilutės pavadinimas (ex„ Sheet1 “)„WhatRange“ (pasirenkama, numatytoji = „A1“) - diapazono eilutės pavadinimas (ex „A1“)Funkcijų diapazonas Egzistuoja („WhatSheet“ kaip eilutė, pasirinktinai „ByVal WhatRange As String“ = „A1“) kaip loginis„Dim“ bandymas kaip diapazonasDėl klaidos Tęsti toliauNustatyti testą = ActiveWorkbook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Klaidų skaičius = 0Klaida „GoTo 0“Pabaigos funkcija |
Įdėkite funkciją į VBA kodo modulį ir galite ją pasiekti naudodami tokias papildomas procedūras:
Patikrinkite, ar lapas yra
123 | Antrinis Test_SheetExists ()„MsgBox RangeExists“ („sąranka“)Pabaiga Sub |
Patikrinkite, ar lape yra diapazonas
123 | Sub Test_RangeExists ()„MsgBox RangeExists“ („sąranka“, „rngInput“)Pabaiga Sub |
Funkcijos „RangeExists“ reguliavimas
Patikrinkite, ar lapas yra kitoje darbaknygėje
Aukščiau pateikta funkcija apžvelgė „ActiveWorkbook“ (šiuo metu aktyvią darbaknygę). Vietoj to galite pakoreguoti funkciją, kad pažiūrėtumėte į konkrečią darbo knygą:
12345678910111213 | „Patikrinkite, ar lape yra diapazonas.„Palikite diapazoną tuščią, kad patikrintumėte, ar lapas yra„Įėjimai:„WhatBook - *Darbaknygės objektas *„WhatSheet - lapo eilutės pavadinimas (ex„ Sheet1 “)„WhatRange“ (pasirenkama, numatytoji = „A1“) - diapazono eilutės pavadinimas (ex „A1“)Funkcijų diapazonas Egzistuoja („WhatBook As Workbook“, „WhatSheet As String“, pasirenkamas „ByVal WhatRange As String“ = „A1“) kaip loginis„Dim“ bandymas kaip diapazonasDėl klaidos Tęsti toliauNustatyti testą = WhatBook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Klaidų skaičius = 0Klaida „GoTo 0“Pabaigos funkcija |
Įgyvendinimas:
1234567 | Antrinis testas_WBSheet_Exists ()Dim wb Kaip darbo knygaNustatykite wb = ActiveWorkbook„MsgBox RangeExists“ (wb, „Sheet1“)Pabaiga Sub |