|
▼漂流民 さん:
おはようございます。
返事が、遅くなりましたが確認しました。
>もしされていなかったら、これを実行してみてください
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
> MsgBox "イベント発生OK"
>End Sub
>
>メッセージボックスが表示されたら私の予想はハズレなので振り出しです。
上記は正常に表示されました。
>表示されなかったら以下の方法で確認してください。
>VBAのテキストボックスを作ってコードを
>
>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
> MsgBox "キーボード" & KeyCode
>End Sub
>
>Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
> MsgBox "マウス" & Button
>End Sub
>
>としてそのテキストボックスを該当のパソコンで右クリックし、
>メッセージボックスの内容をご連絡ください。
上記も一応確認してみました。
左クリックの場合 マウス1
右クリックの場合 マウス2 でした。
よろしくお願いします。
|
|