通勤認定エクセルツール対応12 M1 対応

2026-05-28 12:58:08 +09:00
parent df9cd0a7ad
commit 50ef0c74cc
14 changed files with 602 additions and 199 deletions
@@ -6,46 +6,25 @@ Public lastErrorMsg As String

 ' ============================================================
 ' Module Name: Common_Button
-' Module Desc: Common Button handlers with centralized error handling
-' Module Methods:
-'   - CSV_Import_Button
-'   - Validation_Button
-'   - CSV_Export_Button
-'   - Sort_Button
-'   - Filter_Button
+' Module Desc: Common button handlers with centralized error handling
+' Public Methods:
+'   - CSV_Import_Button    (CSV import entry, binds to sheet button)
+'   - Validation_Button    (validation entry, binds to sheet button)
+'   - CSV_Export_Button    (CSV export entry, binds to sheet button)
+'   - Sort_Button          (sort entry, binds to sheet button)
+'   - Filter_Button       (filter entry, binds to sheet button)
+'   - Fit_Button          (autofit column width, binds to sheet button)
+'   - RefreshCache_Button (refresh master cache)
+'   - RunValidationSilent (validate sheet, returns row count or -1)
+'   - HandleError         (centralized error handler)
+' Private Methods:
+'   - ValidateKukanCache
+'   - UpdateByMaster
 '   - Fit_Button
-'   - RefreshCache_Button
 ' ============================================================

-' --- Public Button Functions ---
-
-Sub CSV_Import_Button()
-    DO_CSV_Import ActiveSheet
-End Sub
-
-Sub Validation_Button()
-    Do_Validation ActiveSheet
-End Sub
-
-Sub CSV_Export_Button()
-    DO_CSV_Export ActiveSheet
-End Sub
-
-Sub Sort_Button()
-    Do_Sort ActiveSheet
-End Sub
-
-Sub Filter_Button()
-    Do_Filter ActiveSheet
-End Sub
-
-Sub Fit_Button()
-    Do_Fit ActiveSheet
-End Sub
-
 Sub RefreshCache_Button()
    On Error GoTo ErrorHandler
-    Dim exitMsg As String
    Dim activeSheetName As String: activeSheetName = ActiveSheet.CodeName

    Debug.Print "1. Validate Z1~Z4, T1~T3, O1~O3 master data"
@@ -115,9 +94,10 @@ Private Sub UpdateByMaster(ByVal sheetName As String)
 End Sub

 ' ============================================================
-' CSV Import with error handler
+' CSV Import entry point (binds to sheet button)
 ' ============================================================
-Private Sub DO_CSV_Import(ws As Excel.Worksheet)
+Public Sub CSV_Import_Button()
+    Dim ws As Worksheet: Set ws = ActiveSheet
    On Error GoTo ErrorHandler

    ' Step 1: get csv encoding
@@ -137,9 +117,9 @@ Private Sub DO_CSV_Import(ws As Excel.Worksheet)
    End If

    ' === Step 4: Clear all data rows before import ===
-    Call ClearDataRows(ws)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
+    Call ClearDataRows(ws)

    ' === Step 5: Write CSV data to worksheet ===
    Dim colLetters As Variant: colLetters = cfg("HeaderColumns")
@@ -169,10 +149,12 @@ FinallyExit:
 End Sub

 ' ============================================================
-' Do_Validation with HandleError
+' Do_Validation entry point (binds to sheet button)
 ' ============================================================
-Private Sub Do_Validation(ws As Excel.Worksheet)
+Public Sub Validation_Button()
+    Dim ws As Worksheet: Set ws = ActiveSheet
    On Error GoTo ErrorHandler
+    Application.EnableEvents = False

    Dim result As Long: result = RunValidationSilent(ws)
    
@@ -197,22 +179,22 @@ Private Sub Do_Validation(ws As Excel.Worksheet)
        Application.Run "M1.ValidateWarn", ws, lastDataRow
    End If

-    GoTo FinallyExit
+    Do_Fit_Internal ws
+    Application.EnableEvents = True
    Exit Sub

 ErrorHandler:
+    Application.EnableEvents = True
    HandleError "Do_Validation"
-    GoTo FinallyExit
+    Do_Fit_Internal ws

