Як перевірити, чи прихований рядок у Excel?
У цій статті йдеться про перевірку того, чи рядок прихований у визначеному діапазоні або на аркуші в Excel.
Перевірте, чи рядок прихований у вибраному діапазоні з кодом VBA
Перевірте, чи рядок прихований на аркуші з кодом VBA
Перевірте, чи рядок прихований у вибраному діапазоні з кодом VBA
Будь ласка, виконайте наступні дії, щоб перевірити, чи приховані рядки у вибраному діапазоні, і знайти номер прихованого рядка.
1. Виберіть діапазон, який ви будете перевіряти на наявність прихованих рядків. Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте нижче код VBA у вікно коду.
Код VBA: перевірте наявність прихованих рядків у вибраному діапазоні
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 Натисніть кнопку F5 клавіша для запуску коду.
Тоді а Microsoft Excel спливає діалогове вікно, щоб показати вам приховані рядки, як показано нижче.
Перевірте, чи рядок прихований на аркуші з кодом VBA
Наведений нижче код VBA може допомогти вам перевірити наявність прихованих рядків на аркуші в Excel. Будь ласка, виконайте наступне.
1. Відкрийте робочий аркуш, який потрібно перевірити на наявність прихованих рядків, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте нижче код VBA у вікно коду.
Код VBA: перевірте, чи рядок прихований на аркуші
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 Натисніть кнопку F5 клавіша для запуску коду.
Тоді а Microsoft Excel спливає діалогове вікно, щоб показати вам приховані рядки на поточному аркуші, як показано нижче.
примітки: Якщо нині приховані рядки існують у вибраному діапазоні або на робочому аркуші, ви отримаєте діалогове вікно, як показано нижче.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!