update Generic Master bas7

This commit is contained in:
updsv7
2026-04-15 16:32:30 +09:00
parent 0bf7ae628a
commit 20f04cd9bd
5 changed files with 87 additions and 91 deletions

View File

@@ -3,6 +3,7 @@
' ====== Constants ======
Const START_COL As Long = 3
Const END_COL As Long = 7
Const ERROR_COL As Long = 2
' ====== Function ======
Sub Z2_ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
@@ -133,7 +134,7 @@ Sub Z2_validateButton()
errorCount = 0
For r = 7 To lastDataRow
Validate r
If Trim(Cells(r, 2).Value) <> "" Then
If Trim(Cells(r, ERROR_COL).Value) <> "" Then
errorCount = errorCount + 1
End If
Next r