二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする
二つの行のうち、どちらかが、セルの値がゼロのとき、その列を非表示にする
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
お礼
ありがとうございます。 思ったことができました。 感謝。