VBAのFont.Boldで太字にならない。

Question

VBAのFont.Boldで太字にならない。

信一中嶋 60

Excel2021のVBAで「特定のセルを強調する」ため下記ソースを実行すると、その下の図に示すように.Colorで文字の色が変化するが、.Boldで文字が太字になりません。なお、「セルの書式設定」で太字設定を行うと太字になるため、太字フォントは実装しています。どこが間違っているのでしょうか？

注）関数自身のセルを変更することになりますが、書式のみの変更の為問題ないと思われます。

'素因数分解(素数強調)

Public Function SoinsuuRg(n As Range, Optional c As Integer = 2) As String

nll^ = n.Cells(1, 1).Value                                      'nを64Bit整数化(LongLong)

s$ = Soinsuu(nll^)                                              '素因数分解

SoinsuuRg = "= " & s$                                           '先頭に=を付加

With n.Cells(1, c).Font                                         'オブジェクト名の修飾

    If InStr(s$, "*") = 0 And InStr(s$, "^") = 0 Then           '素数を強調

            .Color = RGB(255, 0, 0)                             'Fontを赤に設定

            .Bold = True                                        'Fontを太字に設定

    Else:   .Color = RGB(0, 0, 0)                               'Fontを黒に設定

            .Bold = False                                       'Fontを標準に設定

    End If

End With
End Function

Font設定

<モデレーター注>
質問内容をもとにタグを「Microsoft 365 と Office | Excel | その他 | Windows」→「開発者テクノロジ」に変更しました。

0 件のコメント

質問作成者が受け入れた回答

motosan 3,570

「udf 他のcell のフォント変更」の Copilot Search の回答です。

ExcelのUDFは基本的に計算結果を返すだけで、セルの書式（フォントや色など）を直接変更することは推奨されていません。UDFはセル参照から値を返すことしかできず、書式設定の変更は通常VBAのSubプロシージャを使います。しかし、VBAマクロであれば他のセルのフォントを変更可能です。

UDFとしてではなくSubで使う理由

UDFではExcelのセルフォーマットにはアクセスできないため、フォント変更はSubプロシージャを使う必要があります。 UDFでフォント変更を試みても、Excelは警告を出すか、無視されます。

補足

条件付き書式でも簡単なフォント変更は可能ですが、より柔軟な操作にはVBAマクロが必要です。

実際は色だけは変更できているようですが、UDF（ユーザ定義関数）でなくSubプロシージャか Worksheet イベントを使うことを検討した方が良いと思います。

追記）

条件付き書式でもよさそうに思います。

"*" も "^" も含まない場合フォントの色と太字のスタイルを変更すれば良いのではありませんか？

信一中嶋 60

「Worksheet イベント」を用いた方法で作り直しました。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rg As Range

Set rg = Range("素因数")                                            '素因数分解テーブル

If Target.Column <> rg.Column Then Exit Sub                         '列違い

n% = rg.Rows.Count                                                  'テーブル数

i% = Target.Row - rg.Row + 1                                        'テーブル位置

If i% < 1 Or i% > n% Then Exit Sub                                  'テーブル外

For i% = 1 To n%                                                    '手入力分しかイベントが発生しないため！

    nll^ = rg.Cells(i%, 1).Value                                    'nを64Bit整数化(LongLong)

    s$ = Soinsuu(nll^)                                              '素因数分解

    With rg.Cells(i%, 2).Font                                       'オブジェクト名の修飾

        If InStr(s$, "*") = 0 And InStr(s$, "^") = 0 Then           '素数か？

                .Color = RGB(255, 0, 0)                             'Fontを赤に設定

                .Bold = True                                        'Fontを太字に設定

        Else:   .Color = RGB(0, 0, 0)                               'Fontを黒に設定

                .Bold = False                                       'Fontを標準に設定

        End If

    End With

    rg.Cells(i%, 2) = "'= " & s$

Next i%

End Sub

下図の様に太字で表示できるようになりました。

Font設定3

だだし、この方法では個別に「Worksheet イベント」を作成する必要があり、非常に面倒で汎用性がありません。原因が解かりましたので、今後は下記　追記）の方向で対応していきたいと思います。

追記）

条件付き書式でもよさそうに思います。

"*" も "^" も含まない場合フォントの色と太字のスタイルを変更すれば良いのではありませんか？

信一中嶋 60 評価のポイント

2026-03-04T22:04:35.9933333+00:00

ちなみに「"*" も "^" も含まない」条件は下記となりますが、もっと簡単な記述は有りますか？

=AND(IFERROR(SEARCH(" * ",$C4),0)=0,IFERROR(SEARCH("^",$C4),0)=0)
motosan 3,570 評価のポイント

2026-03-05T00:09:03.67+00:00
あまり簡単とはいえませんが、下記のようにも記述できます。

" * " と "^" を削除して元の文字列と比較しています。

=$C4=SUBSTITUTE(SUBSTITUTE($C4," * ",""),"^","")
信一中嶋 60 評価のポイント

2026-03-05T00:27:47.3666667+00:00

上記で確認してOKでした。どちらが簡単かは微妙ですね

SERACHがERRORでなく、VBAのInstrと同じ0が返却されれば良いのですが・・・
信一中嶋 60 評価のポイント

2026-03-05T12:21:43.3566667+00:00
下記の様に変更することにより、

'素因数分解＆素数判定

Public Function SoinsuuP(n As LongLong) As String

s$ = Soinsuu(n) If InStr(s$, "*") = 0 And InStr(s$, "^") = 0 _ Then SoinsuuP = "＝ " & s$ _ Else SoinsuuP = "→ " & s$

