[[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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.