Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3428 / 76735

←次へ　｜　前へ→


	【78938】OnKeyでAltを含むKeyを割り当てたい

M.E - 17/3/11(土) 15:05 -


	引用なし

	パスワード

お世話になっております。
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

0 hits

▼

【78938】OnKeyでAltを含むKeyを割り当てたい M.E 17/3/11(土) 15:05