Excel VBA質問箱 IV

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

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


57034 / 76732 ←次へ | 前へ→

【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 質問
【24440】Re:自作関数について ウッシ 05/4/22(金) 11:15 回答
【24444】Re:自作関数について VBA初心者 05/4/22(金) 13:35 お礼
【24447】Re:自作関数について ウッシ 05/4/22(金) 13:47 回答
【24454】Re:自作関数について VBA初心者 05/4/22(金) 14:10 質問
【24457】Re:自作関数について ウッシ 05/4/22(金) 14:28 回答
【24460】Re:自作関数について VBA初心者 05/4/22(金) 14:40 質問
【24463】Re:自作関数について ウッシ 05/4/22(金) 14:48 回答
【24465】Re:自作関数について VBA初心者 05/4/22(金) 14:53 お礼

57034 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free