Andrewは、ワークシートのタブの色を手動で変更する方法を知っています。

ただし、ワークシートのセルの値に基づいてタブの色を変更する方法を望んでいます。

これを行うには、マクロを使用する必要があります。重要なのは、次のようにTabオブジェクトのColorプロパティを変更することです。

ActiveSheet.Tab.Color = vbRed

このような色の割り当てを行うために使用するロジックは、実行する内容と実行するタイミングによって異なります。セルA1の内容に基づいてタブの色を変更するとすると、次のようなマクロを使用できます。

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab         Select Case MyVal             Case "0"

.Color = vbBlack             Case "1"

.Color = vbRed             Case "2"

.Color = vbGreen             Case "3"

.Color = vbYellow             Case "4"

.Color = vbBlue             Case "5"

.Color = vbMagenta             Case "6"

.Color = vbCyan             Case "7"

.Color = vbWhite             Case Else                 .ColorIndex = xlColorIndexNone         End Select     End With End Sub

タブを変更するワークシートのコードにマクロを追加する必要があります。 （シートのタブを右クリックし、[コンテキスト]メニューから[コードの表示]を選択します。コードをそのコードウィンドウに貼り付けます。）マクロはセルA1にあるものをすべて取得し、[ケースの選択]構造を使用してタブの色を変更します。 A1に0から7が含まれている場合、ロジックは色を変更します。他に何かがある場合（またはまったくない場合）、ColorIndexプロパティを使用して、タブの色をデフォルトに戻します。

マクロを変更して、テスト対象がテキスト文字列（「黒」、「赤」など）またはキーワード（「低」や「高」など）になるようにすることができます。 RGB関数など、Colorプロパティでさまざまな色指定を使用することもできます。

.Color = RGB(255, 0, 0)

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（13138）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。