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