update

data/(220)通勤手当届出事由区分.csv

@@ -0,0 +1,9 @@
+"01","新規","新規","","","","1"
+"02","異動","異動","","","","1"
+"03","転居（本人）","転居（本人）","","","","1"
+"04","転居（配偶者）","転居（配偶者）","","","","1"
+"05","消滅","消滅","","","","2"
+"06","非支給","非支給","","","支給調整対象者のみ。認定簿のみに使用。","1"
+"07","転記","転記","","","","1"
+"08","その他","その他","","","","1"
+"09","法改正","法改正","","","","1"

data/(244)通勤_定期券名称区分一覧.csv

@@ -0,0 +1,3 @@
+"001","１箇月定期","１箇月定期","１箇月定期",""
+"002","３箇月定期","３箇月定期","３箇月定期",""
+"003","６箇月定期","６箇月定期","６箇月定期",""

data/(245)通勤_回数券名称区分一覧.csv

@@ -0,0 +1,55 @@
+"001","特定回数券（４７００円）","特定回数券（４７００円）","特定回数券（４７００円）","","4700","470","14","0","0","0"
+"002","回数券（１１００円）","回数券（１１００円）","鳴門市バス","","1100","110","11","1100","11","0"
+"003","回数券（１９００円）","回数券（１９００円）","鳴門市バス","","1900","190","11","1900","11","0"
+"004","回数券（３０００円）","回数券（３０００円）","鳴門市バス","","3000","300","11","3000","11","0"
+"005","特定区間回数券（４５００円）","特定区間回数券（４５００円）","徳島〜鳴門間","","4500","450","14","4500","14","0"
+"006","回数券（３０００円）","回数券（３０００円）","徳島市バス","","3000","200","17","3000","17","0"
+"007","回数券（１４００円）","回数券（１４００円）","徳バス・鳴門市バス・徳島市バス共通","","1400","140","11","1400","11","0"
+"008","回数券（５０００円）","回数券（５０００円）","徳バス・鳴門市バス・徳島市バス共通","","5000","500","12","5000","12","0"
+"009","回数券（ＪＲなんば〜高速鳴門）","回数券（ＪＲなんば〜高速鳴門）","回数券（ＪＲなんば〜高速鳴門）","","11340","3150","4","0","0","0"
+"010","回数券（高速バス用）","回数券（高速バス用）","回数券（高速バス用）","","8820","2450","4","0","0","0"
+"011","回数券（３０００円）","回数券（３０００円）","徳バス・徳島市バス・小松島市バス共通","","3000","100","25","50","20","0"
+"012","回数券（６１００円）","回数券（６１００円）","特定回数乗車券・組合せ回数券","","6100","450","14","160","11","0"
+"013","回数券（３３００円）","回数券（３３００円）","徳島バス","","3300","330","11","0","0","330"
+"014","回数券（４５００円）","回数券（４５００円）","徳島バス","","4500","450","14","0","0","0"
+"015","回数券（１６００円）","回数券（１６００円）","徳島バス","","1600","160","11","0","0","0"
+"016","回数券（９９００円）","回数券（９９００円）","徳島バス（三ノ宮〜高速鳴門）","","9900","2750","4","0","0","0"
+"017","回数券（２０００円）","","鳴門市地域バス","","2000","182","11","0","0","0"
+"018","回数券（２０００円）","回数券（２０００円）","鳴門市地域バス","","2000","200","11","0","0","0"
+"019","ＥＴＣ","","","","0","0","0","0","0","0"
+"020","組合せ回数券","","","","3000","50","20","100","25","0"
+"021","組合せ回数券","","","","3000","50","20","100","25","0"
+"022","回数券","","","","400","40","11","0","0","0"
+"023","定期券（４００円）","","","","400","40","11","0","0","0"
+"024","回数券（３００円）","","","","300","30","11","0","0","0"
+"025","回数券（４０００円）","回数券（４０００円）","","","4000","4000","12","0","0","0"
+"026","回数券（４０００円）","","","","4000","400","12","0","0","0"
+"027","回数券（３０００円）","","徳島市バス（市内均一料金）","","3000","210","17","0","0","0"
+"028","回数券（３０００円）","","徳島市営バス（市内均一料金）","","3000","210","17","0","0","0"
+"029","回数券（４６００円）","","徳島バス","","4600","460","14","0","0","0"
+"030","回数券（１７００円）","","徳島バス","","1700","170","11","0","0","0"
+"031","回数券（４６００円）","","","","4600","460","14","0","0","0"
+"032","回数券（１７００円）","","","","1700","170","11","0","0","0"
+"033","特定回数券（４６００円）","","","","4600","450","14","0","0","0"
+"034","回数券（１７００円）","","","","1700","170","11","0","0","0"
+"035","回数券（高速バス用）","回数券（高速バス）R1.10.1","","","9200","2300","4","0","0","0"
+"036","回数券（４６００円）","","","","4600","460","14","0","0","0"
+"037","回数券（１７００円）","","","","1700","170","11","0","0","0"
+"038","回数券（１０２６０円）","","","","10260","2565","4","0","0","0"
+"039","組合せ回数券（３０００円）","","","","3000","50","20","100","25","0"
+"040","回数券（４６００円）","","","","4600","460","14","0","0","0"
+"041","回数券（JRなんば〜高速鳴門）","","","","11700","2925","4","0","0","0"
+"042","回数券（１６００円）","回数券（１６００円）","","","1600","1600","11","0","0","0"
+"043","回数券（４６００＋１６００）","回数券（４６００円＋１６００円）","","","6200","4600","14","1600","11","0"
+"044","回数券（２０００円）","回数券（２０００円）","回数券（２０００円）","","2000","2000","11","0","0","0"
+"045","回数券（２０００円）","回数券（２０００円）","回数券（２０００円）","","2000","200","11","0","0","0"
+"046","回数券（２００円）","回数券（２００円）","回数券（２００円）","","200","20","11","0","0","0"
+"047","組合せ回数券（３０００円）","組合せ回数券（３０００円）","組合せ回数券（３０００円）","","3000","50","20","100","25","0"
+"048","特定回数券（４６００円）","特定回数券（４６００円）","特定回数券（４６００円）","","4600","460","14","0","0","0"
+"049","回数券（１００円）","回数券（１００円）","回数券（１００円）","","100","10","11","0","0","0"
+"050","回数券（２４００円）","","","","2400","218","0","0","0","0"
+"051","回数券（高速バス）","","","","0","0","0","0","0","0"
+"052","回数券（３４００）","西日本ＪＲバス回数券","","","12240","3400","4","0","0","0"
+"053","回数券（高速舞子～高速鳴門）R6.10.1","回数券（高速舞子～高速鳴門）R6.10.1","","","11160","2790","4","0","0","0"
+"054","回数券（４００円）","回数券（４００円）","回数券（４００円）","","400","40","11","0","0","0"
+"055","特定回数券（５７００円）","特定回数券（５７００円）","","","5700","570","14","0","0","0"

