From bc03b2d47b85d78c4bd575a9a56d417cb727829b Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 18 Sep 2026 18:28:09 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20run()=E5=AE=9F=E8=A1=8C=E5=89=8D?=
 =?UTF-8?q?=E3=81=AB=E3=80=8C=E9=81=B8=E6=8A=9E=E5=96=B6=E6=A5=AD=E6=89=80?=
 =?UTF-8?q?=E3=80=8D=E3=80=8C=E7=89=A9=E4=BB=B6=E7=8A=B6=E6=B3=81=E3=80=8D?=
 =?UTF-8?q?=E3=81=AE=E5=85=A5=E5=8A=9B=E3=83=81=E3=82=A7=E3=83=83=E3=82=AF?=
 =?UTF-8?q?=E3=82=92=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

名前付き範囲が空欄の場合はアラート表示して処理中断する。runSalesOfficeExportには適用しない。

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 3a9fadb6..7cdb61a3 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -21,6 +21,12 @@ Sub run()
     '����������
     Call init
 
+    '���̓`�F�b�N�i�c�Ə��E�����󋵂����I���Ȃ珈�����f�j
+    If Trim(Range("�I���c�Ə�").Value) = "" Or Trim(Range("������").Value) = "" Then
+        MsgBox "�c�Ə��ƕ����󋵂͕K���I�����Ă�������", vbExclamation
+        Exit Sub
+    End If
+
     On Error GoTo Cleanup
 
     defaultSh.Range("D4").Value = Now