Помогите с макросом пожалуйста)

[Kortes]

Всем привет)
Не поможете ничего не понимающему в VB человеку?)

Есть такой макрос (в строке проверяет значение в определённой ячейке, если она пустая, скрывает всю строку):

Range("d5:d5").Select 'выбор проверяемой ячейки
If Range("d5") = 0 Then 'сравнение с нулем
Rows("5:5").Select 'выбор строки
Selection.EntireRow.Hidden = True 'скрыть строку

Помогите пожалуйста изменить его, чтобы он действовал не на одну строку, а на всю таблицу, скрывая в ней все строки в которых присутствует пустая ячейка в диапазоне d5:d100

Заранее благодарен за помощь)

[anton13]

Я в принципе вопрос понял. Только не пойму скрыть это что? Что после этого происходит?

[RXL]

Kortes, скрипт покоцанный: не хватает end if. Чтобы обработать несколько строк, сделай цикл по строкам.

[Kortes]

anton13,
Скрывается строка без данных в заданой ячейке.
RXL,
Я бы сделал, если бы знал как) Я в этом ну совсем ничего не понимаю( Чтобы применить этот макрос ко всей таблице, я повторил этот кусок раз 100, получился макрос высотой метров 5, который периодически глючит))
Наверняка это можно сделать как-то более красиво и не так громоздко)

Заранее спасибо)

[anton13]

Я конечно не то спрашивал, ну да ладно и так понял. Давно на VBA не писал и сразу говорю это можно сделать несколькими способами. Но вот такую фигню сделал проверил работает:

Sub Макрос1()

For i = 1 To 50 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки

If Cells(i, 1) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться

Selection.EntireRow.Hidden = True

Next i

End Sub

Я не совсем понял по каким параметрам ты хочешь отбирать строки если в них будет хоть одна пустая клетка во всей строке или ты просто хочешь пройтись по определённому столбцу. И тему назови как-нибудь по другому там "Сортировка строк" или "Исчезающие строки"

[anton13]

Кстати RXL в данном случае End if не нужен в VBA так принято.

[RXL]

Кстати RXL в данном случае End if не нужен в VBA так принято.

Ужас! Я полагал, что синтаксис VBA совпадает с VB6...

Админ у меня сообщение не видно до конца это можно исправить?

Проблема не ясна. Напиши мне в личку и приведи скриншот.

[anton13]

RXL

Ужас! Я полагал, что синтаксис VBA совпадает с VB6...

Не в принципе они одинаковые просто здесь такая особенность если написать выражение после Then в одну строчку то End if не надо:

Sub Макрос()

For i = 1 To 50

If Cells(i, 1) = 0 Then Rows(i).Select
Selection.EntireRow.Hidden = True

Next i

End Sub

А если на следующей строке то надо:

Sub Макрос()

For i = 1 To 50

If Cells(i, 1) = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True

End If

Next i

End Sub

Проблема не ясна. Напиши мне в личку и приведи скриншот.

С проблемой вчера разобрались

[RXL]

anton13, про однострочный синтаксис я знаю. Только в примере вставлен комментарий, что означает, что в одну строку поместить if и оператор нельзя.
Если надо перенести оператор на следующую строку, на предыдущей строке надо после пробела поставить символ подчеркивания.

[anton13]

А да точно у него так.

[Kortes]

anton13, спасибо большое, всё получилось в лучшем виде)

Всем спасибо за ответы.