Sisällysluettelo
Tarkista, onko arkki olemassa
Olemme luoneet toiminnon, joka testaa, onko arkki tai alue (tietyssä taulukossa) olemassa. Alue -testi on hyödyllinen, jos haluat tarkistaa, onko taulukossa tietty nimetty alue.
| 123456789101112 | 'Testaa, onko taulukossa alue.'Jätä alue tyhjäksi testataksesi, onko arkki olemassa'Tulot:'WhatSheet - taulukon merkkijonon nimi (ex "Sheet1")'WhatRange (valinnainen, oletus = "A1") - alueen merkkijonon nimi (ex "A1")ToimintoalueExists (WhatSheet as String, Optional ByVal WhatRange As String = "A1") BooleanDim -testi alueenaVirhe Jatka seuraavaksiAseta testi = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Virheen numero = 0Virhe GoTo 0Lopeta toiminto |
Aseta toiminto VBA -koodimoduuliin ja voit käyttää sitä seuraavien alimenettelyjen avulla:
Tarkista, onko arkki olemassa
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("asennus")End Sub |
Tarkista, onko taulukossa alue
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")End Sub |
RangeExists -toiminnon säätäminen
Tarkista, onko arkki olemassa toisessa työkirjassa
Yllä oleva toiminto tarkasteli ActiveWorkbookia (aktiivinen työkirja). Sen sijaan voit säätää toimintoa tarkastellaksesi tiettyä työkirjaa seuraavasti:
| 12345678910111213 | 'Testaa, onko taulukossa alue.'Jätä alue tyhjäksi testataksesi, onko arkki olemassa'Tulot:'WhatBook - *Työkirjan objekti *'WhatSheet - taulukon merkkijonon nimi (ex "Sheet1")'WhatRange (valinnainen, oletus = "A1") - alueen merkkijonon nimi (ex "A1")ToimintoalueOlemassa (WhatBook As Workbook, WhatSheet as String, Optional ByVal WhatRange As String = "A1") Boolen muodossaDim -testi alueenaVirhe Jatka seuraavaksiAseta testi = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Virheen numero = 0Virhe GoTo 0Lopeta toiminto |
Toteutus:
| 1234567 | Alatesti_WBSheet_Exists ()Dim wb TyökirjanaAseta wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")End Sub |
