1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

마우스 좌표를 반환 받기

조회 수 5059 추천 수 0 2009.05.07 13:18:27
출처 : 엑사모_팁

관련파일 : VBA878_GetMousePosition.zip

듀얼 모니터 사용 시, 서브 모니터가 주 모니터의 좌측에 있을 경우 x값이 음수값으로 표시된다.

 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, _
            "MagicSheet & 엑사모"
   
End Sub








문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 30506
43 엑셀2007에서 셀의 색상을 RGB로 뽑아내기 file [레벨:30]아별 2009-10-06 9370
42 [VBA팁] 화일이 존재하는지 확인하기 [레벨:30]아별 2009-07-31 7322
41 엑셀에서 사용하는 언어 확인하기. file [1] [레벨:30]아별 2009-06-03 12440
40 메시지 박스 대용으로 Shape 사용하기 file [레벨:30]아별 2009-05-07 15403
39 유저폼 크기 조절 가능하게 만들기 file [레벨:30]아별 2009-05-07 4958
38 스스로 사라지는 메시지 박스 file [1] [레벨:30]아별 2009-05-07 4746
» 마우스 좌표를 반환 받기 file [레벨:30]아별 2009-05-07 5059
36 [펌] Excel Macro(VBA) 입문자를 위한 소개자료 image [레벨:30]아별 2008-12-19 6099
35 기타 [Excel VBA] 피벗테이블(PivotTable)을 VBA로 컨트롤해보자.. [레벨:30]아별 2008-12-19 9398
34 [펌] 엑셀로 최대 공약수 구하기 [2] [레벨:30]아별 2008-12-18 4771
33 바로 옆셀의 메모값 가져 오기 [1] [레벨:30]아별 2008-10-20 4713
32 [엑셀VBA] ERROR CODE file [레벨:30]아별 2008-08-28 6714
31 [엑셀VBA] 자동필터를 매크로로 구현하기 [레벨:30]아별 2008-08-28 10477
30 [VBA] 전역변수 설정하기. Public 문, Private 문 imagefile [레벨:30]아별 2008-07-01 13121
29 [엑셀VBA] 네이버 지식인 답변 _ 엑셀 쿼리를 이용해서 펀드 기준가 데이터를 읽어오기. file [레벨:30]아별 2008-04-30 7995
28 엑셀 추가 기능 만들기 [레벨:30]a☆ 2006-01-19 6637
27 메모 입력할때 사용자 이름 제거하고 입력하기.. [레벨:30]a☆ 2006-01-19 4654
26 시트에서 콤보박스 활용하기 file [레벨:30]a☆ 2005-11-12 15968
25 엑셀 도구모음에 콤보박스로 매크로 실행하기.. +_+ [레벨:30]a☆ 2005-11-03 4614