solved it:
I had to add a bit mask (i think thats what its called).
This returned true when I clicked on a cell:
If CBool(GetAsyncKeyState(1) & 128) Then
MsgBox ("left click trapped")
End If
(1) is the constant for left mouse click
On Feb 7, 11:28 am, rcamarda <robert.a.cama...@gmail.com> wrote:
> Hi,
> I am trying to trap a left mouse click. I found lots of uses of
> GetAsyncKeyState, however, even something simple is not working.
>
> Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey
> As Long) As Integer
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> If GetAsyncKeyState(VK_LBUTTON) Then
> MsgBox ("left click trapped")
> End If
>
> If GetAsyncKeyState(VK_BACK) Then
> MsgBox ("back space")
> End If
>
> If GetAsyncKeyState(VK_RETURN) Then
> MsgBox ("enter key")
> End If
>
> End Sub
>
> Should I use a different library when using x64 or Office 2010??
> TIA
> Rob
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