-FinallyExit:
-    Do_Fit ws
-    ClearFormatsBelowLastDataRow ws
 End Sub

 ' ============================================================
-' CSV Export with HandleError
+' CSV Export entry point (binds to sheet button)
 ' ============================================================
-Private Sub DO_CSV_Export(ws As Excel.Worksheet)
+Public Sub CSV_Export_Button()
+    Dim ws As Worksheet: Set ws = ActiveSheet
    On Error GoTo ErrorHandler

    ' === Step 1: Validate all rows before export ===
@@ -284,10 +266,12 @@ ErrorHandler:
    HandleError "DO_CSV_Export"
 End Sub

+
 ' ============================================================
-' Do_Sort with HandleError
+' Do_Sort entry point (binds to sheet button)
 ' ============================================================
-Private Sub Do_Sort(ws As Excel.Worksheet)
+Public Sub Sort_Button()
+    Dim ws As Worksheet: Set ws = ActiveSheet
    On Error GoTo ErrorHandler

    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
@@ -303,9 +287,7 @@ Private Sub Do_Sort(ws As Excel.Worksheet)
    End If

    Dim sortRange As Range: Set sortRange = ws.Range(ws.Cells(startRow, ws.Range(startCol & "1").Column), ws.Cells(lastDataRow, ws.Range(endCol & "1").Column))
-    sortRange.Select
-
-    ' Show sort dialog
+    Application.Goto sortRange
    Application.Dialogs(xlDialogSort).Show
    Exit Sub

@@ -313,15 +295,17 @@ ErrorHandler:
    HandleError "Do_Sort"
 End Sub

+
 ' ============================================================
-' Do_Filter with HandleError
+' Do_Filter entry point (binds to sheet button)
 ' ============================================================
-Private Sub Do_Filter(ws As Excel.Worksheet)
+Public Sub Filter_Button()
+    Dim ws As Worksheet: Set ws = ActiveSheet
    On Error GoTo ErrorHandler

    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
-    
+
    ' Check if auto filter is already on
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
@@ -341,10 +325,14 @@ ErrorHandler:
    HandleError "Do_Filter"
 End Sub

+Public Sub Fit_Button()
+    Do_Fit_Internal ActiveSheet
+End Sub
+
 ' ============================================================
-' Do_Fit with HandleError
+' Do_Fit internal implementation
 ' ============================================================
-Private Sub Do_Fit(ws As Excel.Worksheet)
+Private Sub Do_Fit_Internal(ws As Excel.Worksheet)
    On Error GoTo ErrorHandler

    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
@@ -261,7 +261,6 @@ Sub ClearDataRows(ByVal ws As Worksheet)
    Dim endCol As String: endCol = sheetConf("EndCol")
    Dim errorCol As String: errorCol = sheetConf("ErrorCol")

-    Application.EnableEvents = False
    Dim lastDataRow As Long: lastDataRow = GetLastDataRowInRange(ws)
    If lastDataRow >= startRow Then
        Dim clearRange As Range
@@ -278,18 +277,16 @@ Sub ClearDataRows(ByVal ws As Worksheet)
    End If
    
    ' Clear formats below lastDataRow (including dropdowns)
-    Application.EnableEvents = True
    Call ClearFormatsBelowLastDataRow(ws)
 End Sub

 'Clear formats below lastDataRow
 Sub ClearFormatsBelowLastDataRow(ws As Worksheet)
-    On Error GoTo ErrorHandler
    Dim lastRow As Long: lastRow = GetLastDataRowInRange(ws)
-    
+
    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
-    
+
    Dim startCol As Long, endCol As Long
    startCol = ws.Range(sheetConf("ErrorCol") & "1").Column
    endCol = ws.Range(sheetConf("EndCol") & "1").Column
@@ -302,14 +299,9 @@ Sub ClearFormatsBelowLastDataRow(ws As Worksheet)
        ws.Cells(ws.Rows.Count, endCol) _
    )

-    Application.EnableEvents = False
    clearRange.ClearContents
    clearRange.Interior.Color = vbWhite
    clearRange.Validation.Delete
-    Application.EnableEvents = True
-
-ErrorHandler:
-    Application.EnableEvents = True
 End Sub

 ' Check if text starts with prefix
