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

Remove redundant GHI empty check

Browse Source
This commit is contained in:
updsv7
2026-04-13 15:56:22 +09:00
parent d71ac70677
commit aab3708a22
1 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
vba_code_kukan_detail_master.txt
View File

@@ -334,7 +334,6 @@ Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
h = Trim(ws.Cells(rowNum, 8).Value) h = Trim(ws.Cells(rowNum, 8).Value)
i = Trim(ws.Cells(rowNum, 9).Value) i = Trim(ws.Cells(rowNum, 9).Value)
If g <> "" And h <> "" And i <> "" Then
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
For r = 7 To lastRow For r = 7 To lastRow
@@ -347,7 +346,6 @@ Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
End If End If
End If End If
Next r Next r
End If
' Validation passed ' Validation passed
ws.Cells(rowNum, 17).ClearContents ws.Cells(rowNum, 17).ClearContents