Excel VBAでシート内全体に非表示列があるかの判定

Excel VBAでアクティブシート全体に非表示列があるかの判定は
if文でどの様に書いたらいいですか？
ご教授よろしくお願いいたします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2018/10/19 20:01

こんばんは。

例えば、こんな感じでよいと思います。

Sub IsHiddenColumn()
　Dim sh As Worksheet
　Set sh = ActiveSheet
　If sh.Rows(1).SpecialCells(xlCellTypeVisible).Count <> Columns.Count Then
　　MsgBox "非表示あり", vbExclamation
　Else
　　MsgBox "非表示なし", vbInformation
　End If
End Sub

この回答へのお礼

思い通りに出来ました！！
本当に有難うございました。
これから業務で他のBookにも活用できそうです。

お礼日時：2018/10/20 15:41