Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

скрыть ячейки vba

Автор iron priest, 13.10.2011, 11:48

« назад - далее »

iron priest

добрый день

нужно скрыть сроки, которые = ""

нашел код в инете

Sub SelectCells()

Dim iCell As Range
Dim iUnionRange As Range
iDateOne = "" '"01/01/04" '
'iDateTwo = #1/2/2004# '"02/01/04"
For Each iCell In Range("A10003:A10125")
If iCell >= iDateOne And iCell <= iDateTwo Then
If iUnionRange Is Nothing Then
   Set iUnionRange = Union(iCell, iCell)
Else
   Set iUnionRange = Union(iUnionRange, iCell)
End If
End If
Next
If Not iUnionRange Is Nothing Then iUnionRange.EntireRow.Hidden = True
End Sub


вроде как работает, но ячейки обратно не отображаются. и только есть 2 раза кликнуть между строк, то они появляются обратно. кто может доработать этот код или скинуть свой вариант?

спасибо

iron priest

хм... закрыл и открыл файл, вроде работает код


kuklp

#2
Шибко заморочено. Вариант:
Sub www()
   ActiveSheet.AutoFilterMode = 0:[A10003:A10125].AutoFilter 1, "=*?*", , , 0
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

iron priest


mvi

Как вариант для отображения отфильтрованных ячеек можно использовать строку
Cells.AutoFilter
которая убирает фильтр вообще.

если же строки скрыты то
Cells.EntireRow.Hidden = False