Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ
前回矢印キー入力を調べましたが、今回はマウスの左右クリックを調べます。 これも実行するのに、Windows APIのGetAsyncKeyStateを使用します。 GetAsyncKeyStateの構文や引数の解説は「キー入力を検出するVBA」を参照してください。 それでは作ってみます。 |
右クリックすると、変数lnumが-1され、A1に表示されます。
左クリックすると、変数lnumが+1され、A1に表示されます。
セルをクリックするとメニューが表示されるなどうまく動作できないので、シート名の余白部分などでテストしてください。
[実行画面]Windows APIのGetAsyncKeyStateを宣言します。
プライベート変数のlnumを宣言します。
MyMouseClickプロシージャ:引数はありません。
コマンドボタンクリックイベント
MyMouseClickプロシージャを呼び出します。
[VBE画面]実行コード
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します