diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 90200c20..b7c06899 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/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
+
+
+'******************************************************************************
+'��{���V�[�g��Filter�\(F2:G2)�ESorter�\(H2:I2)�̃e�[�u�����Z�b�g�A�b�v����
+'�V�Œ��H�v���{���V�[�gv0.1.xlsm��Ŏ蓮���s����z��irun()����͌Ă΂Ȃ��j
+'���Ƀe�[�u�������݂���ꍇ�͉������Ȃ�
+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 = "�l"
+        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
\ No newline at end of file