ユーザーフォームで、シートの見出しの色を変えるマクロコードをご紹介します。
シート見出しの背景色を自動で変更します。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
ユーザーフォームを作成して開く
エクセルにコマンドボタンを作成し、ユーザーフォームを開きます。
マクロコードを標準モジュール「Module1」に入力します。
Sub ボタン1_Click()
UserForm1.Show vbModeless
End Sub
マクロコードを「Module1」に入力した画面の様子
ユーザーフォーム内部にマクロコードを入力する
マクロコードを「UserForm1」に入力します。
Option Explicit
Dim Color_Num As Long
Private Sub CommandButton1_Click()
Dim MyPath As String
Dim ShtName As String
MyPath = ThisWorkbook.Path
ShtName = UserForm1.ListBox1.Value
Sheets(ShtName).Tab.ColorIndex = Color_Num
End Sub
Private Sub OptionButton1_Click()
Color_Num = 6
End Sub
Private Sub OptionButton2_Click()
Color_Num = 4
End Sub
Private Sub OptionButton3_Click()
Color_Num = 5
End Sub
Private Sub OptionButton4_Click()
Color_Num = xlNone
End Sub
Private Sub UserForm_Initialize()
Dim MyList() As Variant
Dim i As Integer
'色なしを初期値にする
OptionButton4.Value = True
With UserForm1.ListBox1
'1つだけ選択
.MultiSelect = fmMultiSelectSingle
'チェックボックス表示
.ListStyle = fmListStyleOption
ReDim Preserve MyList(Sheets.Count)
'シート名を取得
For i = 2 To Sheets.Count
MyList(i) = Sheets(i).Name
Next i
'リストボックスに追加
For i = 2 To UBound(MyList)
.AddItem MyList(i)
Next i
End With
End Sub
マクロコードを入力する場所「UserForm1」
動作
「ユーザーフォームを開く」ボタンをクリックして、ユーザーフォームを起動します。
・[ListBox1] にシート名の一覧が表示されます。
・[OptionButton] に色のリストを作成しています。
シートタブの色を変更したいシートを選択し、[OptionButton] から任意の色を選択します。
「シート見出し色を変更」ボタンをクリックすると、シートの背景色を変更します。
[OptionButton] から ”色なし” を選択して、「シート見出し色を変更」ボタンをクリックすると、
シート見出しの色をクリアします。
この記事がお役に立ちますと幸いです。

【VBAユーザーフォーム】何ができるの?:具体的な使用例11選
...