VBA 文字列中に太字があるかを判定したい

Question

VBAについて、どれだけ調べて試してもできず、sampleコードをご教示頂きたく。

A1～D1のセルにそれぞれ
A1：あいうえお　※「いう」が太字
B1：かきくけこ　※「こ」が太字
C1：さしすせそ　※「さ」が太字
D1：たちつてと　※太字無し
が入っています。

それぞれのセルに太字が含まれていれば、下の行（A2～D2）に”〇”を記載できるようなものを作りたいと思っています。
（結果はA2～C2が”〇”となります）

Midで区切って判定しようと思ってもうまくいかず、
以上のようなマクロを書く際、どのように書いたらいいのかご教示お願い致します。

Answer 1

以下のように.Characters(1, .Characters.Count).Font.Boldの内容により
1文字ずつ確認せずとも文字列中にboldがあるかどうか判定可能です。
（※Boldと非boldが混在した場合はNullが返ります。）

With Worksheets("Sheet1")
    For cntCol = 1 To 4
        Dim hasBoldChars
        With .Cells(1, cntCol)
            hasBoldChars = .Characters(1, .Characters.Count).Font.Bold
            hasBoldChars = IsNull(hasBoldChars) Or hasBoldChars
        End With
    
        If hasBoldChars Then
            .Cells(2, cntCol).Value = "〇"
        End If
    Next
End With

Answer 2

Rangeオブジェクトのcharactersプロパティを使用すれば可能です。

もしA1セルに abc （bが太字）という文字列が入っていたとして

Debug.Print Range("A1").Characters(1,1).Font.Bold    ' １文字目
Debug.Print Range("A1").Characters(2,1).Font.Bold    ' ２文字目
Debug.Print Range("A1").Characters(3,1).Font.Bold    ' ３文字目

結果
False
True
False

Answer 3

太字の情報は格納先が違います。

For i = 1 To 5
    Cells(1, 1).Characters(i, 1).Font.Bold = True
Next i

このようにすれば最初の5文字が太字になります。
つまり、一文字づつfor文で回して一文字づつ調べていく必要があります。
フォントについては奥が深いので、頑張って勉強してください。