マウスイベントが動かない
エクセルシートのダブルクリック イベントで
Call マウス左クリック
とします。
ret = SetCursorPos(929, 12) カーソル移動と
SendKeys " 12345"
は動くのですが
mouse_event 2, 0, 0, 0, 0 '左ダウン
mouse_event 4, 0, 0, 0, 0 '左アップ
この二つが 動いてくれません。
遅延させるタイマー入れたり、するのですが同じです。
MODULE の中に入れたり、シートの中に入れても 同じです。
どこが、問題なのでしょうか
よろしくどうぞ
Sub タイミング()
stime = gettickcount
Do While gettickcount - stime < 1000
DoEvents
Loop
Sub マウス左クリック()
ret = SetCursorPos(929, 12)
mouse_event 2, 0, 0, 0, 0 '左ダウン
mouse_event 4, 0, 0, 0, 0 '左アップ
ret = SetCursorPos(309, 282)
SendKeys " 12345"
ret = SetCursorPos(309, 320)
SendKeys " 12345"
SendKeys " {ENTER}"
SendKeys " %(RY)", True
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type ’位置取得
'------------------------------------------------------------------
Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As _
Long, ByValcButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
お礼
joyTokeyと検索してダウンロードしてみたらキャラクタが動きました！ありがとうございます