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 回答日時： 2009/12/11 21:53

現在のコードでは、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


・・・以上です。

この回答へのお礼

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

お礼日時：2009/12/13 16:04

No.1 回答者： bonaron 回答日時： 2009/12/11 21:44

ヘルプの 「FormatConditions プロパティ」 に

使用例が書かれています。

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

この回答へのお礼

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

お礼日時：2009/12/13 16:04