diff --git a/src/module/Generic_Master_Common.bas b/src/module/Generic_Master_Common.bas index 15f7594..120ea54 100644 --- a/src/module/Generic_Master_Common.bas +++ b/src/module/Generic_Master_Common.bas @@ -123,7 +123,7 @@ Sub Generic_Master_validate(ByVal ws As Worksheet, ByVal rowNum As Long) ' clear C~I columns background color Dim clearRange As Range Set clearRange = ws.Range(ws.Cells(rowNum, 3), ws.Cells(rowNum, 9)) - clearRange.Interior.ColorIndex = vbWhite + clearRange.Interior.Color = vbWhite If cValue = "" Then ws.Cells(rowNum, 2).Value = "C column is required" diff --git a/src/thisWorkbook/Master_222.bas b/src/thisWorkbook/Master_222.bas index 99fa534..098ab3a 100644 --- a/src/thisWorkbook/Master_222.bas +++ b/src/thisWorkbook/Master_222.bas @@ -28,5 +28,5 @@ Sub Z1_ToggleAutoFilter() End Sub Sub Z1_AutoFitColumnWidth() - Call AutoFitColumnWidth() + Call AutoFitColumnWidth(2, 9) End Sub \ No newline at end of file diff --git a/src/thisWorkbook/Master_223.bas b/src/thisWorkbook/Master_223.bas index 2faee11..857711a 100644 --- a/src/thisWorkbook/Master_223.bas +++ b/src/thisWorkbook/Master_223.bas @@ -28,5 +28,5 @@ Sub Z2_ToggleAutoFilter() End Sub Sub Z2_AutoFitColumnWidth() - Call AutoFitColumnWidth() + Call AutoFitColumnWidth(2, 9) End Sub \ No newline at end of file diff --git a/src/thisWorkbook/Master_224.bas b/src/thisWorkbook/Master_224.bas index 3903a12..ee18efc 100644 --- a/src/thisWorkbook/Master_224.bas +++ b/src/thisWorkbook/Master_224.bas @@ -28,5 +28,5 @@ Sub Z3_ToggleAutoFilter() End Sub Sub Z3_AutoFitColumnWidth() - Call AutoFitColumnWidth() + Call AutoFitColumnWidth(2, 9) End Sub \ No newline at end of file diff --git a/通勤手当テンプレート_案.xlsm b/通勤手当テンプレート_案.xlsm index 8a577b7..a6d4ceb 100644 Binary files a/通勤手当テンプレート_案.xlsm and b/通勤手当テンプレート_案.xlsm differ