二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする

質問

二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする
windows7 excelでマクロ作成中の初心者です。
以下のコードで27行目のセルの値が0のとき列を非表示にします。

Private Sub 列非表示_Click()
Dim 列番号 As Long
'シートが保護されていたら保護を解除
Worksheets("最新明細").Activate

If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
For 列番号 = 4 To 33
If Cells(27, 列番号).Value = 0 Then
Cells(27, 列番号).EntireColumn.Hidden = True
End If
Next 列番号
ActiveSheet.Protect
End Sub
-------------------------------------------------
Private Sub 列表示_Click()
Dim 列番号 As Long
'シートが保護されていたら保護を解除
Worksheets("最新明細").Activate

If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
For 列番号 = 4 To 33
If Cells(27, 列番号).Value = 0 Then
Cells(27, 列番号).EntireColumn.Hidden = False
End If
Next 列番号
ActiveSheet.Protect
End Sub

この27行と、もう一行の28行、どちらかの行が、0のときに列を非表示・表示したいのですが、出来ません。
試行錯誤してもできないのです。どうかよろしくおねがいします。

For 列番号 = 4 To 33
If Cells(27, 列番号).Value = 0 or Cells(28, 列番号).Value = 0 Then
or( Cells(27, 列番号).EntireColumn.Hidden = True, Cells(27, 列番号).EntireColumn.Hidden = True)

End If

回答No.2

myRange · ベストアンサー

続けて登場、myRangeです。

＞今ご指摘のとおりやってみましたが、すべての列が非表示になってしまいます？

先ず、考えられることは、
該当列の２７，２８行目のセルが、０又は【未入力】になっているということです。
●未入力も０と認識されますので注意が必要です●

それから、データに問題がなければ、当然ながらコードに問題ありです。
これは●ご指摘のとおりやってみましたが●といわれても
当方では実際にどんなコードを実行させたのか部分的にしか分かりませんので
実行したコードを端折ることなく全てアップしてください。

以上です。

お礼

未入力も０と認識されますので・・・・はじめて知りましたありがとございました。思う通りになりました。

回答No.1

myRange

２７行か、２８行かという部分はＯＫですが、Hiddenの部分が間違っています。

If Cells(27, 列番号).Value = 0 Or Cells(28, 列番号).Value = 0 Then
　　　Cells(27, 列番号).EntireColumn.Hidden = True
End If

それから、Hiddenの部分は
　　　Columns(列番号).Hidden = True
としてもＯＫ

以上です。

補足

今ご指摘のとおりやってみましたが、すべての列が非表示になってしまいます？なんででしょう？