Excel VBA質問箱 IV

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

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


57026 / 76732 ←次へ | 前へ→

【24447】Re:自作関数について
回答  ウッシ  - 05/4/22(金) 13:47 -

引用なし
パスワード
   ▼VBA初心者 さん:
>▼ウッシ さん:
>ありがとうございます。関数名も変更いたしました。
>
>しかしながら、何故だか実行しても変更されません…
>もしや、他の部分にも間違いが…
>
>頑張って探してみます!

済みません、動作確認してなかったです。
>変更されません…
というよりエラーになったのでは?

Sub settei(i As Integer)
  With Worksheets("勤務表")
    .Cells(i, 1).Font.ColorIndex = 3
    .Cells(i + 1, 1).Font.ColorIndex = 3
    .Range("C" & i).ClearContents
    .Range("E" & i).ClearContents
    .Range("G" & i).ClearContents
    .Range("I" & i).ClearContents
    .Range("K" & i).ClearContents
  End With
End Sub

「i」は「1」以上でないと別のエラーになりますので呼び出し側かどこかでチェック
して下さい。
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 お礼

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