[[20160523102537]]　『非表示について』（VV）　ページの最後に飛ぶ

『非表示について』（VV）

皆様
教えて下さい。

1000行　50列　１行目はタイトルの表題があります。
空白のセルはありません。

やりたいことはA列の２行目から１０００行（1000行とは限りません１５００行のときもあります）まで全て０がはいっていたら
その列を非表示にしたいのです最終的には５０列全てやりたいです。

if文でセルに◎◎がはいっていたら、その列は非表示にするというのは
できそうなのですが、上のような条件になるとさっぱりです。
お手数ですが、教えてもらえませんでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

オートフィルタをかけて、プルダウンメニューの（オプション）→「０と等しくない」を設定すれば「０」以外の行だけが表示
（みっく） 2016/05/23(月) 11:02

みっくさん
私の質問の仕方が悪かったのですが、みっくさんのやり方だと、行だけ非表示になります。

A列の２行目から１０００行（1000行とは限りません１５００行のときもあります）まで全て０がはいっていたら A列を非表示にしたいのです。（最終的には５０列ほど）
（VV） 2016/05/23(月) 11:49

[ファイル] ー[オプション] ー[詳細設定]

[次のシートで作業するときの表示設定] ー[ゼロ値のセルにゼロを表示する]

[ゼロ値のセルにゼロを表示する] チェックボックスをオフにします。

シート全体になりますが
若しくは　
0を削除する　マクロ組むとか
（みっく） 2016/05/23(月) 13:56

 A列だけの場合ですが･･･

 Sub test()

     Dim LastRow As Long

     LastRow = Cells(Rows.Count, 1).End(xlUp).Row

     If Application.CountIf(Range("A2:A" & LastRow), 0) = LastRow - 1 Then Columns("A").EntireColumn.Hidden = True

 End Sub
（se_9） 2016/05/23(月) 14:07

Sub main()

    Dim i As Long, j As Long, flg As Boolean
    For j = 1 To 50
    flg = False
        For i = 2 To 1000
        If ActiveSheet.Cells(i, j).Text <> "0" Then flg = True: Exit For
        Next i
    If Not flg Then Columns(j).EntireColumn.Hidden = True
    Next j
End Sub
（mm） 2016/05/23(月) 14:13

Sub test()
ActiveWindow.DisplayZeros = False
End Sub
（みっく） 2016/05/23(月) 14:45

コメント返信：

[ 一覧(最新更新順) ]

[[20160523102537]] 『非表示について』（VV） ページの最後に飛ぶ

[[20160523102537]]　『非表示について』（VV）　ページの最後に飛ぶ