From 97f371db3fd5c137dc753f42dc1e328142be68cd Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 18 Sep 2026 19:01:48 +0900
Subject: [PATCH] =?UTF-8?q?debug:=20D3=E3=82=BB=E3=83=AB=E3=81=AE=E7=8A=B6?=
 =?UTF-8?q?=E6=85=8B=E3=83=A1=E3=83=83=E3=82=BB=E3=83=BC=E3=82=B8=E3=82=92?=
 =?UTF-8?q?=E3=82=A4=E3=83=9F=E3=83=87=E3=82=A3=E3=82=A8=E3=82=A4=E3=83=88?=
 =?UTF-8?q?=E3=82=A6=E3=82=A3=E3=83=B3=E3=83=89=E3=82=A6=E3=81=AB=E3=82=82?=
 =?UTF-8?q?=E5=87=BA=E5=8A=9B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

処理開始/完了/失敗のD3表示内容を[D3]プレフィックス付きでDebug.Printし、フリーズ調査時にログだけで状態を追えるようにした。

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

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 6d27ffb6..74d49a6d 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -37,6 +37,7 @@ Sub run()
 
     defaultSh.Range("D4").Value = Now
     defaultSh.Range("D3").Value = "�捞������..."
+    Debug.Print "[D3] " & defaultSh.Range("D3").Value
     Application.ScreenUpdating = False '��ʍX�V��~
     Application.Calculation = xlManual '�����v�Z��~
     '------------------------------------------
@@ -58,11 +59,14 @@ Cleanup:
 
     If Err.Number <> 0 Then
         defaultSh.Range("D3").Value = "�捞�������s�i�G���[�j: " & Err.Description
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
         Err.Clear
     ElseIf Not (exportSuccess And getSuccess) Then
         defaultSh.Range("D3").Value = "�捞�������s�i�f�[�^�擾�G���[�j"
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
     Else
         defaultSh.Range("D3").Value = "�捞��������"
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
     End If
 End Sub