|
Workbookに自作関数「Change」を作成しております。
その中でフォント色を変える作業をしているのですが、
複数部分で同じ処理があるため、
もう一つ関数「settei」を作成し、
Callで呼び出そうとしたのですが、どうも関数setteiに書かれてある
構文がおかしいのか…動きません。
下に、関数setteiを記述しますので、ご指導よろしくお願いします。
Sub settei()
Dim i As Integer
Worksheets("勤務表").Range(Cells(i, 1)).Font.ColorIndex = 3
Worksheets("勤務表").Range(Cells(i + 1, 1)).Font.ColorIndex = 3
Worksheets("勤務表").Range("C" & i) = ""
Worksheets("勤務表").Range("E" & i) = ""
Worksheets("勤務表").Range("G" & i) = ""
Worksheets("勤務表").Range("I" & i) = ""
Worksheets("勤務表").Range("K" & i) = ""
End Sub
関数ChangeでFor文にてiをまわしている作業をしている途中で関数setteiを
呼び出しているので、こちらでもiを使ったのですが…
関数Changeで呼び出すときは
Call ThisWorkbook.settei
としております。
|
|