Suppose you want to count the cells on the font color like below
Here is the code----
Function count_colored_font_values(x As Range, su As Range)
Dim Y As Range
Dim sm1 As Long
For Each Y In su
If Y.Font.Color = x.Font.Color Then
sm1 = sm1 + 1
count_colored_font_values = sm1
type like count_colored_font_values(f9,$A$2:$A$23)
"$A$2:$A$23" - is a range in which you have to count the cells .
"f9" - is a cell having font color
the function will return the count of cells in a range passed who are having font color same as of "f9"
Wednesday, February 23, 2011
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
Please make sure that you have the latest Version Tool Last Updated on 17 Feb, 2012 Version 1.6 English Version For Excel 2007 &...
Adding Marquee in Excel worksheet Step 1 Step 2 Example 1 Continuous scrolling Add below code module1 or any new module Sub r...