配置表旧コード
古い要約の表示［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
