Excel VBA質問箱 IV

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

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


37050 / 76732 ←次へ | 前へ→

【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

0 hits

【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 お礼

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