add T1 T2 T3

2026-04-21 20:43:47 +09:00
parent 3ed46c8f7c
commit 167aa48929
8 changed files with 432 additions and 11 deletions
--- a/src/sheet/M1.cls
+++ b/src/sheet/M1.cls
@@ -86,7 +86,7 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    Dim colLetter As Variant
    For Each colLetter In Array("C", "D", "E", "F", "G", "I", "L")
        If Trim(ws.Range(colLetter & rowNum).Value) = "" Then
-            ws.Cells(rowNum, errorCol).Value = colLetter & " column is required"
+            ws.Cells(rowNum, errorCol).Value = GetErrorMsg("E002", colLetter & rowNum)
            ws.Range(colLetter & rowNum).Interior.Color = RGB(255, 0, 0)
            Exit Sub
        End If
@@ -96,7 +96,7 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    For Each colLetter In Array("H", "I", "J", "N")
        Dim val As String: val = Trim(ws.Range(colLetter & rowNum).Value)
        If val <> "" And Not IsNumeric(val) Then
-            ws.Cells(rowNum, errorCol).Value = colLetter & " column must be numeric"
+            ws.Cells(rowNum, errorCol).Value = GetErrorMsg("E011", colLetter & rowNum)
            ws.Range(colLetter & rowNum).Interior.Color = RGB(255, 0, 0)
            Exit Sub
        End If
@@ -121,7 +121,7 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    Dim eValue As String: eValue = Trim(ws.Range("E" & rowNum).Value)

    If Not z1Cache.Exists(dValue) Then
-        ws.Cells(rowNum, errorCol).Value = "D column does not exist."
+        ws.Cells(rowNum, errorCol).Value = GetErrorMsg("E004", "D" & rowNum)
        ws.Range("D" & rowNum).Interior.Color = RGB(255, 0, 0)
        Exit Sub
    Else
@@ -143,7 +143,6 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    End If

    ' Check L column in the tokubetuList
-
    Dim tokubetuList As Object: Set tokubetuList = GetTokubetu()
    Dim lValue As String: lValue = Trim(ws.Range("L" & rowNum).Value)
    If Not tokubetuList.Exists(lValue) Then
--- a/src/sheet/M2.cls
+++ b/src/sheet/M2.cls
@@ -122,6 +122,23 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
        Exit Sub
    End If

+    ' check Duplicate
+    Dim i As Long
+    Dim code As String: code = Trim(ws.Range("J" & rowNum).Value)
+    Dim name As String: name = Trim(ws.Range("K" & rowNum).Value)
+    For i = 7 To rowNum - 1
+        If Trim(ws.Cells(i, "C").Value) = cValue And Trim(ws.Cells(i, "I").Value) = kenshuKbn And Trim(ws.Cells(i, "J").Value) = code Then
+            ws.Cells(rowNum, errorCol).Value = GetErrorMsg("E013", i, checkValue)
+            ws.Cells(rowNum, "C").Interior.Color = RGB(255, 0, 0)
+            Exit Sub
+        End If
+        If Trim(ws.Cells(i, "C").Value) = cValue And Trim(ws.Cells(i, "I").Value) = kenshuKbn And Trim(ws.Cells(i, "K").Value) = name Then
+            ws.Cells(rowNum, errorCol).Value = GetErrorMsg("E013", i, checkValue)
+            ws.Cells(rowNum, "C").Interior.Color = RGB(255, 0, 0)
+            Exit Sub
+        End If
+    Next i
+
    ws.Cells(rowNum, errorCol).ClearContents

 End Sub
