Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57040 / 76738

←次へ　｜　前へ→


	【24439】自作関数について

VBA初心者 - 05/4/22(金) 11:06 -


	引用なし

	パスワード

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
としております。

0 hits

▼

【24439】自作関数について VBA初心者 05/4/22(金) 11:06

≪