Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » シート見出しの色が同じシートを選択するExcelマクロ

シート見出しの色が同じシートを選択するExcelマクロ

対象:Excel2007, Excel2010, Excel2013

「excel マクロ シート見出しの色で選択」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

何を探していた検索なのか、いくつかの解釈ができるキーワードですが、アクティブシートのシート見出しと同じ色のシートを選択するExcelマクロを作ってみました。

[スポンサードリンク]

シート見出しの色が同じシートを選択するサンプルマクロ

以下のようなマクロで、アクティブなシートのシート見出しと同じ色のシートをすべて選択することができます。

Sub アクティブシートのシート見出しと同じ色のシートを選択する()

 Dim color_id As Long
 Dim sh As Object

 color_id = ActiveSheet.Tab.ColorIndex

 For Each sh In Sheets
  If sh.Tab.ColorIndex = color_id Then
   sh.Select Replace:=False
  End If
 Next sh

End Sub

サンプルマクロの解説

まず、アクティブなシートの、シート見出しの色を表す数値を、変数・color_idに格納しておきます。
 color_id = ActiveSheet.Tab.ColorIndex

その後、全シートに対してループを回して、
 For Each sh In Sheets

各シートのシード見出しの色をチェックして、もしも変数・color_idの値と同じであったときに、
  If sh.Tab.ColorIndex = color_id Then

そのシートを選択しています。
   sh.Select Replace:=False

Selectメソッドの引数・ReplaceにFaflseを指定することで、既に選択されているものの選択を解除しないで、追加で選択するようにしています。

関連語句
VBA, Visual Basic for Applications

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » シート見出しの色が同じシートを選択するExcelマクロ

「Sheets・Worksheet」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.