Innholdsfortegnelse
Sjekk om ark finnes
Vi har opprettet en funksjon som vil teste om det finnes et ark eller område (på et bestemt ark). Områdestesten er nyttig hvis du vil kontrollere om et bestemt navngitt område finnes på et ark.
| 123456789101112 | 'Test om det finnes et område på et ark.'La området stå tomt for å teste om det finnes ark'Innganger:'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (valgfritt, standard = "A1") - Stringnavn i område (eks "A1")Function RangeExists (WhatSheet As String, Valgfritt ByVal WhatRange As String = "A1") Som boolskDim test As RangeVed feil Fortsett nesteSett test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Ved feil GoTo 0Sluttfunksjon |
Plasser funksjonen i en VBA -kodemodul, og du får tilgang til den ved å bruke underprosedyrer som disse:
Sjekk om ark finnes
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("oppsett")Slutt Sub |
Sjekk om området finnes på et ark
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("oppsett", "rngInput")Slutt Sub |
Justere RangeExists -funksjonen
Sjekk om ark finnes på en annen arbeidsbok
Funksjonen ovenfor så på ActiveWorkbook (den aktive arbeidsboken). I stedet kan du justere funksjonen for å se på en bestemt arbeidsbok slik:
| 12345678910111213 | 'Test om det finnes et område på et ark.'La området stå tomt for å teste om det finnes ark'Innganger:'WhatBook - *Workbook Object *'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (valgfritt, standard = "A1") - Stringnavn i område (eks "A1")Function RangeExists (WhatBook As Workbook, WhatSheet As String, Valgfritt ByVal WhatRange As String = "A1") Som boolskDim test As RangeVed feil Fortsett nesteSett test = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Ved feil GoTo 0Sluttfunksjon |
Gjennomføring:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb Som arbeidsbokSett wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Slutt Sub |
