Come verificare se la riga è nascosta in Excel?
Questo articolo parla del controllo se la riga è nascosta in un intervallo specificato o in un foglio di lavoro in Excel.
Controlla se la riga è nascosta nell'intervallo selezionato con il codice VBA
Controlla se la riga è nascosta in un foglio di lavoro con codice VBA
Controlla se la riga è nascosta nell'intervallo selezionato con il codice VBA
Si prega di fare quanto segue per verificare se le righe sono nascoste in un intervallo selezionato e trovare il numero di riga nascosto.
1. Seleziona l'intervallo che controllerai per le righe nascoste. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del codice.
Codice VBA: controlla le righe nascoste nell'intervallo selezionato
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 Sub3. premi il F5 chiave per eseguire il codice.
Poi un Microsoft Excel la finestra di dialogo si apre per mostrare le righe nascoste come mostrato nell'immagine sottostante.
Controlla se la riga è nascosta in un foglio di lavoro con codice VBA
Il codice VBA sottostante può aiutarti a verificare la presenza di righe nascoste in un foglio di lavoro in Excel. Si prega di fare quanto segue.
1. Aprire il foglio di lavoro necessario per verificare la presenza di righe nascoste, premere il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del codice.
Codice VBA: controlla se la riga è nascosta nel foglio di lavoro
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 Sub3. premi il F5 chiave per eseguire il codice.
Poi un Microsoft Excel la finestra di dialogo si apre per mostrare le righe nascoste nel foglio di lavoro corrente come mostrato nell'immagine sottostante.
Note:: Se ora esistono righe nascoste nell'intervallo o foglio di lavoro selezionato, verrà visualizzata la finestra di dialogo come mostrato nell'immagine sottostante.
Articoli correlati:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
