Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
как определить номер первой строки после фильтрации
 
#1
17.02.2010 12:14:54
Здравствуйте.  
Я макросом фильтрую некоторым образом данные на листе. Далее после этого требуется определить номер первой отображаемой строки в этом листе (в смысле первой после заголовка).  
 
Подскажите пожалуйста как это можно сделать?
 
 
 
#2
17.02.2010 12:40:22
Вариант. Попробуйте циклом^  
Если текущая ячейка .hidden = False Then  
MsgBox i  
Exit Sub
 
 
 
#3
17.02.2010 12:45:43
или columns(1).specialcells(xlvisible).cells(1).row
Живи и дай жить..
 
 
 
#4
17.02.2010 12:55:56
или даже просто    
Columns(1).SpecialCells(xlVisible).Row
Живи и дай жить..
 
 
 
#5
17.02.2010 14:09:48
{quote}{login=слэн}{date=17.02.2010 12:55}{thema=}{post}или даже просто    
Columns(1).SpecialCells(xlVisible).Row{/post}{/quote}  
 
Не совсем понятно, что именно выдаст эта конструкция?
 
 
 
#6
17.02.2010 14:14:58
смотрим на топик...  
 
 
или вводим код и смотрим.. как больше нравится..  
 
 
хотя иногда может показать и небо с овчинку
Живи и дай жить..
 
 
 
#7
17.02.2010 14:24:15
{quote}{login=слэн}{date=17.02.2010 02:14}{thema=}{post}смотрим на топик...  
 
 
или вводим код и смотрим.. как больше нравится..  
 
 
хотя иногда может показать и небо с овчинку{/post}{/quote}  
 
Я правильно понял, что после фильтрации надо написать:  
a = ActiveWorkbook.ActiveSheet.Columns(1).SpecialCells(xlVisible).Row  
 
a в этом случае равно 1..
 
 
 
#8
17.02.2010 14:45:51
Sub Макрос1()  
Dim iFirstRow As Long  
   With ActiveSheet.AutoFilter.Range  
       iFirstRow = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible).Row  
       MsgBox "Номер первой строки в отфильтрованном диапазоне равен: " & iFirstRow, , ""  
   End With  
End Sub
 
 
 
#9
17.02.2010 14:51:00
Если ActiveSheet, то это уже ActiveWorkBook - не надо нагромождать.
 
 
 
#10
17.02.2010 14:52:55
Поторопились гуру-аксакалы :)  
Есть же еще заголовок автофильтра и сам он может быть не с первой строки  
Поэтому как-нибудь так:  
With ActiveSheet.AutoFilter.Range  
y = Range(.Offset(1, 0), Cells(.Row + .Rows.Count - 1, .Column)).SpecialCells(xlVisible).Row  
End With  
Наверно, можно изячнее :)
Bite my shiny metal ass!      
 
 
 
#11
17.02.2010 15:12:51
гмм..  :)  
 
точно..  
 
вот так работает, но уже далеко не так просто, хотя и все еще одной строкой  
 
IIf(ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Areas(1).Count > 1, _  
   ActiveSheet.AutoFilter.Range.Row + 1, ActiveSheet.AutoFilter.Range.Columns(1).Cells.SpecialCells(xlCellTypeVisible).Areas(2).Cells(1).Row)
Живи и дай жить..
 
 
 
#12
17.02.2010 15:28:42
Спасибо.
 
 
 
Страницы: 1
Читают тему
Наверх