Toggle Text in a column to be visible or not visible

  • Thread starter Thread starter Dave Y
  • Start date Start date
D

Dave Y

I have a report in an Excel 2002 spreadsheet that is
presented quartely. There is a column that contains
comments that I need for my own use but when the report
is presented to the Board only the comment of "Special
Mention" needs to be shown. My question is; How can I
make the text in the column containing the comments that
I don't want visible to be not visible? (the only comment
showing would be "special mention") Also I need some way
to be able to toggle back and forth between making the
text visible and not visible. I was thinking of using two
buttons, each containing the code that would serve my
purpose, but I am unsure of how to do this. Any help with
a solution or pointing me in the proper direction will be
greatly appreciated. Thank you.
Dave
 
set the text's COLOR to the same as the cell's background
color. This will make the writing seem to disappear.

the following test should be stepped through using
shift+F8
The first test line will make the text vanish & th
esecong will make it appear. First select some cells with
text . try changing the cells color.

Sub test()

Reset Selection, False
Reset Selection, True

End Sub

Sub Reset(cell As Range, Optional bShow As Boolean = True)
Dim clr As Long
With cell

If bShow Then
.Font.ColorIndex = 0
Else
clr = .Interior.ColorIndex
If .Interior.ColorIndex < 0 Then
clr = 2
End If
.Font.ColorIndex = clr
End If
End With
End Sub


Patrick Molloy
Microsoft Excel MVP
 
Hey Patrick,

Thank you for your quick reply. I will be giving it a try
very soon. Thanks again.

Dave
 
another solution by change of format:
Sub Reset(cell As Range, Optional bShow As Boolean = True)
If bShow Then
cell.NumberFormat = "General"
Else
cell.NumberFormat = ";;;"
End If
End Sub

MP
 
Thank you Michel
-----Original Message-----
another solution by change of format:
Sub Reset(cell As Range, Optional bShow As Boolean = True)
If bShow Then
cell.NumberFormat = "General"
Else
cell.NumberFormat = ";;;"
End If
End Sub

MP

"Patrick Molloy" <[email protected]> a écrit dans le message de



.
Click to expand...
 
Back
Top