Satura rādītājs
Pārbaudiet, vai lapa pastāv
Mēs esam izveidojuši funkciju, kas pārbaudīs, vai pastāv lapa vai diapazons (uz konkrētas lapas). Diapazona tests ir noderīgs, ja vēlaties pārbaudīt, vai uz lapas ir noteikts nosaukts diapazons.
| 123456789101112 | “Pārbaudiet, vai lapā ir diapazons.'Atstājiet diapazonu tukšu, lai pārbaudītu, vai lapa pastāv'Ieejas:'WhatSheet - lapas virknes nosaukums (ex "Sheet1")'WhatRange (pēc izvēles, noklusējums = "A1") - diapazona virknes nosaukums (ex "A1")Funkciju diapazons Pastāv (WhatSheet kā virkne, pēc izvēles ByVal WhatRange As String = "A1") kā BūlaDim tests kā diapazonsPar kļūdu Atsākt nākamoIestatīt testu = ActiveWorkbook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Kļūdas numurs = 0Kļūda GoTo 0Beigu funkcija |
Ievietojiet funkciju VBA koda modulī un varat tai piekļūt, izmantojot šādas apakšprocedūras:
Pārbaudiet, vai lapa pastāv
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("iestatīšana")Beigu apakš |
Pārbaudiet, vai lapā ir diapazons
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("iestatīšana", "rngInput")Beigu apakš |
Funkcijas RangeExists pielāgošana
Pārbaudiet, vai lapa pastāv citā darbgrāmatā
Iepriekš minētā funkcija izskatīja ActiveWorkbook (pašlaik aktīvo darbgrāmatu). Tā vietā jūs varat pielāgot funkciju, lai apskatītu konkrētu darbgrāmatu šādi:
| 12345678910111213 | “Pārbaudiet, vai lapā ir diapazons.'Atstājiet diapazonu tukšu, lai pārbaudītu, vai lapa pastāv'Ieejas:'WhatBook - *darbgrāmatas objekts *'WhatSheet - lapas virknes nosaukums (ex "Sheet1")'WhatRange (pēc izvēles, noklusējums = "A1") - diapazona virknes nosaukums (ex "A1")Funkciju diapazons Pastāv (WhatBook kā darbgrāmata, WhatSheet kā virkne, pēc izvēles ByVal WhatRange As String = "A1") kā BūlaDim tests kā diapazonsPar kļūdu Atsākt nākamoIestatīt testu = WhatBook.Sheets (WhatSheet). Range (WhatRange)RangeExists = Kļūdas numurs = 0Kļūda GoTo 0Beigu funkcija |
Īstenošana:
| 1234567 | Apakštests_WBSheet_Exists ()Dim wb kā darbgrāmataIestatīt wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Beigu apakš |
