Sadržaj
Provjerite postoji li list
Izradili smo funkciju koja će testirati postoji li list ili raspon (na određenom listu). Test raspona koristan je ako želite provjeriti postoji li određeni imenovani raspon na listu.
| 123456789101112 | 'Testirajte postoji li raspon na listu.'Ostavite raspon praznim kako biste provjerili postoji li list'Ulazi:'WhatSheet - Naziv niza lista (ex "Sheet1")'WhatRange (izborno, zadano = "A1") - naziv niza raspona (npr. "A1")Raspon funkcijaExists (WhatSheet As String, Opcijski ByVal WhatRange As String = "A1") Kao BooleanDim test kao rasponUključeno Slijedi nastavak greškePostavi test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RasponPostoji = Broj greške = 0Uključeno Greška Idi na 0Završna funkcija |
Stavite funkciju u VBA kodni modul i možete joj pristupiti pomoću podprocedura poput ovih:
Provjerite postoji li list
| 123 | Pod Test_SheetExists ()MsgBox RangeExists ("postavljanje")Kraj podm |
Provjerite postoji li raspon na listu
| 123 | Pod test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")Kraj podm |
Podešavanje funkcije RangeEists
Provjerite postoji li list u drugoj radnoj knjizi
Gornja funkcija gledala je ActiveWorkbook (trenutno aktivnu radnu knjigu). Umjesto toga možete prilagoditi funkciju da pogledate određenu radnu knjigu poput ove:
| 12345678910111213 | 'Testirajte postoji li raspon na listu.'Ostavite raspon praznim kako biste provjerili postoji li list'Ulazi:'WhatBook - *Objekt radne knjige *'WhatSheet - Naziv niza lista (ex "Sheet1")'WhatRange (izborno, zadano = "A1") - naziv niza raspona (npr. "A1")Raspon funkcijaExists (WhatBook As Workbook, WhatSheet As String, Opcijski ByVal WhatRange As String = "A1") Kao BooleanDim test kao rasponUključeno Slijedi nastavak greškePostavi test = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RasponPostoji = Broj greške = 0Uključeno Greška Idi na 0Završna funkcija |
Implementacija:
| 1234567 | Pod Test_WBSheet_Egists ()Dim wb Kao radna bilježnicaPostavite wb = ActiveWorkbookMsgBox RasponPostoji (wb, "Sheet1")Kraj podm |
