Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17302 / 76732 ←次へ | 前へ→

【64886】Re:クリック座標の取得
回答  mura  - 10/3/24(水) 17:12 -

引用なし
パスワード
   ▼フタッチ さん:
>エクセルのシートの任意の座標をクリックしたところの
>座標を取得する方法はありませんでしょうか。
>エクセルのvbaで御願い致します。

以下は左クリックした座標(スクリーン座標、Pixcel単位)を取得するサンプルです。
'標準モジュール
Option Explicit
Type POINT
 x As Long
 y As Long
End Type
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINT) As Long

Public Sub sample1()
 Dim po As POINT
 Do
  If GetAsyncKeyState(vbKeyLButton) Then
   Debug.Print "LButton "; Timer
   GetCursorPos po
   Debug.Print "x="; po.x & " y=" & po.y
  End If
  DoEvents
 Loop Until GetAsyncKeyState(vbKeyEscape)
End Sub

で、何がしたいのでしょうか?
したいことを質問したほうが無駄なレスをせずに済む気がします。
0 hits

【64882】クリック座標の取得 フタッチ 10/3/24(水) 14:57 質問
【64884】Re:クリック座標の取得 Jaka 10/3/24(水) 16:17 発言
【64893】Re:クリック座標の取得 フタッチ 10/3/25(木) 14:10 お礼
【64886】Re:クリック座標の取得 mura 10/3/24(水) 17:12 回答
【64891】Re:クリック座標の取得 フタッチ 10/3/25(木) 12:43 お礼
【64910】Re:クリック座標の取得 mura 10/3/26(金) 13:02 回答

17302 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free