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...
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
Please make sure that you have the latest Version Tool Last Updated on 17 Feb, 2012 Version 1.6 English Version For Excel 2007 &...