エクセルでシートを一括で再表示するには

EXCEL97を使っているのですが、
複数のシートを非表示にした後、全部再表示させたい場合、書式→シート→再表示だと、1枚ずつしか再表示できなくて時間がかかってしまいます。
非表示になっている全部のシート、あるいは任意の何枚かを一括で再表示させたい場合はどうすればいいですか？

No.1 ベストアンサー 回答者： tamagawa49 回答日時： 2004/05/14 11:02

ExcelのVBAではいかがでしょうか。

Sub 全シート表示()
For Each x In Worksheets
x.Visible = True
Next
End Sub

このようなプログラムを実行すると全てのシートが表示されます。任意の何枚かというのはプログラムでは却って面倒な気もします。
少しでも役に立つと良いのですが…。頑張って下さい。

この回答へのお礼

できました！どうもありがとうございました。
週末を挟んでしまい、お礼が遅くなりましてすみませんでした。

お礼日時：2004/05/17 12:49

No.2 回答者： imogasi 回答日時： 2004/05/14 15:28

書式－シート－再表示で出てくる２つ以上のシート名を

一時に捉える操作が無い様で、旨く実現できません。
ボタンにＶＢＡを貼りつけて実行するほか無いかも。
Sub test01()
For i = 1 To Sheets.Count
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
End If
Next i
End Sub

この回答へのお礼

同じくお礼が遅れて申し訳ありませんでした。
こちらも上手く一括表示できました。どうもありがとうございます。
再表示するシートをすばやく複数選択するのは、やはり難しいのですね。。。非表示にする時は簡単なのに、意外でした。

お礼日時：2004/05/17 12:52