About Us

thanks William

"William Horton" wrote:

Use this code to put the answer in cell A11.

Sub CountCellsBoldFormatting()
Dim X As Integer
X = 0
For Each Cell In Range("A1:A10")
If Cell.Font.Bold = True Then
X = X + 1
End If
Next Cell
ActiveSheet.Range("A11").Value = X
End Sub

Perhaps you could adjust the code to get what you are after. Instead of
If Cell.Font.Bold = True Then use
If Cell.Value = " " Then

This way you are checking for the value that would make the text bold.
By the way if " " was in a cell you wouldn't be able to see the bold anyway.
Maybe I'm not understanding properly.

Hope this helps.

Thanks,
Bill Horton

"philip" wrote:

thanks

I have try your VBA code, but it only work on the nornal format cell in
bold, it does not work on conditional formatting satituation....

For my curiosity, in your VAB code, how to display the answer in another
cell..

thanks again

"William Horton" wrote:

I don't know if there is a formula / function that you can use for that. At
least I couldn't find one. However, you could use VBA code/macro to
accomplish this.

Try the below code.

Sub CountCellsBoldFormatting()
Dim X As Integer
X = 0
For Each Cell In Range("A1:A10")
If Cell.Font.Bold = True Then
X = X + 1
End If
Next Cell
MsgBox "There were " & X & " cells with bold formatting."
End Sub

Change the range to whatever your range is. You could also display the
answer in another cell rather than in a message box if you so choose.

Hope this helps.

Thanks,
Bill Horton

"philip" wrote:

thanks for your information.

However I already use up 3 CF criteria, the criteria I setup is

1- $A1=" " format text to bold
2- $A1=1 format text to color blue & italic
3-$A1="xx" format text to red & italic

what I need to count only the bolded text..

"Don Guillett" wrote:

You can use the same criteria as the conditional formatting criteria

--
Don Guillett
SalesAid Software

"philip" wrote in message
...
Is there any way to count the cell with bold text ( the bold text is
conditional formatted), I have been try to search the solution from the
internet with no luck...

Please help

many thanks

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problems with "Worksheet_Change"	konpego	Excel Discussion (Misc queries)	0	July 5th 05 06:29 AM
Problems with Excel 2003 after downloading Office SP1	Kristy	Excel Discussion (Misc queries)	0	February 22nd 05 06:13 PM
problems with Sharing excel files	mmayfield	Excel Discussion (Misc queries)	0	January 22nd 05 08:45 PM
I am having problems creating pivot table of data	wyman	Charts and Charting in Excel	1	January 12th 05 05:17 PM
Problems with Excel formulas when 2002 upgraded to XP	Kathi McGraw	Excel Worksheet Functions	0	November 16th 04 05:27 PM

Menu

About Us