エクセル2002のVBAで太文字を検索したいのですが、
エクセル2002のVBAで太文字を検索したいのですが、
<状況>
B列にチェックしたい文字が入力されています
<やりたいこと>
B列に入力されている文字の中から、太文字のみを抜き出して、
太字の見つかった行のG列に太文字のみを抜き出して複写したい
<自作マクロの現状>
セル全体の太文字検索は下記のマクロ「太字検索チェック1」で完成しましたが、
セルに記載してある文字の中で「一部は普通文字、のこり一部は太文字」と混在
しているセルの中身から太文字部分のみを別のセルに抜き出したいのですが、
そのマクロを「太字検索チェック2」のように書きました。
しかし「太字検索チェック2」の「 If dat.Font.Bold = True Then」の部分で
「型が違う・・・」のエラーで先に進みません。
どなたか、セルの中身の太文字のみを抜き出すマクロを教えてください
よろしくお願いします
Sub 太字検索チェック1()
i = 3
Worksheets("テスト").Activate
For Each myRng In Range("B:B")
セル = "b" & i
If Range(セル).Font.Bold = True Then
Cells(i, 7) = Cells(i, 2) ’太字のCells(i, 2)を Cells(i, 7) にコピー
End If
i = i + 1
If i = 1703 Then ’1703番地で終了
Exit For
End If
Next
End Sub
Sub 太字検索チェック2()
i = 3
Worksheets("テスト").Activate
For Each myRng In Range("B:B")
内容 = Cells(i, 2)
文字数 = Len(内容)
For p = 1 To 文字数
dat = Mid(内容, p, 1)
X=8+P
If dat.Font.Bold = True Then ’1文字づつ太字を検索
Cells(i, X) = dat ’太字なら→Cells(i, X) にコピー
End If
Next
i = i + 1
If i = 1703 Then
Exit For
End If
Next
End Sub