VBAで条件付書式

質問

アクセス2003なのですが
「色を青にして太字に」するにはどうすればいいでしょうか？

Sub 条件付書式()
With Form_フォーム1.テキスト2
.ForeColor = RGB(255, 255, 255)

With .FormatConditions
.Delete
.Add(acExpression, , "[テキスト2]=""青にする""").ForeColor = 16711680 '青
End With

End With
End Sub

で青にはなるのですが
青なおかつ太字にするにはどうすればいいでしょうか？

FontStyle プロパティを使うのでしょうか？
書き方を教えてください。

回答No.2

DexMachina · ベストアンサー

現在のコードでは、Addメソッドの実行時に直接「ForeColor」を指定していますが、
ここで同時に「FontBold」も指定します。
これには、他の箇所と同様に「With」を使用します。

Sub 条件付書式()

　　With Me.規格
　　　　'通常時の色と字の太さを設定
　　　　.ForeColor = RGB(255, 255, 255)　　　'文字色=白?
　　　　.FontBold = False
　　　　With .FormatConditions
　　　　　　.Delete
　　　　　　'追加するFormatConditionの詳細を指定
　　　　　　With .Add(acExpression, , "[テキスト2]='青にする'")
　　　　　　　　'必要に応じて、ここに「.BackColor」なども追加できます
　　　　　　　　.ForeColor = RGB(0, 0, 255)　　'文字色=青
　　　　　　　　.FontBold = True　　　　　　　　　'太字
　　　　　　End With
　　　　End With
　　End With

End Sub

・・・以上です。

お礼

思い通りになりました。ありがとうございます。

回答No.1

bonaron

ヘルプの 「FormatConditions プロパティ」 に
使用例が書かれています。

ついでに
「FormatCondition オブジェクト」 も見ておいた方が
よろしいでしょう。

お礼

見てみます。ありがとうございます。