質問

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

質問者：FHLMC
投稿日時：2004/05/14 10:54

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

通報する

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

質問の本文を隠す

回答 (2件)

No.2ベストアンサー10pt

回答者：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

この回答へのお礼

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

通報する

No.1ベストアンサー20pt

回答者：tamagawa49
回答日時：2004/05/14 11:02

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

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

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