por exemplo: 2-3-4-5-6-7-8-9
Os números pares estao em vermelho. logo tenho 4 numeros em vermelho
Você pode escrever uma função que faz a soma por cor:
Usando a função:
=SumByColor(A1;B2:C15)
onde A1 é uma célula que tem a cor modelo
B2:C15 é o intervalo de células que serão somadas caso tenha a cor modelo
A função:
Function SumByColor(CellColor As Range, SumRange As Range)
Dim myCell As Range
Dim iCol As Integer
Dim myTotal
iCol = CellColor.Interior.ColorIndex ''obter cor de destino
For Each myCell In SumRange
If myCell.Interior.ColorIndex = iCol Then
myTotal = WorksheetFunction.Sum(myCell) + myTotal
End If
Next myCell
SumByColor = myTotal
End Function
-o=O=o-
Outro exemplo:
http://vbtuga.blogspot.com/2008/04/excel-contar-co...
Comments
Você pode escrever uma função que faz a soma por cor:
Usando a função:
=SumByColor(A1;B2:C15)
onde A1 é uma célula que tem a cor modelo
B2:C15 é o intervalo de células que serão somadas caso tenha a cor modelo
A função:
Function SumByColor(CellColor As Range, SumRange As Range)
Dim myCell As Range
Dim iCol As Integer
Dim myTotal
iCol = CellColor.Interior.ColorIndex ''obter cor de destino
For Each myCell In SumRange
If myCell.Interior.ColorIndex = iCol Then
myTotal = WorksheetFunction.Sum(myCell) + myTotal
End If
Next myCell
SumByColor = myTotal
End Function
-o=O=o-
Outro exemplo:
http://vbtuga.blogspot.com/2008/04/excel-contar-co...