--- a/src/sheet/T1.cls
+++ b/src/sheet/T1.cls
@@ -0,0 +1,57 @@
+' ============================================================
+' Module Name: Master_244
+' Module Desc: T1 master data management (244)
+' Module Methods:
+'   - Validate
+' ============================================================
+' 
+Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As Long)
+
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
+
+    Dim startCol As String: startCol = sheetConf("StartCol")
+    Dim endCol As String: endCol = sheetConf("EndCol")
+    Dim errorCol As String: errorCol = sheetConf("ErrorCol")
+    
+    ' clear C~I columns background color
+    Dim clearRange As Range: Set clearRange = ws.Range(ws.Cells(rowNum, startCol), ws.Cells(rowNum, endCol))
+    clearRange.Interior.Color = vbWhite
+
+    ' C column check
+    checkResult = CheckRequired(ws, rowNum, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckChar(ws, rowNum, 3, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    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
+
+    checkResult = CheckVarcharOver(ws, rowNum, 4, 80, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' E column check
+    checkResult = CheckRequired(ws, rowNum, 5, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckVarcharOver(ws, rowNum, 5, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' F column check
+    checkResult = CheckVarcharOver(ws, rowNum, 6, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' G column check
+    checkResult = Check01(ws, rowNum, 7, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ws.Cells(rowNum, errorCol).ClearContents
+End Sub
--- a/src/sheet/T2.cls
+++ b/src/sheet/T2.cls
@@ -0,0 +1,117 @@
+' ============================================================
+' Module Name: Master_245
+' Module Desc: T2 master data management (245)
+' Module Methods:
+'   - Validate
+' ============================================================
+' 
+Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As Long)
+
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
+
+    Dim startCol As String: startCol = sheetConf("StartCol")
+    Dim endCol As String: endCol = sheetConf("EndCol")
+    Dim errorCol As String: errorCol = sheetConf("ErrorCol")
+    
+    ' clear C~I columns background color
+    Dim clearRange As Range: Set clearRange = ws.Range(ws.Cells(rowNum, startCol), ws.Cells(rowNum, endCol))
+    clearRange.Interior.Color = vbWhite
+
+    ' C column check
+    checkResult = CheckRequired(ws, rowNum, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckChar(ws, rowNum, 3, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    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
+
+    checkResult = CheckVarcharOver(ws, rowNum, 4, 80, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' E column check
+    checkResult = CheckRequired(ws, rowNum, 5, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckVarcharOver(ws, rowNum, 5, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' F column check
+    checkResult = CheckVarcharOver(ws, rowNum, 6, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' G column check
+    checkResult = Check01(ws, rowNum, 7, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' H column check number
+    checkResult = CheckRequired(ws, rowNum, 8, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 8, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 8, 6, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' I column check number
+    checkResult = CheckRequired(ws, rowNum, 9, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 9, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 9, 5, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' J column check number
+    checkResult = CheckRequired(ws, rowNum, 10, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 10, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 10, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' K column check number
+    checkResult = CheckRequired(ws, rowNum, 11, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 11, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 11, 5, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' L column check number
+    checkResult = CheckRequired(ws, rowNum, 12, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 12, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 12, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' M column check number
+    checkResult = CheckRequired(ws, rowNum, 13, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 13, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 13, 5, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ws.Cells(rowNum, errorCol).ClearContents
+End Sub
--- a/src/sheet/T3.cls
+++ b/src/sheet/T3.cls
@@ -0,0 +1,77 @@
+' ============================================================
+' Module Name: Master_246
+' Module Desc: T3 master data management (246)
+' Module Methods:
+'   - Validate
+' ============================================================
+' 
+Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As Long)
+
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
+
+    Dim startCol As String: startCol = sheetConf("StartCol")
+    Dim endCol As String: endCol = sheetConf("EndCol")
+    Dim errorCol As String: errorCol = sheetConf("ErrorCol")
+    
+    ' clear C~I columns background color
+    Dim clearRange As Range: Set clearRange = ws.Range(ws.Cells(rowNum, startCol), ws.Cells(rowNum, endCol))
+    clearRange.Interior.Color = vbWhite
+
+    ' C column check
+    checkResult = CheckRequired(ws, rowNum, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckChar(ws, rowNum, 3, 3, errorCol)
+    If checkResult = False Then Exit Sub
+
+    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
+
+    checkResult = CheckVarcharOver(ws, rowNum, 4, 80, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' E column check
+    checkResult = CheckRequired(ws, rowNum, 5, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckVarcharOver(ws, rowNum, 5, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' F column check
+    checkResult = CheckVarcharOver(ws, rowNum, 6, 80, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ' G column check
+    checkResult = Check01(ws, rowNum, 7, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' H column check number
+    checkResult = CheckRequired(ws, rowNum, 8, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 8, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 8, 6, errorCol)
+    If checkResult = False Then Exit Sub
+
+    ' I column check number
+    checkResult = CheckRequired(ws, rowNum, 9, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumber(ws, rowNum, 9, errorCol)
+    If checkResult = False Then Exit Sub
+
+    checkResult = CheckNumberOver(ws, rowNum, 9, 6, errorCol)
+    If checkResult = False Then Exit Sub
+    
+    ws.Cells(rowNum, errorCol).ClearContents
+End Sub