@@ -12,6 +12,7 @@ Public Const CACHE_Z1 As String = "Z1"
 Public Const CACHE_Z2 As String = "Z2"
 Public Const CACHE_Z3 As String = "Z3"
 Public Const CACHE_Z4 As String = "Z4"
+Public Const CACHE_Z4ROSEN As String = "Z4Rosen"
 Public Const CACHE_T1 As String = "T1"
 Public Const CACHE_T2 As String = "T2"
 Public Const CACHE_T3 As String = "T3"
@@ -64,8 +65,10 @@ Public Sub RefreshCache(ByVal cacheName As String)
    ElseIf cacheName = "M2" Then
        Set loadedData = LookupM2Cache()
    ElseIf cacheName = CACHE_O1 Then
-        Set loadedData = LookupO1Cache()
-    ElseIf Contains(sheetConfDict("Enum"), cacheName) Then
+            Set loadedData = LookupO1Cache()
+        ElseIf cacheName = CACHE_Z4ROSEN Then
+            Set loadedData = LookupZ4RosenCache()
+        ElseIf Contains(sheetConfDict("Enum"), cacheName) Then
        Set loadedData = LoadLookup("Enum", cacheName)
    Else
        Set loadedData = LoadLookup(cacheName, cacheName)
@@ -284,6 +287,69 @@ ErrHandler:
    End If
 End Function

+' ============================================================
+' Z4 Rosen Cache - nested dict for M1 E/F/H cascade dropdown
+' Structure: { rosen [F]: { stationFrom [D]: [stationTo E, ...] } }
+' ============================================================
+Private Function LookupZ4RosenCache() As Object
+    Dim resultCache As Object
+    Set resultCache = CreateObject("Scripting.Dictionary")
+    resultCache.CompareMode = vbTextCompare
+
+    On Error GoTo ErrHandler
+
+    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets(CACHE_Z4)
+
+    Dim sheetConf As Object: Set sheetConf = GetSheetConfig()(CACHE_Z4)
+    Dim startRow As Long: startRow = sheetConf("StartRow")
+    Dim lastRow As Long: lastRow = GetLastDataRowInRange(ws)
+    If lastRow < startRow Then
+        Set LookupZ4RosenCache = resultCache
+        Exit Function
+    End If
+
+    Dim r As Long
+    For r = startRow To lastRow
+        Dim rosen As String: rosen = Trim(ws.Cells(r, 6).Value)
+        Dim stationFrom As String: stationFrom = Trim(ws.Cells(r, 4).Value)
+        Dim stationTo As String: stationTo = Trim(ws.Cells(r, 5).Value)
+
+        If rosen = "" Or stationFrom = "" Then GoTo NextRow3
+
+        If Not resultCache.Exists(rosen) Then
+            Dim innerDict As Object
+            Set innerDict = CreateObject("Scripting.Dictionary")
+            innerDict.CompareMode = vbTextCompare
+            resultCache.Add rosen, innerDict
+        End If
+
+        Set innerDict = resultCache(rosen)
+        If Not innerDict.Exists(stationFrom) Then
+            Dim arr As Object
+            Set arr = CreateObject("Scripting.Dictionary")
+            arr.CompareMode = vbTextCompare
+            innerDict.Add stationFrom, arr
+        End If
+
+        Set arr = innerDict(stationFrom)
+        If stationTo <> "" And Not arr.Exists(stationTo) Then
+            arr.Add stationTo, True
+        End If
+
+NextRow3:
+    Next r
+
+    Set LookupZ4RosenCache = resultCache
+    Exit Function
+
+ErrHandler:
+    If Err.Number = 9 Then
+        Err.Raise ERR_SHEET_MISSING, "LookupZ4RosenCache", "Sheet 'Z4' not found."
+    Else
+        Err.Raise ERR_CACHE_NOT_FOUND, "LookupZ4RosenCache", "Failed to load Z4Rosen cache: " & Err.Description
+    End If
+End Function
+
 Private Sub RefreshSheetDict()
    Debug.Print "RefreshSheetDict begin."
    Set sheetConfDict = CreateObject("Scripting.Dictionary")
