Excel VBA質問箱 IV

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

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


52225 / 76732 ←次へ | 前へ→

【29348】Re:特定のシート以外を全て非表示にしたい
回答  かみちゃん  - 05/10/2(日) 0:52 -

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

>非表示にしたくないシートが複数に増えた場合は
>配列にでもシート名を持たせれば良いでしょうか?

以下のような感じでできると思います。

Sub Macro1()
 Dim i As Integer
 Dim strSheet As Variant
 Dim s As Worksheet
 Dim VisibleSheetCk As Boolean
 
 '表示対象シートを記述
 strSheet = Array("Sheet2", "Sheet3")
 
 '全シートの表示・非表示切替
 For Each s In Worksheets
  With s
   VisibleSheetCk = False
   '配列内部をチェック
   For i = 0 To UBound(strSheet)
    If .Name = Sheets(strSheet(i)).Name Then
     VisibleSheetCk = True
     Exit For
    End If
   Next
   .Visible = VisibleSheetCk
  End With
 Next
End Sub

0 hits

【29345】特定のシート以外を全て非表示にしたい NK 05/10/2(日) 0:22 質問
【29346】Re:特定のシート以外を全て非表示にしたい かみちゃん 05/10/2(日) 0:31 回答
【29347】Re:特定のシート以外を全て非表示にしたい NK 05/10/2(日) 0:38 質問
【29348】Re:特定のシート以外を全て非表示にしたい かみちゃん 05/10/2(日) 0:52 回答
【29350】Re:特定のシート以外を全て非表示にしたい NK 05/10/2(日) 1:03 お礼

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