From 18212af6ba4e024408287900d4bb9fb5a91c17c2 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 12:02:01 +0900
Subject: [PATCH] Remove debug code

---
 vba_code_kukan_detail_master.txt | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index db757c0..c780076 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -38,7 +38,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
         If Trim(Target.Value) = "" Then
             Call ClearRowData(Me, Target.Row)
         Else
-            MsgBox "C column changed: " & Trim(Target.Value), vbInformation
             Call FillFromKukanMaster(Me, Target.Row)
         End If
     End If
@@ -245,13 +244,11 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim deValue As String
     Dim fgValue As String
     
-    On Error GoTo 0
+    On Error Resume Next
     Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
+    On Error GoTo 0
     
-    If wsKukan Is Nothing Then
-        MsgBox "Worksheet '区間メンテナンス' not found.", vbExclamation
-        Exit Sub
-    End If
+    If wsKukan Is Nothing Then Exit Sub
     
     code = Trim(ws.Cells(rowNum, 3).Value)
     If code = "" Then Exit Sub
@@ -280,7 +277,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Next
     
     If Not found Then
-        MsgBox "Code '" & code & "' not found in 区間メンテナンス.", vbExclamation
+        Call ClearRowData(ws, rowNum)
+        Exit Sub
     End If