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

마우스 좌표를 반환 받기

조회 수 5913 추천 수 0 2009.05.07 13:18:27
[레벨:30]아별 *.107.204.56
출처 : 엑사모_팁

관련파일 : 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








이 게시물을...
profile
첨부
엮인글 :
http://abyul.com/zbxe/65191/f95/trackback
목록
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34363
25 엑셀 도구모음에 콤보박스로 매크로 실행하기.. +_+ [레벨:30]a☆ 2005-11-03 5513
24 [엑셀VBA 기본 규칙] 순환문.. [레벨:30]a☆ 2005-08-04 4235
23 특정영역에서 데이터베이스 끝까지, 수식 붙여넣기 또는 자동 채우기.. [레벨:30]a☆ 2005-07-29 6274
22 기타 VBE에서 휠마우스 사용가능하게 하기SpeedVB4 file [레벨:30]아별 2005-07-22 6860
21 엑셀에서 익스플로러 컨트롤하기.. [레벨:30]a☆ 2005-07-21 6259
20 엑셀의 내용을 복사해서 메모장을 띄우고 붙여넣기 [레벨:30]a☆ 2005-07-21 4842
19 하이퍼링크 일괄 제거하기 [레벨:30]a☆ 2005-07-21 5044
18 [엑셀VBA] 변수의 전달 [레벨:30]a☆ 2005-05-13 4679
17 [엑셀VBA] 메시지 박스 활용하기 [레벨:30]아별 2004-12-22 7163
16 엑셀VBA 텍스트 박스에서 여러줄 입력하기 [레벨:30]a☆ 2004-11-15 7514
15 엑셀에서 줄바꿈에 대해서.. 줄바꿈하기 제거하기 등등.. [레벨:30]a☆ 2004-11-15 10126
14 엑셀의 사용자 정의 날짜/시간 형식(Format 함수) [레벨:30]a☆ 2004-11-12 7236
13 엑셀에서 날짜 함수 컨트롤 하기 [레벨:30]a☆ 2004-10-29 6342
12 엑셀에서 매개변수의 전달과 외부함수 호출 [레벨:30]a☆ 2004-10-27 6533
11 엑셀에서 매크로 실행 동안 화면이 업데이트 되지 않게 하기.. [레벨:30]a☆ 2004-10-26 3954
10 엑셀.. 잡다구리.. 폼에서 홈페이지 링크 등.. [레벨:30]a☆ 2004-10-25 3431
9 엑셀 기본작업 매크로.. 선택/입력/복사 등 [레벨:30]a☆ 2004-10-25 3897
8 엑셀 실행시 자동으로 실행 // 종료시 자동으로 실행 [레벨:30]아별 2004-10-25 5119
7 엑셀에서 에러 처리 [1] [레벨:30]a☆ 2004-10-23 3778
6 엑셀에서 vba식으로 영역설정하기.. [2] [레벨:30]a☆ 2004-10-21 5948
목록
쓰기