Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31587 / 76732 ←次へ | 前へ→

【50392】Re:行を表示しない
発言  Lindy  - 07/7/23(月) 13:34 -

引用なし
パスワード
   ▼ブタゴリラ さん:
こんにちは。

オートフィルターを残したくないのであれば
1行づつチェックして範囲を変数に格納してから
一括で非表示に・・・

Sub test()
Dim myRng As Range, c As Range
For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
 With c
  If .Value = 0 And .Offset(, 15).Value = 0 Then
   If myRng Is Nothing Then
    Set myRng = c
   Else
    Set myRng = Union(myRng, c)
   End If
  End If
 End With
Next c
myRng.EntireRow.Hidden = True
End Sub

0 hits

【50375】行を表示しない ブタゴリラ 07/7/22(日) 19:24 質問
【50376】Re:行を表示しない Pipi 07/7/22(日) 21:13 発言
【50390】Re:行を表示しない たろう 07/7/23(月) 13:21 発言
【50377】Re:行を表示しない kobasan 07/7/22(日) 21:38 回答
【50389】Re:行を表示しない たろう 07/7/23(月) 13:14 発言
【50396】Re:行を表示しない kobasan 07/7/23(月) 19:34 回答
【50392】Re:行を表示しない Lindy 07/7/23(月) 13:34 発言
【50393】Re:行を表示しない Lindy 07/7/23(月) 13:36 発言

31587 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free