data/住所情報.csv

@@ -0,0 +1,19 @@
+00027442, 2025/11/30,	"4000053・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ蝸｢・ｽ・ｽ", "2623-41 ・ｽR・ｽ・ｽ・ｽ・ｽw・ｽ蝸｢・ｽh・ｽ・ｽ103"
+00027442, 2025/11/30,	"	", ""
+00027442, 2025/11/30,	"住所１", "住所２"
+00027442, 2025/11/30,	"住所１", "住所２-2"
+00027442, 2025/11/30,	"住所１", ""
+00098984, 2025/11/30,	"4093815・ｽR・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽs・ｽ・ｽ・ｽ・ｽ", "1559-1-D203"
+00138801, 2025/11/30,	"4093815・ｽR・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽ・ｽs・ｽ・ｽ・ｽ・ｽ", "1559-1 ・ｽR・ｽ・ｽ・ｽ・ｽw・ｽ・ｽ・ｽ・ｽ・ｽh・ｽ・ｽB-201"
+00147107, 2025/11/30,	"4000016・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ・ｽ・ｽc", "3-5-241-306"
+00177402, 2025/11/30,	"4000016・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ・ｽ・ｽc", "3-5-24 ・ｽ・ｽ・ｽ・ｽ・ｽh・ｽﾉ包ｿｽ・ｽc・ｽZ・ｽ・ｽ1・ｽ・ｽ・ｽ・ｽ307"
+00188435, 2025/11/30,	"4000016・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ・ｽ・ｽc", "3-5-22 ・ｽ・ｽ・ｽc・ｽZ・ｽ・ｽ1-303"
+00189445, 2025/11/30,	"4000016・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ・ｽ・ｽc", "3-5-22-2-204"
+00189748, 2025/11/30,	"1700011・ｽ・ｽ・ｽ・ｽ・ｽs・ｽL・ｽ・ｽ・ｽ・ｽr・ｽﾜ本・ｽ・ｽ", "4-46-11-533"
+00198054, 2025/11/30,	"1690072・ｽ・ｽ・ｽ・ｽ・ｽs・ｽV・ｽh・ｽ・ｽ・ｽv・ｽ・ｽ", "3-12-4-304"
+00206158, 2025/11/30,	"4000016・ｽR・ｽ・ｽ・ｽ・ｽ・ｽb・ｽ{・ｽs・ｽ・ｽ・ｽc", "3-5-22-2-204"
+00206461, 2025/11/30,	"2770024・ｽ・ｽt・ｽ・ｽ・ｽ・ｽ・ｽs・ｽ・ｽt・ｽ・ｽ", "9-14"
+00206966, 2025/11/30,	"4000016", ""
+00282249, 2025/11/30,	"1070062", ""
+01002918, 2025/11/30,	"4001513", ""
+01018823, 2025/11/30,	"4093815", ""

