エクセルで特定の列が0表示の場合、その行を非表示にしたい

質問

エクセルで特定の列が0表示の場合、その行を非表示にしたいのですが…ただし、その0値は数式から反映されての0表示です。
よろしくお願いします。

回答No.1

zap35 · ベストアンサー

マクロを使用しないのであればオートフィルタを利用すればできます

「特定の列」にオートフィルタをかけて、プルダウンメニューの（オプション）→「０と等しくない」を設定すれば「０」以外の行だけが表示されます

数式の結果であっても、直接入力した値でも構いません

マクロがよければ補足して下さい。ただ「ツール」→「マクロ」→「新しいマクロの記録」で上記操作をすれば、マクロ（VBA）が全く分からなくてもできると思いますが…

補足

早速ありがとうございます。
マクロでの処理を行いたいのですが。
よろしくお願いします。

回答No.3

zap35

＃０１です。A列、B列と決まっているなら
If Cells(idx, "A").Value = 0 And Cells(idx, "B").Value = 0 Then
でよいでしょう。

お礼

ありがとうございました！！

補足

たびたびすみｍせん、この部分→Const col As String = "A"　は
このままでよいでしょうか？

回答No.2

zap35

＃０１です。マクロでも色々なアルゴリズムが考えられますが、シンプルな方法にします。「特定の列」の列名でマクロを一部修正する必要がありますので、マクロのコメントをみてください

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro1()
Dim idx As Long
Const col As String = "A"　'実際の「列名」に直してください
Application.ScreenUpdating = False
For idx = 1 To Range(col & "65536").End(xlUp).Row
　　If Cells(idx, col).Value = 0 Then
　　　　Rows(idx).Hidden = True
　　End If
Next
Application.ScreenUpdating = True
End Sub

補足

ありがとうございます！！
できました。
尚、A列、B列共、0の場合というようなことも可能でしょうか？
もし、よろしければ、教えていただきたいのですが。
よろしくお願いします。