[[20221130154957]]　『一気に行を非表示に』（toto）　ページの最後に飛ぶ

『一気に行を非表示に』（toto）

お世話になっております。
ある列の値が0のときに下記の様なコードで行を非表示にしていますが、
ScreenUpdatingをfalseにしても非表示の動作が目に見えてしまいます。
一瞬で該当行を非表示にするコードがあれば、教えていただけないでしょうか？

ScreenUpdating = false

    Dim i As Integer
    For i = 6 To 60  '何行目から何行目まで処理をするか
        If Cells(i, 3) = 0 Then  'ここに条件を入れる
            Rows(i).Hidden = True
        End If
    Next i

ScreenUpdating = True

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

  Dim r As Range
  Set r = Union(Range("B4"), Range("C6"))
  r.EntireRow.Hidden = True

やりたいことはこんなことですか
（きまぐれおじさん） 2022/11/30(水) 16:01:05

 Dim r As Range
 Dim i As Long
 For i = 6 To 60
   If Cells(i, 3).Value = 0 Then
     If r Is Nothing Then
       Set r = Cells(i, 3)
     Else
       Set r = Union(r, Cells(i, 3))
     End If
   End If
 Next i
 If Not r Is Nothing Then
   r.EntireRow.Hidden = True
 End If

（きまぐれおじさん） 2022/11/30(水) 16:06:55

 ScreenUpdating = false
 　　　　 ↓
 Application.ScreenUpdating = False
（それはなに？） 2022/11/30(水) 16:09:40

気まぐれオジサン様
それはなに？様

ありがとうございます。
できました！

（toto） 2022/11/30(水) 16:47:02

コメント返信：

[ 一覧(最新更新順) ]

[[20221130154957]] 『一気に行を非表示に』（toto） ページの最後に飛ぶ

[[20221130154957]]　『一気に行を非表示に』（toto）　ページの最後に飛ぶ