| |
▼TAMA さん：
こんばんは。
>エクセルシートのセル全てを対象に
>下線を引いた文字を探して、その文字を
>太字に変えるマクロをつくりたいのですが、
>フォントのプロパティを取得して
>それをIF 文のなかで使う方法がわかりません。
>どなたか教えていただければ幸いです。
>
>（「東京都西新宿」の「西」に下線が引かれていた場合
> 「西」の下線を削除して太文字にしたいということです。）
以下のコードを試してみて下さい
'=========================================================
Sub main()
Dim rng As Range
For Each rng In ActiveSheet.Range("a1").CurrentRegion
Call アンダーラインだったら太字に変換(rng)
Next
End Sub
'============================================================
Sub アンダーラインだったら太字に変換(rng As Range)
With rng
For idx = 1 To .Characters.Count
With .Characters(idx, 1).Font
If .Underline <> xlUnderlineStyleNone Then
.Underline = xlUnderlineStyleNone
.FontStyle = "太字"
End If
End With
Next
End With
End Sub
|
|
