Null-Type command


Posted by Jason on January 18, 2002 11:38 AM

I am making a macro, that when used, strikes out the numbers in the cell. The numbers are part of a total, and when i put a strikeout thru them, i would like the number to be rendered moot. I stil want the number there, but i would like it to have no value, have a value of zero.this is it-
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub



Posted by Jerid on January 18, 2002 12:16 PM

You could change it into text by placing a ' in front of the number

Sub test()
Dim vTempHolder As Variant

With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

vTempHolder = ActiveCell.Value
ActiveCell.Value = "'" & vTempHolder

End Sub