Cum să verificați dacă rândul este ascuns în Excel?
Acest articol vorbește despre verificarea dacă rândul este ascuns într-un interval specificat sau o foaie de lucru în Excel.
Verificați dacă rândul este ascuns în intervalul selectat cu codul VBA
Verificați dacă rândul este ascuns într-o foaie de lucru cu cod VBA
Verificați dacă rândul este ascuns în intervalul selectat cu codul VBA
Procedați după cum urmează pentru a verifica dacă rândurile sunt ascunse într-un interval selectat și pentru a găsi numărul rândului ascuns.
1. Selectați intervalul pe care îl veți verifica pentru rândurile ascunse. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.
Cod VBA: verificați dacă există rânduri ascunse în intervalul selectat
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. apasă pe F5 tasta pentru a rula codul.
Apoi o Microsoft Excel se afișează caseta de dialog pentru a vă afișa rândurile ascunse așa cum este prezentată mai jos.
Verificați dacă rândul este ascuns într-o foaie de lucru cu cod VBA
Codul VBA de mai jos vă poate ajuta să verificați dacă există rânduri ascunse într-o foaie de lucru în Excel. Vă rugăm să faceți următoarele.
1. Deschideți foaia de lucru pe care trebuie să o verificați pentru rânduri ascunse, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.
Cod VBA: verificați dacă rândul este ascuns în foaia de lucru
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. apasă pe F5 tasta pentru a rula codul.
Apoi o Microsoft Excel se afișează caseta de dialog pentru a vă afișa rândurile ascunse în foaia de lucru curentă așa cum este prezentată mai jos.
notițe: Dacă acum există rânduri ascunse în intervalul selectat sau foaia de lucru, veți obține caseta de dialog așa cum este prezentată mai jos.
Legate de articole:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!