add reload cache button

src/module/Common_Button.bas

@@ -31,7 +31,10 @@ Sub Fit_Button()
 End Sub
 
 Sub RefreshCache_Button()
-    ' 重新加载所有缓存
+    Dim result As Boolean: result = RefreshCache()
+    If result = True Then
+        MsgBox "master data reload successfully."
+    End If
 End Sub
 
 Private Sub DO_CSV_Import(ws As Excel.Worksheet)
@@ -205,7 +208,7 @@ ExportError:
 End Sub
 
 Private Sub Do_Sort(ws As Excel.Worksheet)
-    MsgBox "1"
+    '
 End Sub
 
 Private Sub Do_Filter(ws As Excel.Worksheet)

src/module/Common_Global_Cache.bas

@@ -249,10 +249,10 @@ Private Sub RefreshO1Cache()
     
     Dim lastRow As Long
     lastRow = wsO1.Cells(wsO1.Rows.Count, 3).End(xlUp).Row
-    If lastRow < 7 Then Exit Sub
+    If lastRow < 6 Then Exit Sub
     
     Dim r As Long
-    For r = 7 To lastRow
+    For r = 6 To lastRow
         Dim cVal As String
         cVal = Trim(wsO1.Cells(r, 3).Value)  ' C column
         Dim eVal As String
@@ -293,7 +293,7 @@ Private Sub RefreshO2Cache()
     Set o2Cache = Nothing
     
     On Error GoTo RefreshError
-    Set o2Cache = LoadLookup("O2", keyCol:=3, valueCols:=Array(4), startRow:=7)
+    Set o2Cache = LoadLookup("O2", keyCol:=3, valueCols:=Array(4), startRow:=6)
     On Error GoTo 0
 
     If o2Cache Is Nothing Or o2Cache.Count = 0 Then
@@ -636,4 +636,22 @@ End Function
 Public Function GetKenshuList() As Object
     If kenshuList Is Nothing Then Call RefreshKenshuList
     Set GetKenshuList = kenshuList
+End Function
+
+Public Function RefreshCache() As Boolean
+    Call RefreshM1Cache
+    Call RefreshM1KukanDCache
+    Call RefreshM2Cache
+    Call RefreshZ1Cache
+    Call RefreshZ2Cache
+    Call RefreshZ3Cache
+    Call RefreshZ4Cache
+    Call RefreshO1Cache
+    Call RefreshO2Cache
+    Call RefreshTokubetu
+    Call RefreshOufukuList
+    Call RefreshKoutaiList
+    Call RefreshHigaitouList
+    Call RefreshKenshuList
+    RefreshCache = True
 End Function