@@ -341,58 +407,61 @@ Private Sub RefreshSheetDict()
    Debug.Print "RefreshSheetDict M2 ok."

    ' Z1
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "I"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 7
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4)
-    Set sheetConfDict(CACHE_Z1) = sheetConf
-    Debug.Print "RefreshSheetDict Z1 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "I"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "H"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 7
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4)
+        Set sheetConfDict(CACHE_Z1) = sheetConf
+        Debug.Print "RefreshSheetDict Z1 ok."

    ' Z2
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "G"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 5
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4)
-    Set sheetConfDict(CACHE_Z2) = sheetConf
-    Debug.Print "RefreshSheetDict Z2 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "G"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "G"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 5
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4)
+        Set sheetConfDict(CACHE_Z2) = sheetConf
+        Debug.Print "RefreshSheetDict Z2 ok."

    ' Z3
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "H"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 6
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4)
-    Set sheetConfDict(CACHE_Z3) = sheetConf
-    Debug.Print "RefreshSheetDict Z3 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "H"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "G"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 6
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4)
+        Set sheetConfDict(CACHE_Z3) = sheetConf
+        Debug.Print "RefreshSheetDict Z3 ok."

    ' Z4
    Set sheetConf = CreateObject("Scripting.Dictionary")
@@ -414,58 +483,61 @@ Private Sub RefreshSheetDict()
    Debug.Print "RefreshSheetDict Z4 ok."

    ' T1
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "G"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 5
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4)
-    Set sheetConfDict(CACHE_T1) = sheetConf
-    Debug.Print "RefreshSheetDict T1 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "G"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "G"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 5
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4)
+        Set sheetConfDict(CACHE_T1) = sheetConf
+        Debug.Print "RefreshSheetDict T1 ok."

    ' T2
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "M"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 11
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4, 8, 9, 10, 11, 12, 13)
-    Set sheetConfDict(CACHE_T2) = sheetConf
-    Debug.Print "RefreshSheetDict T2 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "M"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "G"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 11
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4, 8, 9, 10, 11, 12, 13)
+        Set sheetConfDict(CACHE_T2) = sheetConf
+        Debug.Print "RefreshSheetDict T2 ok."

    ' T3
-    Set sheetConf = CreateObject("Scripting.Dictionary")
-    sheetConf("StartCol") = "C"
-    sheetConf("EndCol") = "I"
-    sheetConf("ErrorCol") = "B"
-    sheetConf("StartRow") = 7
-    sheetConf("HeaderRow") = 5
-    sheetConf("CSV_Encoding") = "utf-8"
-    sheetConf("HasHeader") = False
-    sheetConf("ExpectedColumnCount") = 7
-    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I")
-    sheetConf("AlwaysQuote") = True
-    sheetConf("FilterRow") = 6
-    sheetConf("KeyCol") = 3
-    sheetConf("ValueCols") = Array(4, 8, 9)
-    Set sheetConfDict(CACHE_T3) = sheetConf
-    Debug.Print "RefreshSheetDict T3 ok."
+        Set sheetConf = CreateObject("Scripting.Dictionary")
+        sheetConf("StartCol") = "C"
+        sheetConf("EndCol") = "I"
+        sheetConf("ErrorCol") = "B"
+        sheetConf("DisplayCol") = "G"
+        sheetConf("StartRow") = 7
+        sheetConf("HeaderRow") = 5
+        sheetConf("CSV_Encoding") = "utf-8"
+        sheetConf("HasHeader") = False
+        sheetConf("ExpectedColumnCount") = 7
+        sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I")
+        sheetConf("AlwaysQuote") = True
+        sheetConf("FilterRow") = 6
+        sheetConf("KeyCol") = 3
+        sheetConf("ValueCols") = Array(4, 8, 9)
+        Set sheetConfDict(CACHE_T3) = sheetConf
+        Debug.Print "RefreshSheetDict T3 ok."

    ' O1
    Set sheetConf = CreateObject("Scripting.Dictionary")
@@ -610,7 +682,7 @@ End Sub
 Public Sub RefreshMasterCache()
    ' Fixed cache names
    Dim fixedCaches As Variant
