Добрый день. Дана таблица с данными. Как можно реализовать определение пустой строки и скрытие? Проверка идёт от ячейки A1,A2,A3,A4 и B1,B2 и даны ещё заполненные ячейки. Если значения в этих столбцах(A1,A2,A3,A4 и B1,B2) пустые, то скрыть строку.
Проверка ячеек [vba][code]Sub excample() If IsEmpty(Range("A1,A2,A3,A4,B1,B2")) = True Then MsgBox "Ячейки пустые" Else MsgBox "Ячейка не пустые" End If End Sub
[/vba] Как можно скрыть пустую строку? Не полностью.[vba]
Код
[/code][/vba]
[/vba]
[vba]
Код
Добрый день. Дана таблица с данными. Как можно реализовать определение пустой строки и скрытие? Проверка идёт от ячейки A1,A2,A3,A4 и B1,B2 и даны ещё заполненные ячейки. Если значения в этих столбцах(A1,A2,A3,A4 и B1,B2) пустые, то скрыть строку.
Проверка ячеек [vba][code]Sub excample() If IsEmpty(Range("A1,A2,A3,A4,B1,B2")) = True Then MsgBox "Ячейки пустые" Else MsgBox "Ячейка не пустые" End If End Sub
[/vba] Как можно скрыть пустую строку? Не полностью.[vba]
Файл с примером помог бы в понимании проблемы. А то не совсем понятно, все указанные ячейки должны быть пустыми одновременно или каждую отдельно проверять?
Файл с примером помог бы в понимании проблемы. А то не совсем понятно, все указанные ячейки должны быть пустыми одновременно или каждую отдельно проверять?Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
[vba][code]Нужно сделать проверку на то, есть ли данные в ячейке A1:A4,B1:B2 и если нету, то скрыть несколько ячеек, например A,B5; A,B6; A,B7; A,B8; A,B9; A,B10; A,B11. Проверка If Application.CountA(Range("A1:A4,B1:B2")) = 0 Then MsgBox "Ячейки пустые" Else MsgBox "Ячейки не пустые" End If
[/vba][/code][/vba]
[vba]
Код
[vba][code]Нужно сделать проверку на то, есть ли данные в ячейке A1:A4,B1:B2 и если нету, то скрыть несколько ячеек, например A,B5; A,B6; A,B7; A,B8; A,B9; A,B10; A,B11. Проверка If Application.CountA(Range("A1:A4,B1:B2")) = 0 Then MsgBox "Ячейки пустые" Else MsgBox "Ячейки не пустые" End If