Excel VBA質問箱 IV

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

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


31523 / 76733 ←次へ | 前へ→

【50459】Re:SendKeysがうまく動作しない問題について
発言  Ned  - 07/7/26(木) 12:52 -

引用なし
パスワード
   ▼やまP さん:
こんにちは。横から失礼。
>エクセル上で式を持ったセルをコピーして他セルで、"Shift+Ctrl+J"としても何も起こりません。
ShiftキーとCtrlキーを押しながらSendKeysを実行している状態になってしまっているのでしょう。
ですので、マクロショートカットキーとSendKeysの組み合わせは厳しいのではないでしょうか。
Application.OnKeyでセットされるなら、ShiftやCtrlを使わなければ良いのではないですか?
Jakaさんご指摘の【38684】のように{F12}キーに登録とか。

または、
Sub AS_PasteValue()
  '値の貼り付けコマンドを実行
'  Application.SendKeys "%ev"
  On Error Resume Next
  CommandBars.FindControl(ID:=370).Execute
End Sub
これでできるかも。
できたとして、"Shift+Ctrl+J"を使いたい場合、Application.OnKeyよりも
[マクロ]-[オプション]でショートカットキーを設定した方が良いと思えます。

元々SendKeysを使おうと思われたのは[元に戻す]機能を残したかったからなのですよね?
そうでなければ
On Error Resume Next
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
とすれば良いかもしれませんね。

2 hits

【50454】SendKeysがうまく動作しない問題について やまP 07/7/26(木) 10:29 質問
【50456】Re:SendKeysがうまく動作しない問題について Jaka 07/7/26(木) 10:52 発言
【50465】Re:SendKeysがうまく動作しない問題について やまP 07/7/26(木) 15:26 お礼
【50459】Re:SendKeysがうまく動作しない問題について Ned 07/7/26(木) 12:52 発言
【50460】Re:SendKeysがうまく動作しない問題について Ned 07/7/26(木) 12:55 発言
【50466】Re:SendKeysがうまく動作しない問題について やまP 07/7/26(木) 15:33 お礼

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