COUNT italics

[Sigh]

Is it possible to COUNT based on the font style of a cell? I want to count the number of cells in italics if possible.

 

[Tim_Excel_]

Sure. You can determine whether a certain cell has a specific style with

If Range("A1").Font.Italic = True Then

You can use this in a loop that goes through your whole range.

For each cl in Range("A1:D1")
    If cl.Font.Italic = True Then
         i =i+1
    End If
Next cl

Then you could display the counted cells in variable i when the loop is finished

MsgBox "The number of Italic style cells in the range is " & i

 

[Sigh]

Hi, thanks for your response. When I run this I get 'invalid outside procedure', I must be doing something wrong...

 

[Phuoc]

Try:

Public Function Count_Italic(Rng As Range) As Long
Dim Cel As Range
Application.Volatile
For Each Cel In Rng
    If Cel.Font.Italic = True Then
         Count_Italic = Count_Italic + 1
    End If
Next Cel
End Function

 

[Sigh]

Thanks Phuoc but I get 'Expected End Sub' error. Also where in the code to I type the range? Sorry for the basic question.

 

[Tim_Excel_]

You must be unfamiliar with VBA. Please look up some literature and familiarise yourself with basic VBA

A sub must always start with Sub NAME ()
and end with End Sub

 

[Sigh]

You're right, I am unfamiliar with VBA, trouble is I need a quick solution, I will take a tutorial when I'm less busy.

 

[Tim_Excel_]

Simply conjoin the last two of my scripts into a single sub.
Other than that, Phuoc's function works the same and can be used as a formula in your worksheet.