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

Fix double prefix

Browse Source
This commit is contained in:
updsv7
2026-04-13 17:55:23 +09:00
parent e984b2581f
commit 84e9e3f864
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
vba_code_kotsu_master.txt
View File

@@ -119,7 +119,7 @@ NextLine:
MsgBox writeRow - 7 & " rows imported.", vbInformation MsgBox writeRow - 7 & " rows imported.", vbInformation
End Sub End Sub
Function Z1_Z1_CleanCSVField(ByVal field As Variant) As String Function Z1_CleanCSVField(ByVal field As Variant) As String
If IsEmpty(field) Or IsNull(field) Then If IsEmpty(field) Or IsNull(field) Then
CleanCSVField = "" CleanCSVField = ""
Exit Function Exit Function
@@ -137,7 +137,7 @@ Function Z1_Z1_CleanCSVField(ByVal field As Variant) As String
CleanCSVField = result CleanCSVField = result
End Function End Function
Sub Z1_Z1_validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long) Sub Z1_validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Check C column - must be 3-digit alphanumeric, required ' Check C column - must be 3-digit alphanumeric, required
Dim cValue As String Dim cValue As String
cValue = Trim(ws.Cells(rowNum, 3).Value) cValue = Trim(ws.Cells(rowNum, 3).Value)
@@ -250,7 +250,7 @@ Sub Z1_validateDetailDataButton()
errorCount = 0 errorCount = 0
For r = 7 To lastRow For r = 7 To lastRow
Call Z1_Z1_validateDetailData(ws, r) Call Z1_validateDetailData(ws, r)
If Trim(ws.Cells(r, 2).Value) <> "" Then If Trim(ws.Cells(r, 2).Value) <> "" Then
errorCount = errorCount + 1 errorCount = errorCount + 1
End If End If