delete ninteiList and add optional button

src/module/Common_Button.bas

@@ -30,6 +30,10 @@ Sub Fit_Button()
     Do_Fit ActiveSheet
 End Sub
 
+Sub RefreshCache_Button()
+    ' 重新加载所有缓存
+End Sub
+
 Private Sub DO_CSV_Import(ws As Excel.Worksheet)
     On Error GoTo ImportError
 

src/module/Common_Global_Cache.bas

@@ -30,7 +30,6 @@ Private oufukuList As Object
 Private koutaiList As Object
 Private higaitouList As Object
 Private kenshuList As Object
-Private ninteiKbnList As Object
 
 Private sheetConfDict As Object
 
@@ -397,24 +396,6 @@ RefreshError:
     Err.Raise 1001, "RefreshKenshuList", "Failed to load Enum lookup cache: " & Err.Description
 End Sub
 
-' ============================================================
-' ninteiKbnList
-' ============================================================
-Private Sub RefreshNinteiKbnList()
-    On Error GoTo RefreshError
-    Set ninteiKbnList = LoadLookup("Enum", keyCol:=15, valueCols:=Array(16), startRow:=3)
-    On Error GoTo 0
-
-    If ninteiKbnList Is Nothing Or ninteiKbnList.Count = 0 Then
-        Err.Raise 1003, "RefreshNinteiKbnList", "Enum reference data is empty"
-    End If
-
-    Exit Sub
-
-RefreshError:
-    Err.Raise 1001, "RefreshNinteiKbnList", "Failed to load Enum lookup cache: " & Err.Description
-End Sub
-
 Private Sub RefreshSheetDict()
     Set sheetConfDict = CreateObject("Scripting.Dictionary")
     Dim sheetConf As Object
@@ -655,9 +636,4 @@ End Function
 Public Function GetKenshuList() As Object
     If kenshuList Is Nothing Then Call RefreshKenshuList
     Set GetKenshuList = kenshuList
-End Function
-
-Public Function GetNinteiKbnList() As Object
-    If ninteiKbnList Is Nothing Then Call RefreshNinteiKbnList
-    Set GetNinteiKbnList = ninteiKbnList
 End Function