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:36:50 +00:00
parent d6d54cfd40
commit 3764a3da3f
1 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
vba_code_kukan_detail_master.txt
View File

@@ -38,16 +38,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
Dim code As String Dim code As String
On Error Resume Next On Error Resume Next
Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス") Set wsKukan = ThisWorkbook.Worksheets("Kukan_Master")
If wsKukan Is Nothing Then If wsKukan Is Nothing Then Exit Sub
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
On Error GoTo 0 On Error GoTo 0
code = Trim(ws.Cells(rowNum, 3).Value) code = Trim(ws.Cells(rowNum, 3).Value)
If code = "" Then Exit Sub If code = "" Then Exit Sub