data/区間.csv

@@ -1,4 +1,4 @@
-利用区間コード,交通機関区分,交通機関名称,利用区間発名,利用区間着名,距離等,運賃,現金の場合の1箇月運賃,連絡,特別料金区分,特別料金の券種,特別料金の負担額
+利用区間コード,交通機関区分,交通機関名称,利用区間発名,利用区間着名,距離等,運賃,現金の場合の1箇月運賃,連絡,特別料金区分,特別料金券種,特別料金負担額
 00001,002,ＪＲ,芦川,甲府,22,2233,,,普通,,
 00002,002,ＪＲ,井土ヶ谷,甲府,,0,,,普通,,
 00003,002,ＪＲ,稲田堤,甲府,,0,,,普通,,
@@ -71,5 +71,5 @@
 00070,002,ＪＲ,白金高輪駅,虎ノ門駅,20,2000,,,普通,,
 00071,003,山交バス,新貢川橋南,山梨大学,30,3000,,,普通,,
 00072,002,ＪＲ,芦川,甲府,1,2,3,,普通,,
-00073,001,交通用具,smart,smart,2222,222,2222,,普通,,
+00073,001,JR 東北線,smart,smart,2222,222,2222,,普通,,
 00074,002,ＪＲ,甲府,甲府,22,2222,2222,,普通,,

data/区間詳細.csv

@@ -9,12 +9,9 @@
 00056,1,003,６箇月定期,10030,10030,1,,,,
 00067,1,003,６箇月定期,4486.666,26920,6,,,,
 00068,1,003,６箇月定期,52800,316800,6,,,,
-00069,1,006,６箇月,7181.666,43090,6,,,,
 00070,1,003,６箇月定期,6426.666,38560,6,,,,
 00071,1,003,６箇月定期,6879,6879,1,,,,
 00001,2,001,テスト,15000,0,0,0,0,0,
 00001,3,001,プリペイドカード,20000,20000,,,,,
 00002,2,001,テスト,15000,0,0,0,0,0,
-00002,3,002,0002テスト,45000,60000,,,,,
 00003,2,002,テスト2,500,500,10,500,10,0,
-00004,3,003,0004テスト,5000,5000,,,,,

src/module/Common_Button.bas

@@ -89,8 +89,10 @@ Private Sub DO_CSV_Import(ws As Excel.Worksheet)
     Dim colLetters As Variant: colLetters = cfg("HeaderColumns")
     Dim writeRow As Long: writeRow = cfg("StartRow")
     Dim i As Long
+    ' loop row
     For i = LBound(csvData, 1) To UBound(csvData, 1)
         Dim j As Long
+        ' loop column
         For j = 0 To expectedColumnCount - 1
             ws.Cells(writeRow, ws.Range(colLetters(j) & "1").Column).Value = CleanCSVField(CStr(csvData(i, j + 1)))
         Next j
