From 898933ed19d42b9daa485154559f7f022cf637ce Mon Sep 17 00:00:00 2001 From: simple321vip <635344988@qq.com> Date: Mon, 13 Apr 2026 03:20:19 +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 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index a4e4982..bbd7a01 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -41,10 +41,11 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス") MsgBox "1." On Error GoTo 0 - + MsgBox "5." If wsKukan Is Nothing Then Exit Sub - + MsgBox "4." code = Trim(ws.Cells(rowNum, 3).Value) + MsgBox "3." If code = "" Then Exit Sub MsgBox "2." lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row