[發問] vba可否使用座標使滑鼠按下左鍵或右鍵

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2016-2-12 11:42 | 只看該作者

回復 9# Min

感謝版主大大,好強的功能,好簡單的程式碼,實在太厲害了!!!
不過目前碰到一個問題
想詢問一下版主大大

因為不同螢幕的解析度不同,導致無法點擊到相同的位置
想詢問一下有解決方法嗎?

例如:如何取得螢幕的X,Y的最大值?
或是如何取得螢幕的比例之類的?

抱歉麻煩版主大大了!

PKKO

版主 Rank: 7 Rank: 7 Rank: 7

Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

9^#

發表於 2010-8-9 20:56 | 只看該作者

本帖最後由 Min 於 2010-8-9 21:01 編輯

呵呵呵~ 讓您"目煞煞"真不好意思!
能力不及其他前輩所以如有不妥之處也請您多多指教^^"

以下是API模擬滑鼠事件您試試看!

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

SetCursorPos 100, 50'指定滑鼠座標
mouse_event &H2 Or &H4, 0, 0, 0, 0 '左鍵點擊

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

帖子: 32
主題: 14
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-5-31
最後登錄: 2020-5-22

8^#

發表於 2010-8-9 09:07 | 只看該作者

回復幼稚園飛天豬

[/url]
EXCEL基本上討論的跟API有關的比較少有興趣去學學VB或C等較低階語言
Hsieh 發表於 2010-8-7 19:16

感謝Hsieh 大提供的資源，終於找到方向了，謝謝^^

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2010-8-7 19:16 | 只看該作者

回復 6# 幼稚園飛天豬

[url]http://chijanzen.net/wp/?p=51[/url]
EXCEL基本上討論的跟API有關的比較少有興趣去學學VB或C等較低階語言

學海無涯_不恥下問

帖子: 32
主題: 14
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-5-31
最後登錄: 2020-5-22

6^#

發表於 2010-8-7 15:16 | 只看該作者

好像沒人研究這塊@@

帖子: 32
主題: 14
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-5-31
最後登錄: 2020-5-22

5^#

發表於 2010-8-6 12:25 | 只看該作者

GBKEE 也是很利害的高手呢^^平常你回答問題都好快而且都很符合需求也讓我學了不少
雖然不常發文，但我從舊看到新的論譠，學到不少^^

或許這塊東西比較少人研究，大多的人都直接用vb6寫了
只是因為公司只能使用execl，所以只好用vba來寫執行目的了。

我有看過閔大有發過，只是他發的我看的是目煞煞@@

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-8-6 12:16 | 只看該作者

回復 3# 幼稚園飛天豬
看了你的說明是需高手來解答

帖子: 32
主題: 14
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-5-31
最後登錄: 2020-5-22

3^#

發表於 2010-8-6 12:06 | 只看該作者

本帖最後由幼稚園飛天豬於 2010-8-6 12:14 編輯

我用vba和我公司的系統結合(稱ti)
一種是：假設我是1024*768，那我希望在營目上的座標200*200的地方按下左鍵滑鼠，但是按的是ti上面的按鍵，我已做好指向ti執行鍵盤的動作了，但是無法執行指向ti執行滑鼠的動作。不一定要以ti為指向。或許在整個win上面，就是1024*768的解析內，去點我想要的座標按下滑鼠左鍵，但不是點在execl上面。是點到我要的座標上，但點的是別的東西或者別的執行程式

不知我這樣說是不是很抽象

補上圖片說明應該比較清楚，^^，圖為用小算盤為例, 裡面說明的就是想依座標去執行滑鼠左鍵或右鍵的動作，不論是以全營幕還是以程算的座標都ok

vbam.JPG (141.56 KB)