@@ -181,12 +183,18 @@ Private Sub DO_CSV_Export(ws As Excel.Worksheet)
 
     ' === Step 4: Count data columns ===
     Dim expectedColumnCount As Long: expectedColumnCount = sheetConf("ExpectedColumnCount")
-    Dim outputArr As Variant
-    ReDim outputArr(1 To rowCount + 1, 1 To expectedColumnCount)
 
     ' === Step 5: check export csv has header ===
     Dim hasHeader As Boolean: hasHeader = sheetConf("HasHeader")
     Dim dataRow As Long: dataRow = 1
+    Dim outputArr As Variant
+    
+    ' when has header + 1
+    If hasHeader Then
+      ReDim outputArr(1 To rowCount + 1, 1 To expectedColumnCount)
+    Else
+      ReDim outputArr(1 To rowCount, 1 To expectedColumnCount)
+    End If
 
     ' === Step 6: Build array with header and data ===
     If hasHeader Then

src/module/Common_Functions.bas

@@ -7,9 +7,6 @@ Option Explicit
 '   - GetLastDataRowInRange
 '   - ClearDataRows
 '   - ClearDataRow
-'   - SortDataRows
-'   - ToggleAutoFilter
-'   - AutoFitColumnWidth
 ' ============================================================
 
 ' Common Functions
@@ -247,48 +244,13 @@ Sub ClearDataRows(ByVal ws As Worksheet)
         clearRange.ClearContents
         clearRange.Interior.Color = vbWhite
 
+        If errorCol <> "" Then
           Dim clearErrorRange As Range
           Set clearErrorRange = ws.Range(ws.Cells(startRow, ws.Range(errorCol & "1").Column), ws.Cells(lastDataRow, ws.Range(errorCol & "1").Column))
           clearErrorRange.ClearContents
           clearErrorRange.Interior.Color = vbWhite
         End If
-End Sub
-
-Sub SortDataRows(Optional ByVal sortColumn As Long = 3)
-    Dim ws As Worksheet
-    Dim lastRow As Long
-    Dim startRow As Long
-    Dim sortOrder As Long
-    
-    Set ws = ActiveSheet
-    startRow = 7
-    lastRow = GetLastDataRow(ws, sortColumn)
-    
-    If lastRow < startRow Then
-        MsgBox "No data to sort.", vbExclamation
-        Exit Sub
     End If
-    
-    ' Determine sort order based on first row's current state
-    Dim currentFirst As String
-    Dim nextFirst As String
-    currentFirst = Trim(ws.Cells(startRow, sortColumn).Value)
-    nextFirst = Trim(ws.Cells(startRow + 1, sortColumn).Value)
-    
-    If currentFirst <> "" And nextFirst <> "" Then
-        If currentFirst > nextFirst Then
-            sortOrder = xlAscending
-        Else
-            sortOrder = xlDescending
-        End If
-    Else
-        sortOrder = xlAscending
-    End If
-    
-    ws.Range(ws.Cells(startRow, 1), ws.Cells(lastRow, 20)).Sort _
-        Key1:=ws.Cells(startRow, sortColumn), _
-        Order1:=sortOrder, _
-        Header:=xlNo
 End Sub
 
 ' Format: code:value (no space around colon)

src/module/Common_Global_Cache.bas

@@ -488,7 +488,7 @@ Private Sub RefreshSheetDict()
     sheetConf("CSV_Encoding") = "utf-8"
     sheetConf("HasHeader") = False
     sheetConf("ExpectedColumnCount") = 4
-    sheetConf("HeaderColumns") = Array()
+    sheetConf("HeaderColumns") = Array("C", "D", "E", "F")
     sheetConf("AlwaysQuote") = True
     sheetConf("FilterRow") = 5
     Set sheetConfDict("O1") = sheetConf
@@ -504,7 +504,7 @@ Private Sub RefreshSheetDict()
     sheetConf("CSV_Encoding") = "utf-8"
     sheetConf("HasHeader") = False
     sheetConf("ExpectedColumnCount") = 13
-    sheetConf("HeaderColumns") = Array()
+    sheetConf("HeaderColumns") = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O")
     sheetConf("AlwaysQuote") = True
     sheetConf("FilterRow") = 5
     sheetConf("KeyCol") = 3