Accesso Visual Basic Editor , fare clic sul pulsante "Strumenti" nella parte superiore dello schermo , la navigazione verso " . Visual Basic Editor " l'opzione "Macro" e poi cliccando su
2
Copia e incolla il seguente modulo di programmazione Visual Basic in Visual Basic Editor e quindi salvarlo :
ColorFunction funzione ( rColor come gamma , Rrange come gamma , SUM opzionale come booleano ) per
Dim rCell come gamma
Dim LCOL As Long Dim
vResult
LCOL = rColor.Interior.ColorIndex
SUM = True Then
Ogni rCell In Rrange
rCell.Interior.ColorIndex = LCOL Poi
vResult = WorksheetFunction.SUM ( rCell , vResult ) per
End If
Avanti rCell
Else
Ogni rCell In Rrange
Se rCell.Interior.ColorIndex = LCOL Poi
vResult = 1 + vResult
End If
Avanti rCell
End If
ColorFunction = vResult
End Function
3
Utilizzare la funzione creata dall'utente ColorFunction per calcolare il numero di celle colorate . La sintassi per questa funzione è la seguente :
ColorFunction ( $ A $ 1 , $ B $ 1: $ B $ 2, FALSE ) per
in cui $ A $ 1 rappresenta la cella che si desidera confrontare , $ B $ 1 e $ B $ 2 rappresentano un intervallo di celle lungo una singola colonna e true indica la funzione di contare .
Dato che hai una cella viola , B1 , e si vuole calcolare il numero di cellule viola tra le file C1 e C12 , si può usare la funzione come segue:
ColorFunction ( B1 , C1 : C12 , FALSE ) economici
software © www.354353.com