
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.04.2005, 19:20:52
|
|||
|---|---|---|---|
Отфильтрованный диапазон |
|||
|
#18+
Подскажите, пожалуйста, как при фильтрации данных получить только отфильтрованный диапазон без скрытыз строк. AutoFilter.Range выдает весь. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.04.2005, 09:42:00
|
|||
|---|---|---|---|
|
|||
Отфильтрованный диапазон |
|||
|
#18+
Добрый день! Вместо ActiveSheet.UsedRange подставить нужный диапазон. Sub Test1() I = 0 Set RangeToUse = Nothing On Error Resume Next Set RangeToUse = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not RangeToUse Is Nothing Then For Each SingleArea In RangeToUse.Areas I = I + SingleArea.Rows.Count Next SingleArea End If MsgBox I Set RangeToUse = Nothing End Sub С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=61&tablet=1&tid=2186110]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
173ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 181ms |
| total: | 416ms |

| 0 / 0 |
