From 3764a3da3feb93f94bb403da5dcdbb464ec05479 Mon Sep 17 00:00:00 2001
From: simple321vip <635344988@qq.com>
Date: Mon, 13 Apr 2026 03:36:50 +0000
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20vba=5Fcode=5Fkukan=5Fdetai?=
 =?UTF-8?q?l=5Fmaster.txt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 vba_code_kukan_detail_master.txt | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index f7803ee..ba920eb 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -38,16 +38,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim code As String
     
     On Error Resume Next
-    Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
-    If wsKukan Is Nothing Then
-        Dim wsList As String
-        Dim s As Worksheet
-        For Each s In ThisWorkbook.Worksheets
-            wsList = wsList & s.Name & vbCrLf
-        Next
-        MsgBox "Worksheet '区間メンテナンス' not found." & vbCrLf & vbCrLf & "Available sheets:" & vbCrLf & wsList, vbExclamation
-        Exit Sub
-    End If
+    Set wsKukan = ThisWorkbook.Worksheets("Kukan_Master")
+    If wsKukan Is Nothing Then Exit Sub
     On Error GoTo 0
     code = Trim(ws.Cells(rowNum, 3).Value)
     If code = "" Then Exit Sub