Patikrinkite, ar veikia lapas ir (arba) diapazonas

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
wave wave wave wave wave