From 413de865f0ff29c2a91b5fe8dffbc04f35ef5cea Mon Sep 17 00:00:00 2001 From: Kenichiro NOGI Date: Fri, 18 Sep 2026 18:34:10 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20=E5=85=A5=E5=8A=9B=E3=83=81=E3=82=A7?= =?UTF-8?q?=E3=83=83=E3=82=AF=E3=81=AE=E5=90=8D=E5=89=8D=E4=BB=98=E3=81=8D?= =?UTF-8?q?=E7=AF=84=E5=9B=B2=E3=82=92=E3=80=8C=E7=89=A9=E4=BB=B6=E7=8A=B6?= =?UTF-8?q?=E6=B3=81=E3=80=8D=E3=81=8B=E3=82=89=E6=AD=A3=E3=81=97=E3=81=84?= =?UTF-8?q?=E3=80=8C=E9=81=B8=E6=8A=9E=E7=8A=B6=E6=B3=81=E3=80=8D=E3=81=AB?= =?UTF-8?q?=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 102c1498..1b663f5d 100644 --- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas +++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas @@ -24,7 +24,7 @@ Sub run() '̓`FbNicƏE󋵂IȂ珈fj Dim selSalesOffice As Variant, selPropertyStatus As Variant selSalesOffice = Range("IcƏ").Cells(1, 1).Value - selPropertyStatus = Range("").Cells(1, 1).Value + selPropertyStatus = Range("I").Cells(1, 1).Value If IsError(selSalesOffice) Then selSalesOffice = "" If IsError(selPropertyStatus) Then selPropertyStatus = ""