Не думая взято отсюда и чуть-чуть подправлено [vba]
Код
Sub Row_Cleaner() Dim ac_ Application.ScreenUpdating = 0 ac_ = Application.Calculation Application.Calculation = xlCalculationManual With ThisWorkbook.ActiveSheet Dim Z As Long For Z = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If .Cells(Z, 2).Value = 0 Then .Cells(Z, 2).RowHeight = 0 Next Z End With Application.ScreenUpdating = 1 Application.Calculation = ac_ End Sub
[/vba]
Не думая взято отсюда и чуть-чуть подправлено [vba]
Код
Sub Row_Cleaner() Dim ac_ Application.ScreenUpdating = 0 ac_ = Application.Calculation Application.Calculation = xlCalculationManual With ThisWorkbook.ActiveSheet Dim Z As Long For Z = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If .Cells(Z, 2).Value = 0 Then .Cells(Z, 2).RowHeight = 0 Next Z End With Application.ScreenUpdating = 1 Application.Calculation = ac_ End Sub
Доброго времени господа!!! Решил поднять тему. Т.К я постоянно занимаюсь тем, что тырю на форуме чужие коды и переделываю их под свои нужды постоянно выходит так, что у меня возникают вопросы. вот и сегодня . стырил код из сообщения выше, переделал под себя: строки скрываются при условии совпадения двух ячеек. возник вопрос: Вот так работает
[vba]
Код
Sub Row_skrit() Dim ac_ Application.ScreenUpdating = 0 ac_ = Application.Calculation Application.Calculation = xlCalculationManual
With ThisWorkbook.ActiveSheet Dim Z As Long For Z = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If .Cells(Z, 2).Value = Cells(Z, 5) Then .Cells(Z, 2).RowHeight = 0 Next Z End With Application.ScreenUpdating = 1 Application.Calculation = ac_ End Sub
[/vba]
а вот так выдает ошибку 424 [vba]
Код
If .Cells(Z, 2).Value = Cells(Z, 5) Then .Rows (Z), EntireRow.Hidden = True
[/vba] вопрос: что я не понял?
Доброго времени господа!!! Решил поднять тему. Т.К я постоянно занимаюсь тем, что тырю на форуме чужие коды и переделываю их под свои нужды постоянно выходит так, что у меня возникают вопросы. вот и сегодня . стырил код из сообщения выше, переделал под себя: строки скрываются при условии совпадения двух ячеек. возник вопрос: Вот так работает
[vba]
Код
Sub Row_skrit() Dim ac_ Application.ScreenUpdating = 0 ac_ = Application.Calculation Application.Calculation = xlCalculationManual
With ThisWorkbook.ActiveSheet Dim Z As Long For Z = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If .Cells(Z, 2).Value = Cells(Z, 5) Then .Cells(Z, 2).RowHeight = 0 Next Z End With Application.ScreenUpdating = 1 Application.Calculation = ac_ End Sub
[/vba]
а вот так выдает ошибку 424 [vba]
Код
If .Cells(Z, 2).Value = Cells(Z, 5) Then .Rows (Z), EntireRow.Hidden = True
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
и переделываю их под свои нужды постоянно выходит так, что у меня возникают вопросы. вот и сегодня . стырил код из сообщения выше, переделал под себя: строки скрываются при условии совпадения двух ячеек. возник вопрос:
.
