update Generic Master bas

This commit is contained in:
updsv7
2026-04-14 18:33:30 +09:00
parent 678478b975
commit a236b92a65
5 changed files with 4 additions and 4 deletions

View File

@@ -123,7 +123,7 @@ Sub Generic_Master_validate(ByVal ws As Worksheet, ByVal rowNum As Long)
' clear C~I columns background color ' clear C~I columns background color
Dim clearRange As Range Dim clearRange As Range
Set clearRange = ws.Range(ws.Cells(rowNum, 3), ws.Cells(rowNum, 9)) Set clearRange = ws.Range(ws.Cells(rowNum, 3), ws.Cells(rowNum, 9))
clearRange.Interior.ColorIndex = vbWhite clearRange.Interior.Color = vbWhite
If cValue = "" Then If cValue = "" Then
ws.Cells(rowNum, 2).Value = "C column is required" ws.Cells(rowNum, 2).Value = "C column is required"

View File

@@ -28,5 +28,5 @@ Sub Z1_ToggleAutoFilter()
End Sub End Sub
Sub Z1_AutoFitColumnWidth() Sub Z1_AutoFitColumnWidth()
Call AutoFitColumnWidth() Call AutoFitColumnWidth(2, 9)
End Sub End Sub

View File

@@ -28,5 +28,5 @@ Sub Z2_ToggleAutoFilter()
End Sub End Sub
Sub Z2_AutoFitColumnWidth() Sub Z2_AutoFitColumnWidth()
Call AutoFitColumnWidth() Call AutoFitColumnWidth(2, 9)
End Sub End Sub

View File

@@ -28,5 +28,5 @@ Sub Z3_ToggleAutoFilter()
End Sub End Sub
Sub Z3_AutoFitColumnWidth() Sub Z3_AutoFitColumnWidth()
Call AutoFitColumnWidth() Call AutoFitColumnWidth(2, 9)
End Sub End Sub