[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『非表示について』(VV)
皆様
教えて下さい。
1000行 50列 1行目はタイトルの表題があります。
空白のセルはありません。
やりたいことはA列の2行目から1000行(1000行とは限りません1500行のときもあります)まで全て0がはいっていたら
その列を非表示にしたいのです最終的には50列全てやりたいです。
if文でセルに◎◎がはいっていたら、その列は非表示にするというのは
できそうなのですが、上のような条件になるとさっぱりです。
お手数ですが、教えてもらえませんでしょうか。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
A列の2行目から1000行(1000行とは限りません1500行のときもあります)まで全て0がはいっていたら A列を非表示にしたいのです。(最終的には50列ほど)
(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
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.