Comment vérifier si la ligne est masquée dans Excel?
Cet article parle de vérifier si la ligne est masquée dans une plage spécifiée ou une feuille de calcul dans Excel.
Vérifiez si la ligne est masquée dans la plage sélectionnée avec le code VBA
Vérifiez si la ligne est masquée dans une feuille de calcul avec le code VBA
Vérifiez si la ligne est masquée dans la plage sélectionnée avec le code VBA
Veuillez procéder comme suit pour vérifier si les lignes sont masquées dans une plage sélectionnée et trouver le numéro de ligne masqué.
1. Sélectionnez la plage dans laquelle vous vérifierez les lignes masquées. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre de code.
Code VBA: vérifiez les lignes cachées dans la plage sélectionnée
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. appuie sur le F5 clé pour exécuter le code.
Puis un Microsoft Excel La boîte de dialogue apparaît pour vous montrer les lignes cachées comme illustré ci-dessous.
Vérifiez si la ligne est masquée dans une feuille de calcul avec le code VBA
Le code VBA ci-dessous peut vous aider à vérifier les lignes masquées dans une feuille de calcul dans Excel. Veuillez faire comme suit.
1. Ouvrez la feuille de calcul dont vous avez besoin pour vérifier les lignes cachées, appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre de code.
Code VBA: vérifiez si la ligne est masquée dans la feuille de calcul
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. appuie sur le F5 clé pour exécuter le code.
Puis un Microsoft Excel La boîte de dialogue apparaît pour vous montrer les lignes cachées dans la feuille de calcul actuelle, comme illustré ci-dessous.
Notes: Si des lignes masquées existent maintenant dans la plage ou la feuille de calcul sélectionnée, vous obtiendrez la boîte de dialogue comme ci-dessous.
Articles Liés:
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
