あなたはエクセルで今日の曜日が一目でわかって、しかも色が変わったらいいのに、と思ったことはありませんか？
毎日会社に行き忙しくしていると、ふと「あれ？今日何曜日だっけ？」となるときがありますよね。
土日休みの会社なら、金曜日がPCの画面に表示されるとうれしくなるものです。
エクセルマクロを使えば、今日が何曜日か、エクセルを開いたときに表示して、しかもセルの色も自動で変えられます。
今回は「エクセルで曜日によってセルの色を自動で変える方法」を紹介します。
エクセルで曜日によってセルの色を自動で変える方法
エクセルで曜日によってセルの色を自動で変える方法です。
マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法
１．「alt」+「F11」を押す →コード入力画面が開く
２．ThisWorkbookをダブルクリック
３．コードを入力
コードを入力します。
曜日を取得して、A1セルに曜日を表示＆色を変える、という意味です。
４．上書き保存して、エクセルを一回閉じて、エクセルを再び立ち上げる →A1セルに今日の曜日が表示され、セルの色が変わる
日曜から土曜まで、下の画像のように色が変わります。
おお、今日の曜日がすぐわかって便利！
まとめ
エクセルで曜日によってセルの色を自動で変える方法です。
１．「alt」+「F11」を押す →コード入力画面が開く
２．ThisWorkbookをダブルクリック
３．コードを入力
４．上書き保存して、エクセルを一回閉じて、エクセルを再び立ち上げる →A1セルに今日の曜日が表示され、セルの色が変わる
これで今日の曜日が一目で分かって便利ですね！
ちなみに、今回使ったコードはこちらです。
Private Sub Workbook_Open()
曜日表示と色変更
End Sub
Sub 曜日表示と色変更()
Dim 曜日 As String
Dim 曜日番号 As Integer
' 今日の曜日を取得
曜日番号 = Weekday(Date, vbSunday)
曜日 = Format(Date, "aaaa") ' 日本語の曜日（例：月曜日）
' A1セルに表示
With Range("A1")
.Value = "今日は" & 曜日
.Font.Color = RGB(0, 0, 0) ' 文字色：黒（共通）
' 背景色を曜日によって変更
Select Case 曜日番号
Case vbSunday ' 日曜
.Interior.Color = RGB(255, 200, 200) ' 薄い赤
Case vbMonday ' 月曜
.Interior.Color = RGB(200, 200, 255) ' 薄い青
Case vbTuesday ' 火曜
.Interior.Color = RGB(200, 255, 200) ' 薄い緑
Case vbWednesday ' 水曜
.Interior.Color = RGB(255, 255, 200) ' 薄い黄色
Case vbThursday ' 木曜
.Interior.Color = RGB(255, 220, 180) ' 薄いオレンジ
Case vbFriday ' 金曜
.Interior.Color = RGB(220, 255, 255) ' 薄い水色
Case vbSaturday ' 土曜
.Interior.Color = RGB(220, 200, 255) ' 薄い紫
End Select
End With
End Sub
コメント