From fabee98ea1870359db46bfe2e55602b7382e6d20 Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 11 Sep 2026 13:37:17 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20Filter=E8=A1=A8=E3=83=BBSorter=E8=A1=A8?=
 =?UTF-8?q?=E3=82=92=E8=87=AA=E5=8B=95=E4=BD=9C=E6=88=90=E3=81=99=E3=82=8B?=
 =?UTF-8?q?SetupFilterSorterTables=E3=82=92=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../vba-files/Module/Module1.bas              | 38 +++++++++++++++++++
 1 file changed, 38 insertions(+)

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