Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68274 / 76734 ←次へ | 前へ→

【13000】Re:下線を引いた文字を太字に変える方法
回答  ichinose  - 04/4/20(火) 21:00 -

引用なし
パスワード
   ▼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
0 hits

【12979】下線を引いた文字を太字に変える方法 TAMA 04/4/20(火) 17:50 質問
【13000】Re:下線を引いた文字を太字に変える方法 ichinose 04/4/20(火) 21:00 回答
【13013】Re:下線を引いた文字を太字に変える方法 TAMA 04/4/21(水) 9:48 お礼

68274 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free