From 2192c9718f47e2fc95d27d6534181339d6a0ff20 Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Fri, 11 Sep 2026 14:04:20 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20Sorter=E8=A1=A8=E3=82=92H:I=E5=88=97?= =?UTF-8?q?=E3=81=8B=E3=82=89J:K=E5=88=97=E3=81=AB=E7=A7=BB=E5=8B=95?= =?UTF-8?q?=E3=81=97Filter=E8=A1=A8=E3=81=A8=E3=81=AE=E9=9A=A3=E6=8E=A5?= =?UTF-8?q?=E3=81=AB=E3=82=88=E3=82=8B=E3=83=86=E3=83=BC=E3=83=96=E3=83=AB?= =?UTF-8?q?=E8=87=AA=E5=8B=95=E7=B5=90=E5=90=88=E3=82=92=E5=9B=9E=E9=81=BF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit F2:G2(Filter表)とH2:I2(Sorter表)が隣接していたため、ListObjects.Add実行時にExcelが1つの連続テーブルとして扱い「テーブルは他のテーブルと重ねることはできません」エラーが発生。間に1列(I列)空くよう配置変更。 --- XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas index 8ea6b9fd..fa464929 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -321,8 +321,8 @@ Function BuildViewFromSheet() As Object Dim colSorter As New Dictionary r = 3 - Do While Trim(defaultSh.Cells(r, "H").Value) <> "" - colSorter.Add defaultSh.Cells(r, "H").Value, defaultSh.Cells(r, "I").Value + Do While Trim(defaultSh.Cells(r, "J").Value) <> "" + colSorter.Add defaultSh.Cells(r, "J").Value, defaultSh.Cells(r, "K").Value r = r + 1 Loop @@ -533,7 +533,7 @@ Sub SetupFilterSorterTables() If sorterTbl Is Nothing Then Dim sorterHeader As Range - Set sorterHeader = ws.Range("H2:I2") + Set sorterHeader = ws.Range("J2:K2") sorterHeader.Cells(1, 1).Value = "" sorterHeader.Cells(1, 2).Value = "~" Set sorterTbl = ws.ListObjects.Add(xlSrcRange, sorterHeader, , xlYes)