アプリ版：「スタンプのみでお礼する」機能のリリースについて

マジレス希望

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

解決済

  • 質問者：Harmaiony
  • 質問日時：
  • 回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： WindFaller
  • 回答日時：

こんばんは。


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

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
    • good
    • 2
    • 件
通報する
この回答へのお礼

助かりました

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

通報する
お礼日時：2018/10/20 15:41

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報