|
Auto_Open()とSendKeysメソッドを用いて、
Shift+Ctrl+Jを「値を貼り付け」ショートカットにしようと思っております。
ですが、以下のコードを実装してもうまく動作しません。
どこかコード上でおかしいところがあれば教えて頂けますでしょうか?
また、コードが正しい場合、他にどのような原因があるのでしょうか。
よろしくお願いします。
【環境】
OS:Microsoft WindowsXP Professional Version2002 Service Pack2
VBA実装環境:Excel2002 SP3のVBE上にて
【準備】
エクセルの[ツール]>[ユーザー設定]>[コマンド]タブ>[編集]
によって、[編集(E)]>[値の貼り付け(V)]を作成。
("Alt+EV"で値のみ貼り付ける動作がうまく行くことは確認済み)
【コード】
Sub Auto_Open()
'Shift+Ctrl+Jで、値の貼り付け
Application.OnKey "+^j", "AS_PasteValue"
End Sub
Private Sub AS_PasteValue()
'値の貼り付けコマンドを実行
Application.SendKeys "%ev"
End Sub
【実行結果】
エクセル上で式を持ったセルをコピーして他セルで、"Shift+Ctrl+J"としても何も起こりません。
コードはどこかのWebにあったものを利用しています。
エラーなどは出ておりません。
原因が分からないので、よろしくお願いします。
|
|