Vb macro excel 2007 скрыть строки, если ячейка равна нулю

Я хочу запустить макрос на таблице, которая является частью листа, она идет от A18 до J33, 18-я строка - это заголовок. Макрос должен скрывать строки, которые имеют нуль в ячейках столбца J.Vb macro excel 2007 скрыть строки, если ячейка равна нулю

Пожалуйста, помогите !!!!!!

источник

2013-09-27 Petty Bathish Jreish

Вопросы просящих кода должны продемонстрировать минимальное понимание решаемой задачи. Включите попытки решения, почему они не работают и ожидаемые результаты. См. Также: [Контрольный список вопросов переполнения стека] (http://meta.stackexchange.com/questions/156810/stack-overflow-question-checklist) –

Когда вы видите свою электронную таблицу, нажмите ALT + F11. Это откроет вам VBE (визуальный базовый редактор).

правой кнопкой мыши в VBA Project Explorer (если вы не можете увидеть его, то нажмите кнопку View -> Проводник проекта или CTRL +R

Вставьте модуль

enter image description here

Copy и вставьте код ниже

Sub HideRows() 
    Dim cell As Range 
    For Each cell In Range("J19:J33") 
     If Not isEmpty(cell) Then 
      If cell.Value = 0 Then 
       cell.EntireRow.Hidden = True 
      End If 
     End If 
    Next 
End Sub

Хит F5 для запуска макроса.

до

enter image description here

после

enter image description here

источник

2013-09-27 08:25:03

Спасибо, и жаль, что я неграмотен, когда дело доходит до макросов vb, его не работает выделение красным цветом: для каждой ячейки In. И дать ошибку компиляции: synthax error –

вы скопировали и вставили как есть? где вы вставляли код? –

@mehow: Приведенный выше код спрячет пустые ячейки 'J'. Вы можете изменить его на 'If cell.Value <>" "И cell.Value = 0 Then'? –

Vb macro excel 2007 скрыть строки, если ячейка равна нулю

ответ

Смежные вопросы