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

Remove debug code

Browse Source
This commit is contained in:
updsv7
2026-04-13 12:02:01 +09:00
parent 61f6f31fce
commit 18212af6ba
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
vba_code_kukan_detail_master.txt
View File

@@ -38,7 +38,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
If Trim(Target.Value) = "" Then If Trim(Target.Value) = "" Then
Call ClearRowData(Me, Target.Row) Call ClearRowData(Me, Target.Row)
Else Else
MsgBox "C column changed: " & Trim(Target.Value), vbInformation
Call FillFromKukanMaster(Me, Target.Row) Call FillFromKukanMaster(Me, Target.Row)
End If End If
End If End If
@@ -245,13 +244,11 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
Dim deValue As String Dim deValue As String
Dim fgValue As String Dim fgValue As String
On Error GoTo 0 On Error Resume Next
Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス") Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
On Error GoTo 0
If wsKukan Is Nothing Then If wsKukan Is Nothing Then Exit Sub
MsgBox "Worksheet '区間メンテナンス' not found.", vbExclamation
Exit Sub
End If
code = Trim(ws.Cells(rowNum, 3).Value) code = Trim(ws.Cells(rowNum, 3).Value)
If code = "" Then Exit Sub If code = "" Then Exit Sub
@@ -280,7 +277,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
Next Next
If Not found Then If Not found Then
MsgBox "Code '" & code & "' not found in 区間メンテナンス.", vbExclamation Call ClearRowData(ws, rowNum)
Exit Sub
End If End If