| |
お世話になっております。
78931:セル内の文字の一部の色を変えたい
の質問をさせていただきました、M.Eです。
アドバイスを頂いたおかげで、何とかマクロを組むことが出来ました。
Sub Sample2()
・いずれかのセルにAABBCCDDAABBCCDDAABBCCDDが入力されているとします。
・マクロを実行するとInPut Boxが表示されます。
・例えばCDと入力します。
・AABBCCDDAABBCCDDAABBCCDDのCDの3か所を赤色に変えることが出来ました。
ご助力、ありがとうございました。
ここからが質問なのですが、
このSub Sample2()をショートカットキー：Altとfで呼び出せるようにしたく、
手前にSub Sample1()のマクロを付け加えました。
ところが、これを押すと、"情報"の画面に飛んでしまいます。
また、根本的な勘違いやおかしなことをしているのではないかと思い
投稿させていただきました。
いつもながら恐縮ですが、
ご助言・ご助力を承れれば幸いに存じます。
よろしくお願い申し上げます。
Sub Sample1()
Application.OnKey "%{f}", "Sample2"
End Sub
Sub Sample2()
Dim buf As String, msg As String
Dim start As Integer
msg = "配列を入力してください。"
buf = InputBox(msg)
If buf = "" Then
Exit Sub
End If
start = 1
While InStr(start, ActiveCell, buf) >= 1
start = InStr(start, ActiveCell, buf)
ActiveCell.Characters(start, Len(buf)).Font.ColorIndex = 3
start = start + Len(buf)
Wend
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
