Indholdsfortegnelse
Kontroller, om ark findes
Vi har oprettet en funktion, der tester, om der findes et ark eller område (på et bestemt ark). Områdestesten er nyttig, hvis du vil kontrollere, om der findes et bestemt navngivet område på et ark.
| 123456789101112 | 'Test om der findes et område på et ark.'Lad området være tomt for at teste, om der findes et ark'Indgange:'WhatSheet - Arkets strengnavn (f.eks. "Ark1")'WhatRange (Valgfrit, Standard = "A1") - Stringnavn for område (f.eks. "A1")Function RangeExists (WhatSheet As String, Valgfri ByVal WhatRange As String = "A1") Som boolskDim test As RangeVed fejl Genoptag næsteIndstil test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Ved fejl GoTo 0Afslut funktion |
Placer funktionen i et VBA -kodemodul, og du kan få adgang til den ved hjælp af underprocedurer som disse:
Kontroller, om ark findes
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("opsætning")Afslut Sub |
Kontroller, om rækkevidde findes på et ark
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")Afslut Sub |
Justering af funktionen RangeExists
Kontroller, om ark findes på en anden projektmappe
Ovenstående funktion kiggede på ActiveWorkbook (den aktuelt aktive projektmappe). I stedet kan du justere funktionen til at se på en bestemt projektmappe som denne:
| 12345678910111213 | 'Test om der findes et område på et ark.'Lad området være tomt for at teste, om der findes et ark'Indgange:'WhatBook - *Workbook Object *'WhatSheet - Arkets strengnavn (f.eks. "Ark1")'WhatRange (Valgfrit, Standard = "A1") - Stringnavn for område (f.eks. "A1")Function RangeExists (WhatBook As Workbook, WhatSheet As String, Valgfri ByVal WhatRange As String = "A1") Som boolskDim test As RangeVed fejl Genoptag næsteIndstil test = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Ved fejl GoTo 0Afslut funktion |
Gennemførelse:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb Som projektmappeIndstil wb = ActiveWorkbookMsgBox RangeExists (wb, "Sheet1")Afslut Sub |
