Adding bold values
Posted by Robert on August 16, 2001 4:29 PM
I have a worksheet with bold numbers scattered throughout a column. Is it possible to add only the bold values...I guess visual basic would be involved?
Posted by Aladin Akyurek on August 16, 2001 4:40 PM
Just Curious: What is the condition for those numbers to be in bold?
Posted by Robert on August 16, 2001 4:44 PM
The numbers are column headings...divisional groups.
Posted by Aladin Akyurek on August 16, 2001 5:49 PM
I thought the bold numbers were in a column range, now it appears they are column headings (representing divisional groups), probably in a single row (row 1 perhaps)? Why you would want to total column headings escapes me.
Anyway here a UDF that can tell whether a cell value is bold.
Function ISBOLD(cell) As Boolean
' Returns TRUE if cell is bold
ISBOLD = cell.Range("A1").Font.Bold
Let assume that you have a series of numbers in A2:A10.
In B2 enter: =ISBOLD(A2)*A2 [ copy down this as far as needed ]
In B1 enter: =SUM(B2:B10)
If some VBA'er around this board can make this UDF return an array of boolean values, the following single formula would be possible:
Posted by Ivan F Moala on August 16, 2001 9:43 PM
Try this UDF
Function SumBold(SumRg As Range) As Double
Dim ocell As Range
Dim Tot As Double
For Each ocell In SumRg
If ocell.Font.Bold = True Then
Tot = Tot + ocell.Value
SumBold = Tot
Post if further help required
Ivan Returns TRUE if cell is bold Walkenbach
Posted by Aladin Akyurek on August 16, 2001 10:51 PM
Darn it, I get more and more dragged into the VBA thing! Try this UDF Function SumBold(SumRg As Range) As Double
Thanks, Ivan. Filed. : If some VBA'er around this board can make this UDF return an array of boolean values, the following single formula would be possible:
I didn't yet see (admit: didn't try hard enough) a good UDF example returning an array of (boolean) values. Can I get one?
Posted by Robert on August 17, 2001 11:07 AM
You guys are awesome...thanks!