Comments on: Double Click to Exclude Numbers

By: david

david — Fri, 14 Dec 2007 11:38:00 +0000

hi,

i have a spreadsheet that extracts a trial balance from my data sheet and adds all the like expenses together to give me a total using sumif function.

what i would like to do is doubleclick on a Trial Balance expense and get a list of same items on a seperate sheet like say if i doubleclick on PURCHASES it would give me a list of all the items entered i.e list all the purchases for the year.

IS THERE A VBA FUNCTION OR MACRO THAT I CAN BUILD.

MANY THANKS

By: sam

sam — Tue, 21 Aug 2007 08:26:00 +0000

If there was as formula I would store it as a comment and the convert the cell contents to a value.
If the user clicked again the Contents of the comment viz the formula would come back in to the cell.

If the cell has no comment the Target.comment.Text would return "Nothing" and hence would not effect the contents...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.HasFormula Then
Target.AddComment (Target.Formula)
End If

If Application.WorksheetFunction.Count(Target) = 0 Then
Selection.Value = Selection.Value * 1
Target.Value = Target.Comment.Text
Target.Comment.Delete
Selection.Font.Strikethrough = False
Else
Selection.Value = "'" & Selection.Value
Selection.Font.Strikethrough = True
End If
End Sub

By: mathsmagician

mathsmagician — Mon, 20 Aug 2007 17:30:00 +0000

1500.000 0.000 400 0 1900 3.2900 3.18 6042.00

800.000 0.000 0 -300 500 0.9100 0.93 465.00

1000.000 0.000 700 0 1700 1.5000 1.55 2635.00

1560.000 0.000 640 0 2200 1.1200 1.18 2596.00

0.000 0.000 800 0 800 3.1900 3.40 2720.00

Hello Dick

It is me again with some trivial problem for you but a frustration for me.

What is wrong with the above thery are suppose to be numbers but they are not and I cannot convert them?

Regards

By: Jon Peltier

Jon Peltier — Sun, 19 Aug 2007 23:25:00 +0000

I’ve done this with checkboxes, too. If the value is False, you can adjust the format in the cell so it’s obvious the value is excluded, via strikethrough, font color, or other conditional format. It’s much easier, and does not rely upon VBA and worksheet events.

By: fzz

fzz — Sun, 19 Aug 2007 22:54:00 +0000

I've also done this sort of thing before. I use a shadow range like Dermot and a BeforeDoubleClick event handler. My shadow range is unprotected, but it contains 0s or 1s and is hidden. The event handler checks whether the double click occurred in a cell in the same row as the range of selectable values, and if so it toggles the state of the corresponding cell in the shadow range. It uses conditional formatting in the original range based on the state of the corresponding cell in the shadow range. Summary statistics become conditional. In my experience, it's easier and safer to change a few summary formulas than cell contents for many individual values.

An non-VBA alternative involves putting a Forms checkbox to the left of each cell in the range of selectable values, then set each checkbox's LinkedCell to the corresponding cell in the shadow range. Conditional formatting then becomes optional since the checkbox would provide a visual indication of which values would be included or not, and the summary formulas would still be conditional. A bit more work to set up, but much of it could be automated with macros in a different workbook, so not distributed with the report workbook.

By: Tushar Mehta

Tushar Mehta — Sat, 18 Aug 2007 19:49:00 +0000

Interesting implementation, Dick. I would have taken a different approach since I am always leery about trying to change a cell. In this case the first twist you ran into was a formula. But, what if that was an array formula? Or, worse, an array formula that spanned multiple cells?

An alternative that might be worth considering is to use a named formula that includes/excludes cells as required. You can still use the Strikethrough to visually show cells excluded from the calculation but other than that make no changes to the cell.

The code below goes into the workbook code module. Also required are the functions from Two new range functions: Union and Subtract It's tested with array formulas, regular formulas, and constants.

Option Explicit

Function getName(WS As Worksheet, whatName As String) As Name
On Error Resume Next
Set getName = WS.Names(whatName)
On Error GoTo 0
If getName Is Nothing Then
Static OneTimeWarning As Boolean
If Not OneTimeWarning Then
MsgBox "Capability requires use of the named range InclCells"
OneTimeWarning = True
End If
End If
End Function
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim aCell As Range
For Each aCell In Target
If aCell.Style = "DoubleClickTrap" Then
Dim WS As Worksheet, aName As Name
Set WS = Sh
Set aName = getName(WS, "InclCells")
If Not aName Is Nothing Then
If aCell.Font.Strikethrough Then
aName.RefersTo = _
"=" & Union(WS.Range(aName.RefersTo), aCell).Address
Else
aName.RefersTo = _
"=" & Subtract(WS.Range(aName.RefersTo), aCell).Address
End If
aCell.Font.Strikethrough = Not aCell.Font.Strikethrough
End If
Cancel = True
End If
Next aCell
End Sub

By: dermot

dermot — Fri, 17 Aug 2007 23:43:00 +0000

This is a good example of where I would try to avoid using VBA, because this code makes it hard for someone else to see what's going on (remembering that most people don't know any VBA at all).

You can do it easily enough without VBA by setting up a second "shadow" table identical to the first, which has formulae which simply equal the values in the first table. The user deletes the unwanted cells in the shadow table, and the original table has conditional formatting which strikes through entries which don't match the values in the shadow table. The AVERAGE & STDDEV calculations are based on the values in the shadow table. A text box explains what is happening. The original table is protected, the shadow table is not.

By: Olivier

Olivier — Fri, 17 Aug 2007 19:19:00 +0000

I'd like to work on it a bit, can you please send me your code so that I don't start from scratch
thanks Olivier

By: Ken Wilson

Ken Wilson — Fri, 17 Aug 2007 18:55:00 +0000

it should be noted that if you change the value of a cell that is toggled-off (strikethrough is active), attempting to double click the cell again to toggle will cause an "Invalid procedure call or argument" error message. Also - at the end of the code, you should include "Cancel = True" to cancel the double click action after the code has executed. Lastly - consider enclosing this code in an if statement along the lines of

If .Value "" Then

so that the custom action on double click will only execute if a cell already contains a value (double clicking blank cells will not execute the code)

Ken

By: Mike Alexander

Mike Alexander — Fri, 17 Aug 2007 18:01:00 +0000

Shoot, I didn't read carfully enough. I guess did do the same thing here.
Duh.