フォントの変更は条件付き書式では設定できないようですね。なければ作ればいいということで書いてみました。
ツール→マクロ→Visual Basic Editoe でVBE画面に移って、表示→プロジェクトエクスプローラでプロジェクトエクスプローラ画面を出し、ThisWorkbookをダブルクリックして、そのコードウインドウに貼り付けます。
条件付き書式をセットしいているセルに変更があると、判断してフォントを変えます。
ついでにフォントサイズも変えています。不要なら<Size>の行は削除して下さい。
今は、O.3以上が条件です。条件が成立しない場合、"ＭＳ Ｐ明朝"にしてあります。
とりあえず、条件付き書式の設定は１つとしてあります。
条件付き書式と同じ条件でフォントを操作するマクロ
(ThisWorkbookのコードウインドウに貼り付け)
Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim rg As Range 'セル
For Each rg In Target '複数セルを操作した時の対応
If rg.FormatConditions.Count > 0 Then
If Val(rg) >= 0.3 Then '条件付き書式の条件
rg.Font.Name = "ＭＳ Ｐゴシック" '条件成立
rg.Font.Size = 14 ' フォントサイズ(不要なら削除)
Else
rg.Font.Name = "ＭＳ Ｐ明朝" '条件不成立
rg.Font.Size = 11 ' フォントサイズ(不要なら削除)
End If
End If
Next
End Sub
お礼
ＶＢＡの記述までしていただきありがとうございました。 やはり、フォントの変更はできないですか・・・。なんとなく動かせそうな感じになってますよね。ダメならあの欄は要らないような気がするのですが…。どうもそのあたりが腑に落ちません。。なにか理由があるのでしょうか？？ 早速の回答ありがとうございました。またお願いします。