【マクロ】変数を使った、文字の種類の変更にて、エラーとなる。

【質問】
１番下のコードですが、以下の１行のみエラーとなります。他は動きます
fc.Font.Name = "century"
やりたい事は、Exact関数の結果⇒FALSEの文字の種類を、centuryに変更したいです

以下だと動くのですが、変数にすると動きません
Range("A1").font.Name = "century"

ご存じの方、教えて下さい

【コード。本サイトにてご指南頂いたコードを参考にして作りました】
Sub sample()

Dim lastrow As Long
lastrow = Cells(Rows.Count, "a").End(xlUp).Row

Dim fc As Object

'既存の条件付き書式があれば削除
Range("C1:k" & lastrow).FormatConditions.Delete

'条件を設定して、オブジェクトに格納

Set fc = Range("C1:k" & lastrow).FormatConditions.Add(Type:=xlExpression, Formula1:="=EXACT(C1,""FALSE"")")

'条件成立で、背景色を「赤色」
fc.Interior.Color = vbRed
'エラーとなります
fc.Font.Name = "century"

End Sub

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/03/16 11:22

条件付き書式では、フォントを指定することはできません。

できるのは、太字、斜体です。
もし、強調したためにcenturyを指定したいなら、
太字の設定にすることは可能です。
以下を追加してください。
'条件成立で「太字」
fc.Font.Bold = True

この回答へのお礼

なるほどすね。もともと、条件付書式設定はないんですね。
ご指摘ありがとうございます

お礼日時：2025/03/16 12:02