Re: change value with single click, increasing by 1 every time?

Giganews Newsgroups
Subject: Re: change value with single click, increasing by 1 every time?
Posted by:  Ardus Petus (ardus.pet…@laposte.net)
Date: Wed, 3 May 2006

With double-click, use following sub in Worksheet's code:

'----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
    If Target.Address = "$A$1" Then
        Target.Value = Target.Value + 1
        Cancel = True
    End If
End Sub
'-----

HTH
--
AP

"jkbrown" <jkbro…@discussions.microsoft.com> a écrit dans le message de
news: 09F00600-2F3A-435D-9908-DE6DC8C91F…@microsoft.com...
> Is it possible to have a cell setup to increase the value of the cell by 1
> everytime it is clicked? Thanks.

Replies

None

In response to

change value with single click, increasing by 1 every time? posted by jkbrown on Wed, 3 May 2006