-    fixedCaches = Array(CACHE_Z1, CACHE_Z2, CACHE_Z3, CACHE_T1, CACHE_T2, CACHE_T3, CACHE_O1, CACHE_O2, CACHE_O3)
+    fixedCaches = Array(CACHE_Z1, CACHE_Z2, CACHE_Z3, CACHE_Z4, CACHE_Z4ROSEN, CACHE_T1, CACHE_T2, CACHE_T3, CACHE_O1, CACHE_O2, CACHE_O3)
    
    ' Refresh fixed caches
    Dim cacheName As Variant
@@ -626,6 +698,7 @@ Public Sub RefreshKukanCache(ByVal sheetName As String)
    If sheetName = "M1" Then
        Call RefreshCache("M1")
        Call RefreshCache("M1KukanDCache")
+        Call RefreshCache(CACHE_Z4ROSEN)
        Call WriteCachesSheet("M1")
    End If
    If sheetName = "M2" Then
@@ -218,6 +218,77 @@ Public Sub BuildRenrakuDropdown(ws As Worksheet, ByVal columnLetter As String, B
    End With
 End Sub

+' ============================================================
+' Z4 Rosen Dropdown Builders for M1 E/F/H cascade
+' ============================================================
+
+' Build F column (station from) dropdown based on E column (rosen name)
+Public Sub BuildZ4StationFromDropdown(ws As Worksheet, ByVal columnLetter As String, ByVal rowNum As Long, ByVal rosen As String)
+    Dim z4RosenCache As Object: Set z4RosenCache = GetCache(CACHE_Z4ROSEN)
+
+    ws.Range(columnLetter & rowNum).Validation.Delete
+
+    If rosen = "" Then Exit Sub
+    If Not z4RosenCache.Exists(rosen) Then Exit Sub
+
+    Dim stationFromDict As Object: Set stationFromDict = z4RosenCache(rosen)
+    Dim dropdownList As String: dropdownList = ""
+    Dim stationFrom As Variant
+    For Each stationFrom In stationFromDict.Keys
+        If dropdownList = "" Then
+            dropdownList = stationFrom
+        Else
+            dropdownList = dropdownList & "," & stationFrom
+        End If
+    Next stationFrom
+
+    If dropdownList = "" Then Exit Sub
+
+    With ws.Range(columnLetter & rowNum).Validation
+        .Delete
+        .Add Type:=xlValidateList, Formula1:=dropdownList
+        .IgnoreBlank = True
+        .InCellDropdown = True
+        .InputTitle = ""
+        .InputMessage = ""
+    End With
+End Sub
+
+' Build H column (station to) dropdown based on E column (rosen name) and F column (station from)
+Public Sub BuildZ4StationToDropdown(ws As Worksheet, ByVal columnLetter As String, ByVal rowNum As Long, ByVal rosen As String, ByVal stationFrom As String)
+    Dim z4RosenCache As Object: Set z4RosenCache = GetCache(CACHE_Z4ROSEN)
+
+    ws.Range(columnLetter & rowNum).Validation.Delete
+
+    If rosen = "" Or stationFrom = "" Then Exit Sub
+    If Not z4RosenCache.Exists(rosen) Then Exit Sub
+
+    Dim stationFromDict As Object: Set stationFromDict = z4RosenCache(rosen)
+    If Not stationFromDict.Exists(stationFrom) Then Exit Sub
+
+    Dim stationToDict As Object: Set stationToDict = stationFromDict(stationFrom)
+    Dim dropdownList As String: dropdownList = ""
+    Dim stationTo As Variant
+    For Each stationTo In stationToDict.Keys
+        If dropdownList = "" Then
+            dropdownList = stationTo
+        Else
+            dropdownList = dropdownList & "," & stationTo
+        End If
+    Next stationTo
+
+    If dropdownList = "" Then Exit Sub
+
+    With ws.Range(columnLetter & rowNum).Validation
+        .Delete
+        .Add Type:=xlValidateList, Formula1:=dropdownList
+        .IgnoreBlank = True
+        .InCellDropdown = True
+        .InputTitle = ""
+        .InputMessage = ""
+    End With
+End Sub
+
 ' Create display dropdown
 Public Sub BuildDisplayDropdown(ws As Worksheet, ByVal rowNum As Long)
    ' validate sheet