Please følg trinnene nedenfor for å kopiere VBA-kode og kjøre den til å sjekke om et ark eksisterer i gjeldende arbeidsbok.
1. Trykk Alt + F11 for å vise Microsoft Visual Basic for Applications vinduet.
2. I vinduet klikker du Sett inn > Modul for å vise en ny modul vindu, og deretter kopiere følgende VBA-kode i modulvinduet
VBA. Sjekk om et ark finnes i en arbeidsbok
Funksjon CheckSheet (pname As String) As Boolean'Updateby20140617Dim IsExist Som BooleanIsExist. = FalseFor i = 1 Til Application.ActiveWorkbook.Sheets.Count Hvis Application.ActiveWorkbook.Sheets (i) .name = pname Så IsExist = True Exit For End IfNextCheckSheet = IsExistEnd Function3. Lagre denne koden, og gå tilbake til arket og velg en tom celle for å skrive denne formelen = CheckSheet ("Shee1")
(Sheet1 indikerer arket navnet du ønsker å sjekke om det finnes) inn i det, trykker Enter-knappen, USANN
indikerer dette arket ikke eksisterer, og TURE
indikerer den finnes i gjeldende arbeidsbok. Anmeldelser