Hogyan ellenőrizhető, hogy létezik-e lap a munkafüzetben?

Ha több tucat munkalap vagy akár több száz munkalap van egy munkafüzetben, és szeretné megkeresni vagy ellenőrizni, hogy létezik-e egy lap ebben a munkafüzetben, akkor általában hatalmas munka lehet. Most bemutatok egy VBA-kódot és egy praktikus eszközt, amellyel gyorsan ellenőrizheti, hogy van-e lap a munkafüzetben.

Ellenőrizze, hogy létezik-e lap a VBA-val rendelkező munkafüzetben

Ellenőrizze, hogy létezik-e munkalap, és váltson rá a Kutools for Excel segítségével

Ellenőrizze, hogy létezik-e lap a munkafüzetben

Kövesse az alábbi lépéseket a VBA kód másolásához és futtatásához, hogy ellenőrizze, létezik-e lap az aktuális munkafüzetben.

1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.

2. Az ablakban kattintson a gombra betétlap > Modulok új modulablak megjelenítéséhez, majd másolja a következő VBA kódot a modulablakba.

VBA: Ellenőrizze, hogy létezik-e lap a munkafüzetben.

Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
    If Application.ActiveWorkbook.Sheets(i).Name = pName Then
        IsExist = True
        Exit For
    End If
Next
CheckSheet = IsExist
End Function

3. Mentse el ezt a kódot, és térjen vissza a lapra, és válasszon egy üres cellát a képlet beírásához = CheckSheet („Shee1”) (Az 1. lap jelzi a lap nevét, amelyet ellenőrizni szeretne, létezik), nyomja meg a gombot belép gombot, HAMIS azt jelzi, hogy ez a lap nem létezik, és TURE azt jelzi, hogy létezik az aktuális munkafüzetben.

Ellenőrizze, hogy létezik-e munkalap, és váltson rá a Kutools for Excel segítségével VBA-val

A fent definiált funkcióval egyszerűen ellenőrizheti, hogy létezik-e lap, és ami szintén kissé nehéz. Azonban azzal Kutools az Excel számára, a Navigációs ablaktábla felsorolja az összes lap nevét az Ön számára, amely támogatja a görgetést a lap megkereséséhez, vagy a lap nevének szűrését a lap megkereséséhez, és ha szükséges, a lap nevére kattintva gyorsan átválthat a lapra a megtalálás után.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. engedélyezze azt a munkafüzetet, amelyen ellenőrizni szeretné a lap nevét, és kattintson a gombra Kutools > Navigáció. Lásd a képernyőképet
:

2. Ezután a felbukkanó panelen kattintson a gombra Munkafüzet és lap gombra az ablaktábla kibontásához láthatja az összes lapnév listát az ablaktáblában, görgetve megtalálja a lapneveket.

3. Vagy ellenőrizheti Szűrő gombra, majd írja be az ellenőrizni kívánt lapnév kulcsszavait, ekkor a megadott lapnév lesz listában, kattintson a lap nevére, majd forduljon a lapra.