今日の日付を太字にして土曜を青字日曜を赤字にしたい

質問

Excelで作成した予定表で、今日の日付を太字にし、土曜の日付を青字、日曜の日付を赤字にする方法を教えてください。
条件付き書式で
条件1.セルの値が～次の値に等しい～=TODAY()として書式ボタンで太字
条件2.数式が～=TEXT(先頭のセル,"aaa")="土"として書式ボタンに青字
条件3.数式が～=TEXT(先頭のセル,"aaa")="土"として書式ボタンに赤字
と設定しました。
土日の字の色は変わりましたが、今日の日付が太字になりません。

回答No.7

marbin · ベストアンサー

「ツール」
↓
「マクロ」
↓
「Visual basic Editor」

と進んでいくと、
左にツリーが出てきます。
ツリーの中に

「ThisWorkBook」

とあるはずですので「ThisWorkBook」
をダブルクリックすると右側に空白の
ウィンドゥが開きます。

コードをコピーしウィンドゥの中で
右リックし「貼付け」を選択します。

これで貼付け終了です。

「ファイル」
↓
「終了してMicrosoft Excelへ戻る」

でエクセル画面に戻ります。

ブックを上書き保存し、次回ブックを
開いたら自動的に今日の日付けが太文
字表示されます。

マクロの勉強は、↓が参考になると思います。

「ExcelVBAへの道」
http://www.voicechatjapan.com/excelvba/index.html

お礼

出来ました！
このANo.7に従ってNo.5のコードを貼り付け、NO.6を設定しました。
確かめるために、あえてパソコンの時刻を故意に現在日を11月6日にしたら、11月6日が青くなり、太字になりました。
コードのまる写しなので、こらからよく勉強いたします。
有難うございました。

回答No.6

marbin

＃5の補足です。

#5で書いたコードは今日の日付を太字にする
だけのものです。

土曜を青、日曜を赤にするのは通常の条件付き
書式で設定しておいてください。

回答No.5

marbin

マクロを使う方法を・・・。

次のコードを
ThisWorkBookに記述し、
更に
シート2のＡ１に
=Today()
と入力しておいてください。
なお、下記のコードはシート1のＡ列に日付データが
入っているという前提です。
他のシートや他の列に日付データが入力されている場
合は記述を少し手直しする必要があります。

**********************
Private Sub Workbook_Open()
Dim i As Integer
Dim l As Long
Dim r As Range
i = Sheets("sheet1").Range("a1").End(xlDown).Row
Set r = Sheets("sheet1").Range("a1", "a" & i)
With r.Font
.Bold = False
End With
Sheets("sheet1").Columns("a:a").AutoFit
l = Sheets("sheet1").Range("a1").End(xlDown).Row
Set r = Sheets("sheet1").Range("a1:a" & l).Find(Sheets("sheet2").Range("a1").Value, lookat:=xlWhole)
If r Is Nothing Then
Exit Sub
Else
With r.Font
.Bold = True
End With
End If
End Sub
**********************

お礼

ご親切に何度もご回答いただき、マクロのプログラムまでお示しくださり、感激です。
マクロは名前だけ知っており、まだ自分で書いたことはありません。この機会に勉強してやってみたいと思います。つまづいたら、お教えを乞いますのでどうかフォロウをお願いいたします。

回答No.4

imogasi

条件付き書式は、３つ出来る条件設定で、上から
数式が　=WEEKDAY(A1)=7　　文字色青
数式が　=WEEKDAY(A1)=1　　文字色赤
数式が　=A1=TODAY()　　　　文字太字
でOKとすればよい。
しかし今日のように、今日が日曜である時は、太字になりません。３つのうち上の条件が優先されます。
ですから正確には要望に答えられないと思います。

お礼

ご回答有難うございました。
私は条件1に太字の設定をしたので、今日（11月7日）は太字になりましたが、赤くはなりません。
土日を当日を太字にするか、色つきにするかの選択ですね。

回答No.3

marbin

#2です。

私が提示した方法は失敗です。

この方法だと日曜日が全て太字になりました。
失礼しました。

回答No.2

marbin

一度条件付き書式で

条件1に「セルの値が」
次の値に等しい
=Today()
で書式を太字にて「ＯＫ」

再度条件付き書式を開いて
条件1の「セルの値が」を「数式が」に変更
「次の値に等しい」はそのまま
式を
=Weekday(a1,1)=1
書式を色を赤に設定

「追加」をクリックし
条件2を同じように
数式が
次の値に等しい
式を
=Weekday(a1,1)=7
書式を色を青に設定

でいかかでしょう？

回答No.1

haruka1234567890

セルの値は、今日の日付ですよね？
条件１ですよね？

なると思いますが。

たとえば、土曜日の条件が条件１だと、
今日は土曜日だから、そちらが優先されますよ。

お礼

早速ご回答有難うございます。
今日（11月7日）は日曜なので、太字になっていますが、赤字になっていません。
次の日曜の11月14日は赤くなっています。