通勤認定エクセルツール対応12 表示しない対応

src/sh/tuk/module/Common_Selector.bas

@@ -218,6 +218,32 @@ Public Sub BuildRenrakuDropdown(ws As Worksheet, ByVal columnLetter As String, B
     End With
 End Sub
 
+' Create display dropdown
+Public Sub BuildDisplayDropdown(ws As Worksheet, ByVal rowNum As Long)
+    ' validate sheet
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    If Not sheetConfDict.Exists(ws.CodeName) Then
+        Err.Raise ERR_CONFIG_NOT_FOUND, "BuildDisplayDropdown", "Sheet not configured: " & ws.CodeName
+    End If
+
+    ' validate Display
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
+    If Not sheetConf.Exists("DisplayCol") Then
+        Err.Raise ERR_CONFIG_NOT_FOUND, "BuildDisplayDropdown", "Display Column not configured: " & ws.CodeName
+    End If
+
+    Dim displayCol As String: displayCol = sheetConf("DisplayCol")
+    Dim dropdownList As String: dropdownList = "0:OFF,1:ON"
+    With ws.Range(displayCol & rowNum).Validation
+        .Delete
+        .Add Type:=xlValidateList, Formula1:=dropdownList
+        .IgnoreBlank = True
+        .InCellDropdown = True
+        .InputTitle = ""
+        .InputMessage = ""
+    End With
+End Sub
+
 ' Build dropdown using Caches sheet
 Public Sub BuildDropdownFromCacheNamedRange(ws As Worksheet, columnLetter As String, rowNum As Long, cacheName As String)
     Dim formula As String: formula = GetValidationFormula(cacheName)