Excel VBA質問箱 IV

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

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


45176 / 76732 ←次へ | 前へ→

【36558】Re:マクロが走らない
質問  kao  - 06/4/3(月) 13:54 -

引用なし
パスワード
   ▼inoue さん:
ありがとうございます。一度テストBookで下記のように記述してみました。

ThisWookBookに;
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.Column = 6 Then 'F列に記入するならば実行する

    Application.OnKey "{ENTER}", "kizyutu" 'NumKeyのEnterで実行する
    Application.OnKey "{DEL}", "sakuzyo"
  MsgBox ("Fれつです")
End If
End Sub

標準モジュールに;
Sub kizyutu()

MsgBox ("kizyutusaimasu")
End Sub

Sub sakuzyo()

MsgBox ("sakuzyosiimasu")
End Sub

そうしますと一度目はDelを押しますと”Fれつです”が出ます。それ以降は前の部分にある”sakuzyosimasu”が出るので一度目だけApplication.OnKeyは動いていないようです。さらにF列だけでなくどの列でEnterを押してもDelを押しても動きます。どうなっているのでしょうか。教えていただけるでしょうか。

9 hits

【36548】マクロが走らない kao 06/4/3(月) 10:58 質問
【36556】Re:マクロが走らない inoue 06/4/3(月) 12:33 発言
【36558】Re:マクロが走らない kao 06/4/3(月) 13:54 質問
【36563】Re:マクロが走らない ichinose 06/4/3(月) 20:00 発言
【36565】Re:マクロが走らない kao 06/4/3(月) 20:13 お礼

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