Hogyan ellenőrizhető, hogy a sor el van-e rejtve az Excelben?
Ez a cikk arról szól, hogy ellenőrizze, hogy a sor el van-e rejtve egy meghatározott tartományban, vagy egy munkalap az Excel-ben.
Ellenőrizze, hogy a sor el van-e rejtve a kiválasztott tartományban VBA kóddal
Ellenőrizze, hogy a sor el van-e rejtve egy VBA kóddal ellátott munkalapon
Ellenőrizze, hogy a sor el van-e rejtve a kiválasztott tartományban VBA kóddal
Kérjük, tegye a következőket annak ellenőrzéséhez, hogy a sorok el vannak-e rejtve egy kiválasztott tartományban, és keresse meg a rejtett sorszámot.
1. Válassza ki a rejtett sorok ellenőrzésére szolgáló tartományt. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a kód ablakba.
VBA kód: ellenőrizze, hogy vannak-e rejtett sorok a kiválasztott tartományban
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. megnyomni a F5 gombot a kód futtatásához.
Ezután a Microsoft Excel megjelenik a párbeszédpanel, amely megmutatja az elrejtett sorokat, az alábbi képernyőképen.
Ellenőrizze, hogy a sor el van-e rejtve egy VBA kóddal ellátott munkalapon
Az alábbi VBA-kód segíthet az Excel munkalapjának rejtett sorainak ellenőrzésében. Kérjük, tegye a következőket.
1. Nyissa meg a rejtett sorok ellenőrzéséhez szükséges munkalapot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a kód ablakba.
VBA kód: ellenőrizze, hogy nincs-e rejtve a sor a munkalapon
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. megnyomni a F5 gombot a kód futtatásához.
Ezután a Microsoft Excel megjelenik a párbeszédpanel, amely megmutatja az aktuális munkalap rejtett sorait, az alábbi képernyőképen.
Megjegyzések: Ha a rejtett sorok már léteznek a kiválasztott tartományban vagy munkalapon, akkor a párbeszédpanelt az alábbi képernyőképen látja.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!