|
참고로, 제가 하는건 아니고 지인이 하는 것인데 막혀서 여기에서 도움을 받아보고자 해서 저한테 부탁했습니다.
< 질문 >
엑셀 VBA 아래 소스코드로 마우스 클릭된 좌표를 반환받아, msgbox에 출력했습니다.
클릭할 때마다, 엑셀의 특정 셀에도 순차적으로 계속 좌표를 출력반환받고 싶은데, 어떻게 해야하는지요?
==========================================================================================
'--> 코드
Option Explicit
'마우스 좌표를 반환받기 위한 API함수 선언
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
' Type 문으로 사용자 정이 데이터 형식을 선언
Public Type POINTAPI
X As Long
Y As Long
End Type
Sub dhGetCurorPos()
Dim dhCursor As POINTAPI
'마우스의 절대좌표를 반환
GetCursorPos dhCursor
MsgBox "현재 마우스의 X 좌표는 " & dhCursor.X & vbCr _
& "현재 마우스의 Y 좌표는 " & dhCursor.Y & "입니다", vbInformation, _
"Point result"
End Sub
========================================================================================== | 
등록안내
등록안내