updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新 vba_code_kukan_detail_master.txt

Browse Source
This commit is contained in:
simple321vip
2026-04-13 03:20:19 +00:00
parent 318314958e
commit 898933ed19
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
vba_code_kukan_detail_master.txt
View File

@@ -41,10 +41,11 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス") Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
MsgBox "1." MsgBox "1."
On Error GoTo 0 On Error GoTo 0
MsgBox "5."
If wsKukan Is Nothing Then Exit Sub If wsKukan Is Nothing Then Exit Sub
MsgBox "4."
code = Trim(ws.Cells(rowNum, 3).Value) code = Trim(ws.Cells(rowNum, 3).Value)
MsgBox "3."
If code = "" Then Exit Sub If code = "" Then Exit Sub
MsgBox "2." MsgBox "2."
lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row