Excel VBA質問箱 IV

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

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


45170 / 76732 ←次へ | 前へ→

【36565】Re:マクロが走らない
お礼  kao  - 06/4/3(月) 20:13 -

引用なし
パスワード
   ▼ichinose さん:
>まず、Application.Onkeyがどんなメソッドなのか
>Helpで確認された方がよいです。
>たぶん、勘違いされています。
>>    Application.OnKey "{ENTER}", "kizyutu" 'NumKeyのEnterで実行する
>というコードでEnterキーを察知し即kizyutuというプロシジャーを実行する
>わけではありませんよ!!これは、キーに関連付けを設定するコードです。

はい勘違いしてました。inoue さん,ichinose さんありがとうございます。投稿後に考えてみて,Target.RangeのチェンジでApplication.Onkeyが初めて有効になるので一度目はだめなはずだと気づきました。わたくしの仕様の場合Auto_Open()にDelKeyの方だけ入れて対処しようかと考えていました。

>
>それとApplication.Onkeyでは、Changeイベント内で完全にはキーを
>制御できないみたいですよ!!

そうなんですか。参考になります。それに下のは大変興味深いです。VBAをやっとかじれるぐらいになったところなのでC系のは新鮮です。ありがとうございます。

>
>
>新規ブックのThisworkbookのモジュールに
>'============================================================
>Private Declare Function GetAsyncKeyState Lib _
>    "User32.dll" (ByVal vKey As Long) As Long
>'==========================================================================
>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>  If Target.Column = 6 Then
>   Select Case key_code
>    Case 13
>     MsgBox ("kizyutusaimasu")
>    Case 46
>     MsgBox ("sakuzyosiimasu")
>    End Select
>   MsgBox "F列です"
>   End If
>End Sub
>'===========================================================
>Function key_code() As Long
>  Dim inkey As Long
>  key_code = 0
>  Do While key_code = 0
>   inkey = GetAsyncKeyState(13)
>   If inkey <> 0 Then
>    key_code = 13
>   Else
>    inkey = GetAsyncKeyState(46)
>    If inkey <> 0 Then
>      key_code = 46
>      End If
>    End If
>   Loop
>End Function
>
>として、F列に値を入力してEnterキーで確定したり、
>Delキーで削除したりしてみて下さい。
>この二つのキーに反応するはずです。
>
>簡単なテストではうまく作動していますが、
>私もシートチェンジイベントでキーの取得と言うことを
>初めて試してみたので完全に大丈夫かはわかりません。
>(私は、こういう大変な仕様には大概しません・・・)

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

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