ExcelのVBAで、複数あるシートに対し、現在アクティブとなっている

Question

yoshifuku

421

377もっと見る

60pt

コンピュータ

ExcelのVBAで、複数あるシートに対し、現在アクティブとなっている

シート以外は全て非表示にするには、どのような記述をすれば
よいでしょうか。

どうぞよろしくお願い致します。

※Excel2003を使用しております。
※各シート名は固定ではなく任意です。
※シート数も固定数ではありません。

回答の条件

1人1回まで

登録：2010/11/15 10:31:51
終了：2010/11/15 16:51:38

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.2

jccrh1111192010/11/15 12:12:42

10pt

以下のVBAでできるかと思います。

Sub シート非表示()
  Dim シート As Worksheet
  For Each シート In Sheets
   If シート.Name <> ActiveSheet.Name Then
     シート.Visible = xlSheetHidden
   End If
  Next
End Sub

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

うぃんど · Accepted Answer · 2010-11-15T10:59:59+09:00

アクティブなシートの名前を変数に控えておいて、それ以外を非表示にするという流れになっています

Sub Macro1()
    Dim activeSheetName As String
    
    activeSheetName = ActiveSheet.Name
    For Each s In ActiveWorkbook.Sheets
        If s.Name <> activeSheetName Then s.Visible = False
    Next
End Sub

ついでに、すべてのシートを表示するマクロも作っておきました

Sub Macro2()
    For Each s In ActiveWorkbook.Sheets
        s.Visible = True
    Next
End Sub

うぃんど · Accepted Answer · 2010-11-15T10:59:59+09:00

アクティブなシートの名前を変数に控えておいて、それ以外を非表示にするという流れになっています

Sub Macro1()
    Dim activeSheetName As String
    
    activeSheetName = ActiveSheet.Name
    For Each s In ActiveWorkbook.Sheets
        If s.Name <> activeSheetName Then s.Visible = False
    Next
End Sub

ついでに、すべてのシートを表示するマクロも作っておきました

Sub Macro2()
    For Each s In ActiveWorkbook.Sheets
        s.Visible = True
    Next
End Sub

ExcelのVBAで、複数あるシートに対し、現在アクティブとなっている

ベストアンサー

うぃんど262511492010/11/15 10:59:59

その他の回答（1件）

うぃんど262511492010/11/15 10:59:59ここでベストアンサー

jccrh1111192010/11/15 12:12:42

コメント（0件)

この質問への反応（ブックマークコメント）