Excel VBA質問箱 IV

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

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


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

31528 / 76733

←次へ　｜　前へ→


	【50454】SendKeysがうまく動作しない問題について

やまP

- 07/7/26(木) 10:29 -


	引用なし

	パスワード

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にあったものを利用しています。
エラーなどは出ておりません。

原因が分からないので、よろしくお願いします。

1 hits

▼

【50454】SendKeysがうまく動作しない問題について やまP 07/7/26(木) 10:29

≪