Excel VBA質問箱 IV

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

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


36720 / 76732 ←次へ | 前へ→

【45190】サブルーチンについて
質問  ToShiYo  - 06/12/14(木) 21:58 -

引用なし
パスワード
      A     B
5  月日   曜日
6 12月1日   金 ←…「=A6」
7 12月2日   土
8 12月3日   日
9 12月4日   月
10   :
    :
    :
  12月31日

B列の曜日の表示をB列 = A列とし
書式の設定で"aaa"で表示しています。

サブルーチンを使い「土」と「日」の
Interior.ColorIndexで色を変更したく
コードを書きました。
B列に関数が入っているため、正しく
動作をしません…関数を外した場合(単に月・火・水・・・日と書いた)は
正しく動作するのですが・・・、
関数を生かしたままの
状態で動作させるには下のコードの訂正部分を
指摘・アドバイスお願いします。

Sub WeekDay_Color()
 Range("B6").Select
 Do While ActiveCell.Value <> ""
   色変換 ActiveCell.Value
 ActiveCell.Offset(1).Select
 Loop
 Range("A1").Select
End Sub

Sub 色変換(Youbi As String)
 Select Case Youbi
 Case "日"
  ActiveCell.Interior.ColorIndex = 38
  ActiveCell.Font.ColorIndex = 3
 Case "土"
  ActiveCell.Interior.ColorIndex = 34
 Case Else
  ActiveCell.Interior.ColorIndex = xlNone
 End Select
End Sub
0 hits

【45190】サブルーチンについて ToShiYo 06/12/14(木) 21:58 質問
【45191】Re:サブルーチンについて Kein 06/12/14(木) 22:14 回答
【45193】Re:サブルーチンについて ToShiYo 06/12/14(木) 22:47 発言
【45192】Re:サブルーチンについて awu 06/12/14(木) 22:35 回答
【45194】Re:サブルーチンについて ToShiYo 06/12/14(木) 22:55 お礼

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