How to count the number of Excel cells with text formatted Italic

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a large spreadsheet in which I am trying to calculate the number cells
in each row with specific contents. Using the "COUNTIF()" function, I am able
to do almost all of what I want. However, I need to subtract out any cells
that have the contents formatted in Italic text. I cannot find any way to do
so. Any suggestions would be welcome.
 
The only way you can do this is by creating a UDF:
1) Alt+F11 to get to the VBA editor
2) Insert a module (right click on your sheet name and choose
<Insert><Module>)
3) Paste this code:

Function CountItalic(rng As Range)
Count = 0
For Each rng In rng
If rng.Font.Italic = True Then
Count = Count + 1
End If
Next
CountItalic = Count
End Function

Then you will be able to use the function CountItalic() in your worksheet.

Does that help?
 
phausman said:
I have a large spreadsheet in which I am trying to calculate the number cells
in each row with specific contents. Using the "COUNTIF()" function, I am able
to do almost all of what I want. However, I need to subtract out any cells
that have the contents formatted in Italic text. I cannot find any way to do
so. Any suggestions would be welcome.
Click to expand...

Hi phausman:

Further to David's submission, be aware that format changes do not
trigger sheet calculations, so you'll have to re-enter the formula
(just activate the formula's cell, click in the formula bar and press
enter) or enter a value in the range to be checked.

Regards

Steve
 
Got me exactly where I needed to be. Thanks.
To make sure I did not count blank italic-formatted cells, I did have to add
a nested if with the resultant formula:

Function CountItalic(rng As Range)
Count = 0
For Each rng In rng
If rng.Font.Italic = True Then
If rng.Value <> "" Then
Count = Count + 1
End If
End If
Next
CountItalic = Count
End Function
 
Back
Top