vba エディターの設定 コードの表示色をデフォルトに戻す

VBAエディタのコード表示色

デフォルトの設定値はこちら

古いExcelのスクショですが、

最新のExcelも変わらず同じ

最近の表示色の記録

配置表メモ

配置表旧コード

古い要約の表示［GUI_配置表初期化（コード）］

'要約旧設定///コンフィグ設定欄は非表示
'        Summary = .Item(1).Value '要約（配置番号）
'        Summary = Summary & Worksheets("コンフィグ").Range("コンフィグ_配置表配置番号接尾辞")
'        reg.Pattern = Worksheets("コンフィグ").Range("コンフィグ_配置表配置番号要約非表示")
'        If reg.test(.Item(1).Value) Then
'            Summary = 配置番号から配置名を返す(target)
'        Else
'            Summary = Summary & 配置番号から配置名を返す(target)
'        End If
'        Summary = Summary & " " & MLDIMarrCurrentTaskbarRangeAndFamilyName(1) '要約（氏名）
'///要約旧設定

Function 配置番号から配置名を返す(target As Range) As String '要約旧設定

    If Not IsNumeric(target.Item(1).Value) Then Exit Function

    Dim reg As Object '正規表現オブジェクト作成
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = Worksheets("コンフィグ").Range("コンフィグ_配置表配置名要約非表示文字")

    Dim myCnt As Long
    myCnt = 1
    Do While myCnt <= Range("配置表_範囲カラーピッカー").Count
        Set target = target.Offset(0, 1)
        If Not IsNumeric(target.Value) Then
            If Not reg.test(target.Value) Then 配置番号から配置名を返す = target.Value
            Exit Function
        End If
        myCnt = myCnt + 1
    Loop

End Function

タスクバーの初期色塗りの指定［GUI_配置表初期化（コード）］

'    Dim arrFixed As Variant
'    arrFixed = Split(Worksheets("コンフィグ").Range("コンフィグ_配置表配置固定者"), ",")
'    myStyle = 配置固定スタイル指定コンフィグ指定値(arrFixed, arrName(UBound(arrName))) 'arrName(UBound(arrName))は勤務計画の行番号　配列の最後を表示
'★★★

Function 配置固定スタイル指定コンフィグ指定値(arrFixed As Variant, targetRow As Variant) As Variant '２．要約表示形式

    Dim styleName As Variant
    styleName = ".初期化タスクバー"
    
    Dim reg As Object '正規表現オブジェクト作成
    Set reg = CreateObject("VBScript.RegExp")

    For Each myFixed In arrFixed
    
        reg.Pattern = Split(myFixed, ":")(1)
        If reg.test(targetRow) Then
            styleName = Split(myFixed, ":")(0)
        End If
    
    Next
    
    配置固定スタイル指定コンフィグ指定値 = styleName

End Function