Excel VBA質問箱 IV

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

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


6499 / 13644 ツリー ←次へ | 前へ→

【44856】F2キーの機能 けんけん 06/12/4(月) 10:28 質問[未読]
【44858】Re:F2キーの機能 Blue 06/12/4(月) 11:00 回答[未読]
【44859】Re:F2キーの機能 けんけん 06/12/4(月) 11:30 発言[未読]
【44865】Re:F2キーの機能 けんけん 06/12/4(月) 16:36 お礼[未読]

【44856】F2キーの機能
質問  けんけん  - 06/12/4(月) 10:28 -

引用なし
パスワード
   いつもお世話になっております。

いま、F2キーを押されて、1列目に入力があったらフォームを開き、
入力がなかったらF2のデフォルトの機能(セルを編集)を
させたいと思っています。

F2のデフォルトの機能を実行させる所でつまづいています。
どなたかご存知の方いらっしゃいましたら
ご教授願えませんでしょうか。


〜〜〜〜コード〜〜〜〜

Private Sub Worksheet_Activate()

  Call Application.OnKey("{F2}", "subAAA")
  
End Sub


Private Sub subAAA()

  If Sheet1.Cells(Selection.Row, 1).Value = "" Then
    Call Application.OnKey("{F2}")      ←ここの部分
    Call Application.SendKeys("{F2}")     ←ここの部分
    Call Application.OnKey("{F2}", "subAAA") ←ここの部分
    Exit Sub
  End If
  
  frmRecord.Show
  
End Sub

【44858】Re:F2キーの機能
回答  Blue  - 06/12/4(月) 11:00 -

引用なし
パスワード
   >Call Application.SendKeys("{F2}") 


Call CreateObject("WScript.Shell").SendKeys("{F2}")
DoEvents

にするとどうでしょうか?

【44859】Re:F2キーの機能
発言  けんけん  - 06/12/4(月) 11:30 -

引用なし
パスワード
   Blueさん

ご返信ありがとうございます!
教えて頂いた方法で実現できました!

でも、普通のSendkeysとWScript.ShellのSendkeysと、
どう違うのでしょうか?(ヘルプに載ってませんでした…)
もしご存知でしたら教えて下さい。


また、ファイルをコピーして実施してみたところ、
コピー元のモジュールを呼び出してしまう?ようで、
コピー元のファイルが開いてしまいました…。
この事象も併せてご存知でしたらご教授頂けたらと思います。

【44865】Re:F2キーの機能
お礼  けんけん  - 06/12/4(月) 16:36 -

引用なし
パスワード
   自己レスです。

>また、ファイルをコピーして実施してみたところ、
>コピー元のモジュールを呼び出してしまう?ようで、
>コピー元のファイルが開いてしまいました…。
>この事象も併せてご存知でしたらご教授頂けたらと思います。


何度かファイルを開いたり閉じたりしていたところ、
突然直りました。
原因は分かりませんでしたが、とりあえず事象は解決しました。

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