edit M2

2026-04-21 19:15:10 +09:00
parent e2e115b7f4
commit 3ed46c8f7c
7 changed files with 67 additions and 14 deletions
--- a/src/sheet/Z1.cls
+++ b/src/sheet/Z1.cls
@@ -30,6 +30,9 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    checkResult = CheckAlphanumeric(ws, rowNum, 3, 3, errorCol)
    If checkResult = False Then Exit Sub
    
+    checkResult = CheckDuplicate(ws, rowNum, 3, errorCol)
+    If checkResult = False Then Exit Sub
+    
    ' D column check
    checkResult = CheckRequired(ws, rowNum, 4, errorCol)
    If checkResult = False Then Exit Sub