Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Formula to count klik from a mouse
Is there a formula or funktion, who kan count mouseklik in a cell
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Formula to count klik from a mouse
Not a single mouse click, but you could count a double click or rightclick.
If you want to try, rightclick on the worksheet tab that should have this behavior. Select view code and paste this into the code window: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub Cancel = True 'stop editing in cell If IsNumeric(Target.Value) Then Target.Value = Target.Value + 1 End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub Cancel = True 'stop pop up from showing If IsNumeric(Target.Value) Then Target.Value = Target.Value - 1 End If End Sub I used any cell in Column A. You can change that in both spots if you want. Doublclicking will add 1. Rightclicking will subtract 1. smay wrote: Is there a formula or funktion, who kan count mouseklik in a cell -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Formula to count klik from a mouse
I like this. It is really smart! I can use it too.
-- Allllen "Dave Peterson" wrote: Not a single mouse click, but you could count a double click or rightclick. If you want to try, rightclick on the worksheet tab that should have this behavior. Select view code and paste this into the code window: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub Cancel = True 'stop editing in cell If IsNumeric(Target.Value) Then Target.Value = Target.Value + 1 End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub Cancel = True 'stop pop up from showing If IsNumeric(Target.Value) Then Target.Value = Target.Value - 1 End If End Sub I used any cell in Column A. You can change that in both spots if you want. Doublclicking will add 1. Rightclicking will subtract 1. smay wrote: Is there a formula or funktion, who kan count mouseklik in a cell -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using the $ in a count formula | Excel Discussion (Misc queries) | |||
Creating a Count formula | Excel Worksheet Functions | |||
Formula Problem - interrupted by #VALUE! in other cells!? | Excel Worksheet Functions | |||
More Help Needed with Count formula | Excel Worksheet Functions | |||
Count numbers formed from another formula | Excel Discussion (Misc queries) |