マクロでセルの中の一部の書式を選び出したり出来ますでしょうか？

質問

マクロでセルの中の一部の書式を選び出したり出来ますでしょうか？
エクセルにウェブの文字列を貼り付けたのですけど
文字列の中の書式で太字や赤字のあるセルだけをマクロで選んだり出来るのでしょうか？

たとえばエクセルに貼り付けた結果が下のようになった場合（セルA１～A５）

１番・東京２３区
２番・大阪府大阪市
３番・愛知県名古屋市
４番・福岡県福岡市
５番・北海道札幌市

１～５という数字は太字で書かれてある
「東京２３区」という文字は赤字で書かれてある
「大阪市」という文字は太字で書かれてある（「大阪府」は普通の書式）
その他の文字は普通の書式

これをマクロで何とかすると
セルB1に「赤」
セルB2に「太」
セルB3~B5は何も無し
って感じに、最初の数字の書式は無視して、文の一部にだけ書式が設定されているのを選び出して、表示できるように出来ますか？

回答No.1

mt2008 · ベストアンサー

1文字づつ見て行くしかないのでは？
以下のサンプルでは、A列のセルを一行づつ、1文字づつ見て行って、赤字（ColorIndex = 3）、太字（Bold = True）を探してB列に結果を書き出します。
赤字も太字もある場合は「赤太」と表示します。

Sub Sample()
　　Dim r As Range
　　Dim sRed As String
　　Dim sBold As String
　　Dim i As Long

　　For Each r In Range("A1:A10")
　　　　sRed = ""
　　　　sBold = ""
　　　　For i = 1 To Len(r)
　　　　　　With r.Characters(Start:=i, Length:=1).Font
　　　　　　　　If .ColorIndex = 3 Then sRed = "赤"
　　　　　　　　If .Bold = True Then sBold = "太"
　　　　　　End With
　　　　　　If (sRed = "赤") And (sBold = "太") Then Exit For
　　　　Next i
　　　　r.Offset(0, 1) = sRed & sBold

　　Next r
End Sub

お礼

ありがとうございます
まだしていませんが、なんかこれだと出来そうな気がします

回答No.3

mt2008

ANo.1 です。
失礼、1文字目は無視するんですね。
以下のように修正してください。

For i = 1 To Len(r)
↓
For i = 2 To Len(r)

回答No.2

imogasi

>文の一部にだけ書式が設定されているのを
一部というのをしっかり説明しないと
出来ますか？ に答えられない。
質問者の疑問は自ずと読者・回答者に判ると思ったら、読者は迷惑。
１シート上で大阪府の入ったセルのその文字だけの書式をＶＢＡで割り出して、別関係セルに情報を書き出すなら出来るかもしれない。
（１）大阪府の在るセルをＦｉｎｄメソッドなどで検索
（２）見つかったセルの大阪府の文字列の位置を割り出す
（３）その大阪府の文字列部分に設置されている書式を割り出す。
　　書式のどれか（何か、例えば太字か否か、フォントサイズ、フォント色などを決めて）に決めないと一遍に複数書式は割り出せないでしょう。
Ｆｉｎｄメソッドを使うにはＶＢＡとしては中級以上の技量が要るもの。ただしマクロの記録が採れたり、ＷＥＢなどには例はあふれているが。
参考
Sub test01()
Set f = Range("a1:D10").Find("*大阪府*")
MsgBox f.Address
p = InStr(f, "大阪府")
MsgBox p
x = f.Characters(p, 3).Font.Italic
If x = True Then
MsgBox "斜体です"
Else
MsgBox "斜体ではありません "
End If
End Sub
ーー
テスト
Ｓｈｅｅｔ１のＣ４に「古くから近畿の大阪府（３文字斜体）の人は」と入れて実行
Ｃ４
８
斜体です
と出る。
Ｃ３に「沈下気味の大阪府（３文字赤字）は」と入れて実行すると
Ｃ３
６
斜体では在りません
どでる。
（しかしＦｏｎｔ．Ｃｏｌｏｒは別途コードで聞き出さないとダメということ）
ーー
以上は大阪府を含む上記文字列が、初出である場合でテストしたが、複数セルに出現する場合は
Ｆｉｎｄメソッドのコードを改良して、２番目以降のセルも捉えられるようにしないとならない。
ＷＥＢで「ＶＢＡ　Ｆｉｎｄ」ででも照会のこと。ここでは略。

お礼

ありがとうございます
説明が不十分で申し訳ありません
ｗｅｂで探そうにも、どうゆう解決方法が有るのかさえ分からないので
これから勉強させてもらいます