feat: Filter表・Sorter表を自動作成するSetupFilterSorterTablesを追加

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -473,3 +473,41 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
     Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)
 
 End Function
+
+
+'******************************************************************************
+'基本情報シートにFilter表(F2:G2)・Sorter表(H2:I2)のテーブルをセットアップする
+'新版着工要因閲覧シートv0.1.xlsm上で手動実行する想定（run()からは呼ばない）
+'既にテーブルが存在する場合は何もしない
+Sub SetupFilterSorterTables()
+    Dim ws As Worksheet
+    Set ws = ThisWorkbook.Sheets("基本情報")
+
+    Dim filterTbl As ListObject
+    On Error Resume Next
+    Set filterTbl = ws.ListObjects("FilterTable")
+    On Error GoTo 0
+
+    If filterTbl Is Nothing Then
+        Dim filterHeader As Range
+        Set filterHeader = ws.Range("F2:G2")
+        filterHeader.Cells(1, 1).Value = "列名"
+        filterHeader.Cells(1, 2).Value = "値"
+        Set filterTbl = ws.ListObjects.Add(xlSrcRange, filterHeader, , xlYes)
+        filterTbl.Name = "FilterTable"
+    End If
+
+    Dim sorterTbl As ListObject
+    On Error Resume Next
+    Set sorterTbl = ws.ListObjects("SorterTable")
+    On Error GoTo 0
+
+    If sorterTbl Is Nothing Then
+        Dim sorterHeader As Range
+        Set sorterHeader = ws.Range("H2:I2")
+        sorterHeader.Cells(1, 1).Value = "列名"
+        sorterHeader.Cells(1, 2).Value = "昇降順"
+        Set sorterTbl = ws.ListObjects.Add(xlSrcRange, sorterHeader, , xlYes)
+        sorterTbl.Name = "SorterTable"
+    End If
+End Sub