สรุป
คุณสามารถโทรไปยัง Microsoft Windows Windows DLL (Dynamic-link Library) เพื่อเรียกใช้และตั้งค่าตําแหน่งเคอร์เซอร์ปัจจุบันได้ สามารถหาตําแหน่งปัจจุบันได้โดยใช้ฟังก์ชัน GetCursorPos USER32.DLL
ข้อมูลเพิ่มเติม
Microsoft Excelฟังก์ชันที่มีอยู่แล้วภายในเพื่อรับหรือตั้งค่าตําแหน่งเคอร์เซอร์ อย่างไรก็ตาม คุณสามารถใช้ประกาศในแมโคร Microsoft Excel Visual Basic for Applications เพื่อเรียกใช้ฟังก์ชัน Microsoft Windows เพื่อเข้าถึงตําแหน่งปัจจุบันได้ คุณยังสามารถใช้ฟังก์ชันอื่น SetCursorPos เพื่อตั้งค่าตําแหน่งเคอร์เซอร์ได้ ฟังก์ชัน SetCursorPos สามารถใช้ในโครงสร้างที่วนรอบเพื่อย้ายเคอร์เซอร์ไปบนหน้าจอ
Microsoft ให้ตัวอย่างของกระบวนการ Visual Basic for Applications ในภาพประกอบเท่านั้น โดยไม่รับประกันตามที่แสดงไว้หรือโดยนัย รวมถึงแต่ไม่จํากัดเพียงแค่การรับประกันโดยนัยเกี่ยวกับความสามารถทางการค้า และ/หรือความเหมาะสมของวัตถุประสงค์เฉพาะ ขั้นตอนVisual Basicเหล่านี้ในบทความนี้มีให้ใช้งานแบบ 'ตามที่เป็น' และ Microsoft ไม่รับประกันว่าสามารถใช้ในทุกสถานการณ์ได้ แม้ว่าผู้เชี่ยวชาญฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการการใช้งานของแมโครใดแมโครหนึ่งโดยเฉพาะ แต่จะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้มีฟังก์ชันการฟังก์ชันที่เพิ่มขึ้น และไม่สามารถช่วยคุณสร้างแมโครให้ตรงตามความต้องการเฉพาะของคุณได้ ถ้าคุณมีประสบการณ์การเขียนโปรแกรมที่จํากัด คุณอาจต้องการสอบถามผู้ให้บริการโซลูชันของ Microsoft ผู้ให้บริการโซลูชันมีบริการที่มีค่าธรรมเนียมมากมาย รวมถึงการสร้างแมโครแบบปรับแต่งเอง For more information about Microsoft Solution Providers, call Microsoft Customer Information Service at (800) 426-9400.
ตัวอย่าง
-
พิมพ์โค้ดต่อไปนี้ลงในมอดูลใหม่:
' Access the GetCursorPos function in user32.dll
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
' GetCursorPos requires a variable declared as a custom data type
' that will hold two integers, one for x value and one for y value
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type
' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
Sub Get_Cursor_Pos()
' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI
' Place the cursor positions in variable Hold
GetCursorPos Hold
' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub
' Routine to set cursor position
Sub Set_Cursor_Pos()
' Looping routine that positions the cursor
For x = 1 To 480 Step 20
SetCursorPos x, x
For y = 1 To 40000: Next
Next x
End Sub -
คลิกที่ใดก็ได้ภายในข้อความของGet_Cursor_Posกิจวัตร Get_Cursor_Posเรียกใช้แมโคร
คุณจะได้รับกล่องข้อความแสดงพิกัดของตําแหน่งปัจจุบันของตัวชี้เมาส์ -
คลิกที่ใดก็ได้ภายในข้อความของSet_Cursor_Posกิจวัตร Set_Cursor_Posกด F5 เพื่อเรียกใช้แมโคร
เคอร์เซอร์จะย้ายตามแนวทแยงมุมลงตามแนวทแยงมุมบนหน้าจอ