13行目のセルの値が0のとき、その列を非表示にする

質問

Windows7 Excel2007でマクロ作成中の初心者です。
13行目のセルの値が、0のときは、その列を非表示にするというマクロを作ろうとしましたが
なかなか難しくておてあげです。探したら次のようなコードがでてきました。

ボタンを押すとK列の値を参照して「A」と表示されている行を隠し、「表示する」ボタンを押すと、
解除するという処理。

Option Explicit
Private Sub Cmd隠す_Click()
　Dim 行番号 As Long

　'行を隠す
　For 行番号 = 4 To 13
　　If Cells(行番号, 11).Value = "A" Then
　　　Cells(行番号, 1).EntireRow.Hidden = True
　　End If
　Next 行番号
End Sub

Private Sub Cmd表示する_Click()
　'表全体を再表示する
　Cells.Select
　Selection.EntireRow.Hidden = False
　Selection.EntireColumn.Hidden = False

　Cells(1, 1).Select
End Sub

このコードを利用して、13行目のセルの値が、0のときは、その列を非表示にするというコードにしたいのです。
よろしくおねがいします。

回答No.2

myRange · ベストアンサー

提示してあるコードの行を列に変えてやればいいわけですが、
自分でやってみてどこら辺りが分からなかったのでしょうか？
それを提示してそれについてアドバイスをもらう方がより勉強になると思いますが。

ま、それはそれとして。。。。

'------------------------------------
Private Sub CommandButton1_Click()
　Dim 列番号 As Long

　For 列番号 = 3 To 28
　　　If Cells(13, 列番号).Value = 0 Then
　　　　　Cells(13, 列番号).EntireColumn.Hidden = True
　　　End If
　Next 列番号
End Sub
'----------------------------------

●但し、該当セル（Ｃ１３～ＡＢ１３）には未入力のセルがないものとします。
以上です。

お礼

ありがとうございました。ご忠告ありがとございます。もっと勉強したいと思います。

回答No.1

wkbqp833

１３行目の列番号は何ですか

それがないと、コードが組めません

補足

すいません。Ｂ6からＡＢ56の範囲に表があり、Ｂ6からＡＢ6までとＢ6からＢ56までが見出しになっています。この表のＣ13からＡＢ13までの列の中で
0のセルが入っている列を非表示にしたいです。