📋

ColorSheetTabs

シート管理

シートタブに色を設定する

🎬 デモGIF準備中

📖 使い方

VBAエディタを開く（Alt + F11）
モジュールを挿入（挿入 > モジュール）
下記VBAコードをコピー&ペースト
ブック上で実行（Alt + F8 でマクロ選択）

💡 実行例：実行するとシート名と色を選択するダイアログが表示される

💻 VBAコード

' ColorSheetTabs
' -----------------
' Macro Name: ColorSheetTabs
' Description: シートタブに色を設定する
' Parameters: なし
' Returns: なし
' Usage: 実行するとシート名と色を選択するダイアログが表示される
' -----------------

Sub ColorSheetTabs()
    Dim ws As Worksheet
    Dim sheetName As String
    Dim colorList As String
    Dim colorCode As Long
    Dim selectedColor As String

    On Error GoTo ErrorHandler

    sheetName = InputBox("色を設定するシート名を入力:", "タブ色設定", ActiveSheet.Name)

    If sheetName = "" Then
        Exit Sub
    End If

    On Error Resume Next
    Set ws = Worksheets(sheetName)
    On Error GoTo ErrorHandler

    If ws Is Nothing Then
        MsgBox "「" & sheetName & "」は存在しません。", vbExclamation
        Exit Sub
    End If

    colorList = "色を選択してください:" & vbCrLf & _
                "1: 赤" & vbCrLf & _
                "2: 緑" & vbCrLf & _
                "3: 青" & vbCrLf & _
                "4: 黄" & vbCrLf & _
                "5: 紫" & vbCrLf & _
                "6: 橙" & vbCrLf & _
                "7: 灰" & vbCrLf & _
                "8: 黒" & vbCrLf & _
                "0: 色なし"

    selectedColor = InputBox(colorList, "タブ色設定", "1")

    Select Case selectedColor
        Case "1": colorCode = RGB(255, 0, 0)
        Case "2": colorCode = RGB(0, 176, 80)
        Case "3": colorCode = RGB(0, 112, 192)
        Case "4": colorCode = RGB(255, 192, 0)
        Case "5": colorCode = RGB(112, 48, 160)
        Case "6": colorCode = RGB(255, 102, 0)
        Case "7": colorCode = RGB(166, 166, 166)
        Case "8": colorCode = RGB(0, 0, 0)
        Case "0": colorCode = xlColorIndexNone
        Case Else
            MsgBox "無効な選択です。", vbExclamation
            Exit Sub
    End Select

    ws.Tab.Color = colorCode

    If selectedColor = "0" Then
        MsgBox "「" & sheetName & "」のタブ色をリセットしました。", vbInformation
    Else
        MsgBox "「" & sheetName & "」のタブ色を設定しました。", vbInformation
    End If
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

🔗 同カテゴリの関連マクロ