Har du set hvor smart det kan være?

Word - Smart Office Skabelon system
Word - Søg og erstat i flere dokumenter
Excel - File Export
Excel - Data Management (Freeware)

SmartOffice - ColoredCellsSum

Denne brugerdefinerede funktion kan summere celler i et området, som har en specifik baggrundsfarve.

Eksempel 1

Public Function ColoredCellsSum( _
    ByRef rCountArea As Range, _
    ByRef rCountColor As Range) As Double
    'Flemming Vadet, September 2008, fv@smartoffice.dk
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range, iColor As Integer
    For Each rCell In rCountArea
        If rCell.Interior.ColorIndex = rCountColor.Interior.ColorIndex Then
            dRetVal = dRetVal + rCell.Value
        End If
    Next rCell
    ColoredCellsSum = dRetVal
End Function

I en celle skriver du nedenstående formel, hvor "F1:F20) er det område der skal undersøges og tælles for celler med samme baggrundsfarve som celle "B1" har.

Test 1

=ColoredCellsSum(F1:F20;B1)

Smart Data Management

Compare 2 Columns

Excel Super- Subscript

Teachers Excel Tools