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マクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Sheets・Worksheet」の記事一覧