エクセルマクロで下線や太字

Question

エクセルの入力データで特定文字間に下線を引いたり、太字にしたりしたいと思っていますが可能かも分かりません。
御教授願います。
なお、１つ１つ手動にて下線の設定をするのではなく自動で実施したいと思っています。

例．「A1」→「○○△△■■」
以上の場合に「△△」を下線を引いたり、太字にし「」「」を削除した内容を「B1」に入力したい。

aperun8 · Accepted Answer

当方、エクセルマクロの初心者ですが、下手なマクロでよければ以下のようなマクロコードをコピペして見てください。

一応、テスト済みです。

Sub MacroTest()

Dim Astr, Bstr As String
Dim Row, Ls, St, Et As Integer

Row = 1 'スタート行
Do
Range("A" & Trim(Str(Row))).Select
Astr = ActiveCell

If Astr = "" Then Exit Do

Ls = Len(Astr)
St = InStr(Astr, "") + 3
If St > 3 Then
Et = InStr(Astr, "") - 1
Bstr = Left(Astr, St - 4)
Bstr = Bstr & Mid(Astr, St, Et - St + 1)
Bstr = Bstr & Right(Astr, Ls - Et - 4)

Range("B" & Trim(Str(Row))).Select
ActiveCell = Bstr
With ActiveCell.Characters(Start:=St - 3, Length:=Et - St + 1).Font
.FontStyle = "太字"
.Underline = xlUnderlineStyleSingle
End With
Else
Range("B" & Trim(Str(Row))) = Astr
End If

Row = Row + 1
Loop
End Sub

わかりやすいコードだと思いますので、適当にアレンジしてください。
ご要望の結果が得られれば幸いです。

KenKen_SP · Answer

> 誤解を招いているようで、申し訳ありません。誤解してないと思いますが？試しに、メモ帳に下記のように一度入力し、それをコピーしてから、新規ブックにでもペーストしてみて下さい。 SampleTEXT メモ帳のテキストなのだから、書式のない単なるプレーンテキストのはずですよね？従って、そのままセルにペーストされるはず。 SampleTEXT この通りです。次に、～を補完して、 SampleTEXT としたものを同じようメモ帳に入力し、同じようにペーストしてみて下さい。これも単なるプレーンテキストです。が、結果は、先ほどと違って、表示が変わっていることに気がつくと思います。 #2 はこの Excel の特性を利用したコードです。別に Html ソースを書きだすために書いたものではありません。Excel に Html を解釈させ、Html として表示させるために書いたものです。単純にセルのコピーではダメなんです。セルの内容にのおまじないを加え、クリップボードを経由させることで Excel に書式を変更させる。。という手法です。とりあえず、お試しを。

pbforce · Answer

恐らく、HTMLエディタを0から作るぐらいの労力を費やせば可能かと思います。

入力されたら（セルの内容が変化したら）変化したセルの内容を取得して、タグの部分を検索して、当てはまるタグに対応する処理を実行し、表示用のセルに書き込む。

と言う手順になると思います。

KenKen_SP · Answer

ロジックとしては、セルの内容の頭に、末尾にを付加した文字列をコピーし、セルに貼り付ければ OK です。 VBA で全部やるならこんな感じ。 VBE の [ツール]-[参照設定] で [Microsoft Forms2.0 Object Library] にチェックを入れ、標準モジュールに下記コードをコピペ。 A 列のセルを範囲選択して、マクロ実行です。 Sub SampleProc() 　　' // 要参照設定: Microsoft Forms2.0 Object Library 　　Dim D　　 As DataObject 　　Dim r　　 As Range 　　Dim sHtml As String 　　　　Set D = New DataObject 　　For Each r In Selection.Cells 　　　　sHtml = "" & r.Text & "" 　　　　D.SetText sHtml 　　　　D.PutInClipboard 　　　　r.Offset(0, 1).PasteSpecial 　　Next 　　Set D = Nothing End Sub

pbforce · Answer

HTMLエディタの機能をエクセルに実装したいと言うことですか？

エクセルマクロで下線や太字

当方、エクセルマクロの初心者ですが、下手なマクロでよければ以下のようなマクロコードをコピペして見てください。

> 誤解を招いているようで、申し訳ありません。

恐らく、HTMLエディタを0から作るぐらいの労力を費やせば可能かと思います。

この回答への補足

ロジックとしては、セルの内容の頭に<html>、末尾に</html> を付加した

この回答への補足

HTMLエディタの機能をエクセルに実装したいと言うことですか？

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング