Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Ozgrid, Experts in Microsoft Excel Spreadsheets

Count Or Sum Specified Number In a Single Cell

 

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help .

Lot's More: Excel VBA

Count or Sum Specified Number In Single Cell Housing Many Numbers

Function Count_Sum_NumbersInCell(rCell As Range, _

    sNumber As Single, strDelimeter, Optional bSum As Boolean) As Single

    Dim vArray

    Dim lLoop As Long

    Dim sResult As Single

       

    vArray = Split(rCell, strDelimeter)



    If bSum = False Then

        For lLoop = 0 To UBound(vArray)

                If vArray(lLoop) = _

                    sNumber Then sResult = sResult + 1

        Next lLoop

    Else

        With WorksheetFunction

            For lLoop = 0 To UBound(vArray)

                    If vArray(lLoop) = _

                        sNumber Then sResult = .Sum(sResult, vArray(lLoop))

            Next lLoop

        End With

    End If



    Count_Sum_NumbersInCell = sResult

End Function

If A1 housed 1 3 30 3 23 3

Used in any cell as;

=Count_Sum_NumbersInCell(A1,3," ")

To count the number of 3's in A1 where numbers are separated by a space. 30 and 23 are not counted

=Count_Sum_NumbersInCell(A1,3," ",TRUE)

To sum  the number 3's in A1 where numbers are separated by a space. 30 and 23 are not summed

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.



Instant Download and Money Back Guarantee on Most Software

Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft and Microsoft Excel are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates