|
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
|
|