更新 vba_code_kukan_detail_master.txt

2026-04-13 03:20:19 +00:00
parent 318314958e
commit 898933ed19
1 changed files with 3 additions and 2 deletions
--- 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