Макрос Скрытия строк в листе

[Zzema]

Идея такая: Хочется, чтобы макрос скрывал строки в которых в столбце А , в ячейках нулевые значения. Нужно, чтобы он запускался автоматически, без вызова макроса...
просто макрос для скрытия строки 1, если А1=0- работает:
Sub Worksheet_Calculate()
If Cells(1, 1).Value = 0 Then
Rows(1).EntireRow.Hidden = True
Else
Rows(1).EntireRow.Hidden = False
End If
End Sub

, когда цикл хотел сделать, начинает зацикливаться, почему?
И как этого избежать?


Sub Worksheet_Calculate()
iFirstRow = 1: iLastRow = 150
For iRow = iFirstRow To iLastRow Step 1
iCellOne = Cells(iRow, 1).Value

If iCellOne = 0 Then
Rows(iRow).EntireRow.Hidden = True
Else
Rows(iRow).EntireRow.Hidden = False
End If
Next


End Sub

[Hugo121]

Потому что скрытие строк вызывает пересчёт, который вызывает скрытие строк...
Отключайте события - application.enableevents=false, в конце включайте.

[IgorGO]

так будет работать:

Sub Worksheet_Calculate()
  Application.EnableEvents = False
  For r = 1 To 150
    Rows(r).EntireRow.Hidden = Cells(r, 1) = 0
  Next
  Application.EnableEvents = True
End Sub

[Zzema]

Аааа, думаю, что не так то))
И если значение в столбце А изменится, то будет пересчет?
Мне нужно, чтобы новый нолик, появившийся в столбце А тут же скрылся... А как, там ноль пропадет- автоматически открылся... Без если будет работать?

[Zzema]

Только этот код для 300 строк работает очень медленно...

[Hugo121]

Отключайте обновление экрана и пересчёт.

[Zzema]

Так мне это нужно Я сводную таблицу обновляю и хочу, чтобы после обновления все строки скрылись, ненужные мне...

[diffuser]

IgorGO, здравствуйте!

Мне кажется, что то, что мне необходимо - недалеко от темы.

Необходимо откорректирвоать код:

Private Sub Worksheet_Calculate()
 Application.EnableEvents = False
Static OldVal1 As Variant, OldVal2 As Variant
If Range("C7").Value <> OldVal1 Then
    OldVal1 = Range("C7").Value
    Range("L7") = 1
If [L7] = "1" Then Range("D7:E7,J7").ClearContents
Range("L7") = 0
End If
 Application.EnableEvents = True
End Sub

Чтобы он выполнялся по всем строкам, к примеру от 7й до 100й. На 7й я сделал, но это примитивно, далеко не уйдешь.

Не могу никак внедрить For r = ... To ...

[IgorGO]

а так:

Private Sub Worksheet_Calculate()
  Application.EnableEvents = False
  Static OldVal1 As Variant, OldVal2 As Variant
  dim r as long
  for r = 7 to 100
    If cells(r,3).Value <> OldVal1 Then
      OldVal1 = cells(r,3).Value
      cells(r,12) = 1
      If cells(r,12) = "1" Then cells(r,4).resize(1,2).ClearContents: cells(r,10).ClearContents
      cells(r,12) = 0
    End If
  next
  Application.EnableEvents = True
End Sub

[diffuser]

Сообщение от IgorGO

а так:

Private Sub Worksheet_Calculate()
  Application.EnableEvents = False
  Static OldVal1 As Variant, OldVal2 As Variant
  dim r as long
  for r = 7 to 100
    If cells(r,3).Value <> OldVal1 Then
      OldVal1 = cells(r,3).Value
      cells(r,12) = 1
    If cells(r,12) = "1" Then cells(r,4).resize(1,2).ClearContents: cells(r,10).ClearContents
      cells(r,12) = 0
    End If
  next
  Application.EnableEvents = True
End Sub

Кажется, что прекрасно, только вот видимо я забыл уточнить. Необходимо очищать только те ячейки колонок D, E и J, в строке которых изменилось значение в столбце С. А по вашему макросу - очищается весь диапазон D7:E100, J7:J100, если произошло изменение хоть в одной строке столбца С

Т.е. условно говоря - меняется значение в С7 - очищаем D7:E7,J7. Меняется С8 - очищаем D8:E8,J8. И так далее. Спасибо вам за помощь! Долго ищу решение.