Suvestinė
Galite skambinti Windows API (taikomųjų programų programavimo sąsaja) į "Microsoft Windows DLL"(dinaminių saitų biblioteką), kad gautumėte ir nustatytų dabartinę žymiklio padėtį. Dabartinę padėtį galima gauti naudojant funkciją GetCursorPos USER32.DLL.
Daugiau informacijos
Microsoft Excel neturi įtaisytųjų funkcijų, kad būtų galima nustatyti žymiklio padėtį. Tačiau galite naudoti sakinį Deklaruoti makrokomandoje Microsoft Excel Visual Basic for Applications" norėdami skambinti "Microsoft Windows" funkcija, kad pasiekite dabartinę padėtį. Norėdami nustatyti žymiklio padėtį, taip pat galite naudoti kitą funkciją SetCursorPos. Funkciją SetCursorPos galima naudoti ciklo struktūroje, kad perkeltumėte žymiklį per ekraną.
"Microsoft" pateikia "Visual Basic for Applications" procedūrų pavyzdžius tik iliustracijoms, be išreikštų ar numanomų garantijų, įskaitant, bet neapsiribojant, numanomas garantijas dėl perkamumo ir (arba) tinkamumo konkrečiam tikslui. Šiame Visual Basic procedūros pateiktos "tokia, kaip yra", o "Microsoft" negarantuoja, kad jos gali būti naudojamos visose situacijose. Nors "Microsoft" palaikymo specialistai gali padėti paaiškinti konkrečios makrokomandos funkcijas, jie ne modifikuoja šių pavyzdžių, kad pateiktų papildomas funkcijas, taip pat nepadės kurti makrokomandų pagal konkrečius poreikius. Jei turite ribotą programavimo patirtį, galbūt norėsite pasikonsultuoti su vienu iš "Microsoft" sprendimų teikėjų. Sprendimų teikėjai siūlo daug mokamų paslaugų, įskaitant pasirinktinių makrokomandų sukūrimą. Jei reikia daugiau informacijos apie "Microsoft" sprendimų teikėjus, skambinkite "Microsoft" klientų informacijos tarnybai (800) 426-9400.
PAVYZDŽIAI
-
Įveskite šį kodą į naują modulį:
' 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 -
Spustelėkite bet kurioje "Get_Cursor_Pos" teksto vietoje ir paspauskite klavišą F5, kad paleistumėte Get_Cursor_Pos makrokomandą.
Gausite pranešimo lauką su dabartinės pelės žymiklio padėties koordinatėmis. -
Spustelėkite bet kurioje "Set_Cursor_Pos" teksto vietoje ir paspauskite klavišą F5, kad paleistumėte Set_Cursor_Pos makrokomandą.
Žymiklis bus pereis įstrižai žemyn per ekraną.