Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9060 / 13644 ツリー ←次へ | 前へ→

【29521】シートの表示、非表示状態の取得 みさき 05/10/6(木) 21:01 質問[未読]
【29522】Re:シートの表示、非表示状態の取得 かみちゃん 05/10/6(木) 21:08 回答[未読]
【29527】Re:シートの表示、非表示状態の取得 みさき 05/10/6(木) 22:00 お礼[未読]
【29565】Re:シートの表示、非表示状態の取得 みさき 05/10/7(金) 19:48 質問[未読]

【29521】シートの表示、非表示状態の取得
質問  みさき  - 05/10/6(木) 21:01 -

引用なし
パスワード
   こんばんは。

シート3枚を使い分け、表示、非表示を制御するようなVBAを
作ろうとしています。
Worksheets(2).Visible に TrueやFalseを設定して
シートの表示、非表示を切り替えているのですが
シートの表示状態を取得することは可能なのでしょうか?
例えば、シート2が、表示状態なのか?非表示状態なのか?
を取得したいのです。

分かりづらい説明ですみません。
宜しくお願いします。

【29522】Re:シートの表示、非表示状態の取得
回答  かみちゃん  - 05/10/6(木) 21:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シートの表示状態を取得することは可能なのでしょうか?
>例えば、シート2が、表示状態なのか?非表示状態なのか?
>を取得したいのです。

Visibleプロパティで設定できているのですから、値の取得もできると思います。
以下のような感じでできると思います。

Sub Macro1()
 Dim ws As Worksheet
 
 Set ws = Sheets("Sheet1")
 If ws.Visible Then
  MsgBox ws.Name & "は表示されています。"
 Else
  MsgBox ws.Name & "は非表示です。"
 End If
 Set ws = Nothing
End Sub

【29527】Re:シートの表示、非表示状態の取得
お礼  みさき  - 05/10/6(木) 22:00 -

引用なし
パスワード
   ▼かみちゃん さん:

ありがとうございます。
状態取得できました。
設定できるのだから、取得もできるんですね!
有り難うございました。

【29565】Re:シートの表示、非表示状態の取得
質問  みさき  - 05/10/7(金) 19:48 -

引用なし
パスワード
   また質問させてくださいm(__)m。

メニューバーに独自のメニューを追加しています。
そのメニューバーも表示、非表示と切り替えているのですが
その状態も取得することは可能なのでしょうか?

宜しくお願い致します。

9060 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free