Excel2000 シートの再表示

よろしくお願いします。
表題のとおり、シートを表示しないにした後、元に戻すときですが、まとめて非表示にすることが出来るのに、まとめて再表示にすることが、いろいろ試していますが出来ないように思います。
もし、やり方がありましたら教えてください。

No.4 回答者： KenKen_SP 回答日時： 2005/10/03 22:50

> ＃２のご回答の内容であれば xlSheetVisibility クラスの...

値でみれば

xlSheetHidden ＝　0
xlSheetVeryHidden　＝　2
xlSheetVisible　＝　-1

で、

True ＝　-1
False ＝　0

ですから、別ではなく完全に同一の内容です。
#2 で xlSheetVisibility クラスの定数を使ったのは
xlSheetVeryHidden を明示的に意識した結果です。

No.3 回答者： imogasi 回答日時： 2005/10/03 21:59

VBAで

Sub test01()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
If sh.Visible = False Then
sh.Visible = True
End If
Next
End Sub

＃２のご回答と少し違いますが,上記でもよいと思います。
＃２のご回答の内容であれば　xlSheetVisibilityクラスの
xlSheetHidden
xlSheetVeryHidden
xlSheetVisible
が別にあるようなので、調べてください。

No.2 回答者： KenKen_SP 回答日時： 2005/10/03 18:53

こんにちは。

KenKen_SP です。

次のようなマクロを個人用マクロブックにでも登録しておくと
良いかも。

Sub シート一括再表示()

　　Dim Sh As Worksheet
　　For Each Sh In ActiveWorkbook.Worksheets
　　　　If Sh.Visible = xlSheetHidden Then
　　　　　　Sh.Visible = xlSheetVisible
　　　　End If
　　Next Sh

End Sub

この回答へのお礼

ありがとうございました。参考にさせていただきます。
ただ、今回は、初心者に質問されてのことなので、ちょっとムリそうです・・・

お礼日時：2005/10/05 01:02

No.1 回答者： violet430 回答日時： 2005/10/03 18:50

できないですね。

一つ一つ実行していくしかありません。

この回答へのお礼

めんどくさいですよね・・・
ありがとうございました。

お礼日時：2005/10/05 01:00