Excel VBA質問箱 IV

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

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


33 / 73340 ←次へ | 前へ→

【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

47 hits

【78938】OnKeyでAltを含むKeyを割り当てたい M.E 17/3/11(土) 15:05 質問[未読]
【78939】Re:OnKeyでAltを含むKeyを割り当てたい γ 17/3/11(土) 16:21 発言[未読]
【78940】Re:OnKeyでAltを含むKeyを割り当てたい M.E 17/3/11(土) 16:49 発言[未読]
【78941】Re:OnKeyでAltを含むKeyを割り当てたい γ 17/3/11(土) 17:31 発言[未読]
【78942】Re:OnKeyでAltを含むKeyを割り当てたい M.E 17/3/11(土) 17:48 お礼[未読]
【78943】Re:OnKeyでAltを含むKeyを割り当てたい γ 17/3/11(土) 18:01 発言[未読]
【78944】Re:OnKeyでAltを含むKeyを割り当てたい M.E 17/3/13(月) 23:05 お礼[未読]
【78945】Re:OnKeyでAltを含むKeyを割り当てたい γ 17/3/14(火) 4:16 回答[未読]
【78965】Re:OnKeyでAltを含むKeyを割り当てたい M.E 17/3/16(木) 0:39 お礼[未読]

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