0
Disfare
voti
Grazie in anticipo per qualsiasi aiuto su questo che puoi offrire.
Con l'aiuto di questo sito ho creato la seguente funzione;
Funzione ColorFunction(rColor As Range, rRange As Range, SUM opzionale come booleano)
Dim rCell come intervallo
Dim lCol Finché
Dim vResult
lCol = rColor.Interior.ColorIndex
Se SOMMA = Vero Allora
Per ogni rCell in rRange
Se rCell.Interior.ColorIndex = lCol Then
vRisultato = WorksheetFunction.SUM(rCell, vResult)
End If
Avanti rCell
Altro
Per ogni rCell in rRange
Se rCell.Interior.ColorIndex = lCol Then
vRisultato = 1 + vRisultato
End If
Avanti rCell
End If
FunzioneColore = vRisultato
End Function
In ogni cella di destinazione voglio una somma di tutte le celle in quella riga che contengono il colore della cella specificata;
=funzionecolore(AR4,H5:AP5,TRUE)
Come posso aggiornare la vendita target quando qualsiasi altra cella nella riga (H5: AP5) cambia colore?
Con l'aiuto di questo sito ho creato la seguente funzione;
Funzione ColorFunction(rColor As Range, rRange As Range, SUM opzionale come booleano)
Dim rCell come intervallo
Dim lCol Finché
Dim vResult
lCol = rColor.Interior.ColorIndex
Se SOMMA = Vero Allora
Per ogni rCell in rRange
Se rCell.Interior.ColorIndex = lCol Then
vRisultato = WorksheetFunction.SUM(rCell, vResult)
End If
Avanti rCell
Altro
Per ogni rCell in rRange
Se rCell.Interior.ColorIndex = lCol Then
vRisultato = 1 + vRisultato
End If
Avanti rCell
End If
FunzioneColore = vRisultato
End Function
In ogni cella di destinazione voglio una somma di tutte le celle in quella riga che contengono il colore della cella specificata;
=funzionecolore(AR4,H5:AP5,TRUE)
Come posso aggiornare la vendita target quando qualsiasi altra cella nella riga (H5: AP5) cambia colore?
0
Disfare
voti
Hi there,
Puoi aggiungere il codice: Applicazione.Calcolo = xlAutomatico alla tua funzione:
Per favore, provalo.
Amanda
Puoi aggiungere il codice: Applicazione.Calcolo = xlAutomatico alla tua funzione:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
Application.Calculation = xlAutomatic
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End FunctionPer favore, provalo.
Amanda
- Pagina :
- 1
Non ci sono ancora risposte per questo post.