End Function

「条件付き書式」の条件式が下記の通り簡単になりました。

=LEFT($E3,1)="＝"

実行結果

1 件の追加の回答

お客様の回答

信一中嶋 60 評価のポイント

2026-03-04T14:16:39.64+00:00

「Worksheet イベント」を用いた方法で作り直しました。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rg As Range

Set rg = Range("素因数") '素因数分解テーブル If Target.Column <> rg.Column Then Exit Sub '列違い n% = rg.Rows.Count 'テーブル数 i% = Target.Row - rg.Row + 1 'テーブル位置 If i% < 1 Or i% > n% Then Exit Sub 'テーブル外 For i% = 1 To n% '手入力分しかイベントが発生しないため！ nll^ = rg.Cells(i%, 1).Value 'nを64Bit整数化(LongLong) s$ = Soinsuu(nll^) '素因数分解 With rg.Cells(i%, 2).Font 'オブジェクト名の修飾 If InStr(s$, "*") = 0 And InStr(s$, "^") = 0 Then '素数か？ .Color = RGB(255, 0, 0) 'Fontを赤に設定 .Bold = True 'Fontを太字に設定 Else: .Color = RGB(0, 0, 0) 'Fontを黒に設定 .Bold = False 'Fontを標準に設定 End If End With rg.Cells(i%, 2) = "'= " & s$ Next i%

End Sub

下図の様に太字で表示できるようになりました。

だだし、この方法では個別に「Worksheet イベント」を作成する必要があり、非常に面倒で汎用性がありません。原因が解かりましたので、今後は下記　追記）の方向で対応していきたいと思います。

追記）

条件付き書式でもよさそうに思います。

"*" も "^" も含まない場合フォントの色と太字のスタイルを変更すれば良いのではありませんか？
信一中嶋 60 評価のポイント

2026-03-04T22:04:35.9933333+00:00

ちなみに「"*" も "^" も含まない」条件は下記となりますが、もっと簡単な記述は有りますか？

=AND(IFERROR(SEARCH(" * ",$C4),0)=0,IFERROR(SEARCH("^",$C4),0)=0)
motosan 3,570 評価のポイント

2026-03-05T00:09:03.67+00:00

あまり簡単とはいえませんが、下記のようにも記述できます。

" * " と "^" を削除して元の文字列と比較しています。

=$C4=SUBSTITUTE(SUBSTITUTE($C4," * ",""),"^","")
信一中嶋 60 評価のポイント

2026-03-05T00:27:47.3666667+00:00

上記で確認してOKでした。どちらが簡単かは微妙ですね

SERACHがERRORでなく、VBAのInstrと同じ0が返却されれば良いのですが・・・
信一中嶋 60 評価のポイント

2026-03-05T12:21:43.3566667+00:00

下記の様に変更することにより、

'素因数分解＆素数判定

Public Function SoinsuuP(n As LongLong) As String

s$ = Soinsuu(n) If InStr(s$, "*") = 0 And InStr(s$, "^") = 0 _ Then SoinsuuP = "＝ " & s$ _ Else SoinsuuP = "→ " & s$

End Function

「条件付き書式」の条件式が下記の通り簡単になりました。

=LEFT($E3,1)="＝"

実行結果

Answer 1

simo-k 96,220 ボランティアモデレーター

＞関数自身のセルを変更することになりますが、書式のみの変更の為問題ないと思われます
ワークシート関数は値を返すものです。
フォント変更などは基本的にサポートされていません。
そして、あなたのワークシート関数では循環参照が発生して、色変更は３回実行している筈です。
（更に、オマケとして保存前にも自動計算などによりマクロが走って３回色変更ですね。）

ユーザー操作、条件付き書式、(ワークシート関数以外の)マクロなどで対応してください。

信一中嶋 60 評価のポイント

2026-03-04T11:18:07.92+00:00
下記でc=1で実行すると循環参照が無くなりますが、

With n.Cells(1, c).Font 'オブジェクト名の修飾

下図のように、変化する位置が変わるだけで、太字にはなりませんでした。

参照セルを変更した場合の問題とも考えられるため、c=3とした場合は参照先／循環参照とも関係なくなりますが、下記のように太字になりませんでした。

＞ワークシート関数は値を返すものです。

＞フォント変更などは基本的にサポートされていません。

「Font.Bold=True」はワークシート関数ではなく、Fontオブジェクトのプロパティ設定で基本的にサポートされていると考えます。（Font.Colorの変更は正常に実行されている）

以上より、関数の自セル「値」変更でないため、循環参照の問題では無いと思われます。
simo-k 96,220 評価のポイントボランティアモデレーター

2026-03-04T11:29:28.4233333+00:00

Public Function SoinsuuRgはセルから呼び出していますよね。

回避策としては、他のマクロからPublic Function SoinsuuRgを呼び出してみてください。
simo-k 96,220 評価のポイントボランティアモデレーター

2026-03-04T11:54:34.51+00:00

＞ Font.Colorの変更は正常に実行されている
デバックモードで、Font.Bold=Trueの実行後に Bold値が変化していることを確認しましたか？（ワークシート関数化したものでは、変化しない筈です。）
信一中嶋 60 評価のポイント

2026-03-04T14:32:29.2266667+00:00

Font.Bold=Trueの実行後に Bold値が変化していません。

Font.Bold=Trueが効いていない模様。
simo-k 96,220 評価のポイントボランティアモデレーター

2026-03-04T14:38:37.46+00:00

Worksheet_Changeなどでは問題ありませんが、セルから呼び出すと動作は保証されていない様です。