feat: run()実行前に「選択営業所」「物件状況」の入力チェックを追加

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

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -21,6 +21,12 @@ Sub run()
     '<27>‰Šú‰»<E280B0>ˆ—<CB86>
     Call init
 
+    '入力チェック（営業所・物件状況が未選択なら処理中断）
+    If Trim(Range("選択営業所").Value) = "" Or Trim(Range("物件状況").Value) = "" Then
+        MsgBox "営業所と物件状況は必ず選択してください", vbExclamation
+        Exit Sub
+    End If
+
     On Error GoTo Cleanup
 
     defaultSh.Range("D4").Value = Now