From b9150c046188856a3ba24ad8cc86519c235a6823 Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Fri, 18 Sep 2026 18:29:48 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20=E9=81=B8=E6=8A=9E=E5=96=B6=E6=A5=AD?= =?UTF-8?q?=E6=89=80/=E7=89=A9=E4=BB=B6=E7=8A=B6=E6=B3=81=E3=83=81?= =?UTF-8?q?=E3=82=A7=E3=83=83=E3=82=AF=E3=81=AE=E5=9E=8B=E4=B8=8D=E4=B8=80?= =?UTF-8?q?=E8=87=B4=E3=82=A8=E3=83=A9=E3=83=BC(=E5=AE=9F=E8=A1=8C?= =?UTF-8?q?=E6=99=82=E3=82=A8=E3=83=A9=E3=83=BC13)=E3=82=92=E8=A7=A3?= =?UTF-8?q?=E6=B6=88?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Range(...).Valueが配列やエラー値を返すケースでTrimが型不一致エラーになっていた。 Cells(1,1)で単一セル値を取得し、IsErrorチェック+CStrで文字列化してから判定するよう修正。 Co-Authored-By: Claude Sonnet 5 --- XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas index 7cdb61a3..ceb56d2e 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -22,7 +22,13 @@ Sub run() Call init '̓`FbNicƏE󋵂IȂ珈fj - If Trim(Range("IcƏ").Value) = "" Or Trim(Range("").Value) = "" Then + Dim selSalesOffice As Variant, selPropertyStatus As Variant + selSalesOffice = Range("IcƏ").Cells(1, 1).Value + selPropertyStatus = Range("").Cells(1, 1).Value + If IsError(selSalesOffice) Then selSalesOffice = "" + If IsError(selPropertyStatus) Then selPropertyStatus = "" + + If Trim(CStr(selSalesOffice)) = "" Or Trim(CStr(selPropertyStatus)) = "" Then MsgBox "cƏƕ󋵂͕KIĂ", vbExclamation Exit Sub End If