20260515指摘対応5

src/sh/tuk/module/Common_Selector.bas

@@ -191,7 +191,7 @@ Public Sub BuildKenshuDropdown(ws As Worksheet, ByVal columnLetter As String, By
     End With
 End Sub
 
-' Create Kenshu dropdown (exclude key = 0)
+' Create Tokubetu dropdown
 Public Sub BuildTokubetuDropdown(ws As Worksheet, ByVal columnLetter As String, ByVal rowNum As Long)
     Dim tokubetuList As Object: Set tokubetuList = GetCache("tokubetuList")
     Dim dropdownList As String: dropdownList = ""
@@ -212,4 +212,40 @@ Public Sub BuildTokubetuDropdown(ws As Worksheet, ByVal columnLetter As String,
         .InputTitle = ""
         .InputMessage = ""
     End With
-End Sub
+End Sub
+
+' Create Renraku dropdown
+Public Sub BuildRenrakuDropdown(ws As Worksheet, ByVal columnLetter As String, ByVal rowNum As Long)
+    Dim renrakuList As Object: Set renrakuList = GetCache("renrakuList")
+    Dim dropdownList As String: dropdownList = ""
+    Dim key As Variant
+    For Each key In renrakuList.Keys
+        If dropdownList = "" Then
+            dropdownList = key
+        Else
+            dropdownList = dropdownList & "," & key
+        End If
+    Next key
+    
+    With ws.Range(columnLetter & 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)
+    If formula = "" Then Exit Sub
+    
+    With ws.Range(columnLetter & rowNum).Validation
+        .Delete
+        .Add Type:=xlValidateList, Formula1:=formula
+        .IgnoreBlank = True
+        .InCellDropdown = True
+    End With
+End Sub