К примеру в экселе находится таблица: В первом столбце название, во втором некий параметр вводимый мною. Необходимо реализовать: Если в столбце 2 пусто, то данную строку не отображать, скрывать каким-то образом. Например: Иванов 1 Петров 2 Сидоров ___(пусто)
Тогда показывается Иванов 1 Петров 2
К примеру в экселе находится таблица: В первом столбце название, во втором некий параметр вводимый мною. Необходимо реализовать: Если в столбце 2 пусто, то данную строку не отображать, скрывать каким-то образом. Например: Иванов 1 Петров 2 Сидоров ___(пусто)
Sub hd() Dim x Dim i& Dim HideRange As Range, vbr On Error Resume Next x = Range("A1:B" & [a65535].End(xlUp).Row).Value Set HideRange = Nothing Rows("1:65535").Hidden = False For i = 1 To UBound(x) If x(i, 1) <> "" And x(i, 2) = "" Then If HideRange Is Nothing Then Set HideRange = Cells(i, 1) Else Set HideRange = Union(HideRange, Cells(i, 1)) End If End If Next
If HideRange Is Nothing Then Exit Sub HideRange.EntireRow.Hidden = True Set HideRange = Nothing End Sub
[/vba]
[vba]
Код
Sub hd() Dim x Dim i& Dim HideRange As Range, vbr On Error Resume Next x = Range("A1:B" & [a65535].End(xlUp).Row).Value Set HideRange = Nothing Rows("1:65535").Hidden = False For i = 1 To UBound(x) If x(i, 1) <> "" And x(i, 2) = "" Then If HideRange Is Nothing Then Set HideRange = Cells(i, 1) Else Set HideRange = Union(HideRange, Cells(i, 1)) End If End If Next
If HideRange Is Nothing Then Exit Sub HideRange.EntireRow.Hidden = True Set HideRange = Nothing End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
