更新 vba_code_kukan_detail_master.txt

vba_code_kukan_detail_master.txt

@@ -232,13 +232,14 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     
     On Error Resume Next
     Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
+    MsgBox "1."
     On Error GoTo 0
     
     If wsKukan Is Nothing Then Exit Sub
     
     code = Trim(ws.Cells(rowNum, 3).Value)
     If code = "" Then Exit Sub
-    
+    MsgBox "2."
     lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row
     
     For i = 7 To lastRow