Lang L: none (table-of-contents)
Kontrollige, kas leht on olemas
Oleme loonud funktsiooni, mis kontrollib, kas leht või vahemik (teatud lehel) on olemas. Vahemiku test on kasulik, kui soovite kontrollida, kas lehel on teatud nimega vahemik.
| 123456789101112 | „Kontrollige, kas lehel on vahemik.„Lehe olemasolu kontrollimiseks jätke vahemik tühjaks'Sisendid:'WhatSheet - lehe stringi nimi (endine "Sheet1")'WhatRange (valikuline, vaikimisi = "A1") - vahemiku stringi nimi (endine "A1")Funktsioonivahemik Olemas (WhatSheet kui string, valikuline ByVal WhatRange As String = "A1") BooleaninaHämarduskatse vahemikunaVea korral Jätka järgmistMäära test = ActiveWorkbook.Sheets (WhatSheet). Vahemik (WhatRange)RangeExists = Err.Number = 0Viga GoTo 0Lõppfunktsioon |
Asetage funktsioon VBA koodimoodulisse ja pääsete sellele juurde järgmiste alamprotseduuride abil:
Kontrollige, kas leht on olemas
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("seadistamine")End Sub |
Kontrollige, kas lehel on vahemik
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("seadistamine", "rngInput")End Sub |
Funktsiooni RangeExists reguleerimine
Kontrollige, kas leht on teises töövihikus olemas
Ülaltoodud funktsioon vaatas ActiveWorkbooki (praegu aktiivset töövihikut). Selle asemel saate funktsiooni kohandada, et vaadata konkreetset töövihikut järgmiselt:
| 12345678910111213 | „Kontrollige, kas lehel on vahemik.„Lehe olemasolu kontrollimiseks jätke vahemik tühjaks'Sisendid:'WhatBook - *töövihiku objekt *'WhatSheet - lehe stringi nimi (endine "Sheet1")'WhatRange (valikuline, vaikimisi = "A1") - vahemiku stringinimi (endine "A1")Funktsioonivahemik Olemas (WhatBook kui töövihik, WhatSheet kui string, valikuline ByVal WhatRange as String = "A1") BooleaninaHämarduskatse vahemikunaVea korral Jätka järgmistMäära test = WhatBook.Sheets (WhatSheet). Vahemik (WhatRange)RangeExists = Err.Number = 0Viga GoTo 0Lõppfunktsioon |
Rakendamine:
| 1234567 | Alamkatse_WBSheet_Exists ()Dim wb TöövihikunaMäära wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")End Sub |
