From 3bfdf3b73e0672224e387d7d44572e5801064a93 Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Sun, 13 Sep 2026 18:33:10 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20Filter=E5=80=A4=E3=82=92JSON=E9=85=8D?= =?UTF-8?q?=E5=88=97=E6=96=87=E5=AD=97=E5=88=97(["=E5=80=A4"])=E3=81=A8?= =?UTF-8?q?=E3=81=97=E3=81=A6=E6=B8=A1=E3=81=99=E3=82=88=E3=81=86=E4=BF=AE?= =?UTF-8?q?=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Pleasanter ColumnFilterHashは選択肢項目の値をJSON配列文字列で受け取る仕様のため、単純な値のままでは条件が無視され全件返っていた。単一値を1要素配列にラップして解消。 Co-Authored-By: Claude Sonnet 5 --- XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas index 49d93908..24f49de0 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -310,7 +310,7 @@ Function BuildViewFromSheet() As Object Dim r As Long r = 3 Do While Trim(defaultSh.Cells(r, "F").Value) <> "" - colFilter.Add defaultSh.Cells(r, "F").Value, defaultSh.Cells(r, "G").Value + colFilter.Add defaultSh.Cells(r, "F").Value, "[" & Chr(34) & CStr(defaultSh.Cells(r, "G").Value) & Chr(34) & "]" r = r + 1 Loop