0
Rückgängig machen
Bewertungen
Vielen Dank im Voraus für jede Hilfe, die Sie anbieten können.
Mit Hilfe dieser Seite habe ich die folgende Funktion erstellt;
Funktion ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
rCell als Bereich dimmen
Dim lCol So lange
vResult abdunkeln
lCol = rColor.Interior.ColorIndex
Wenn SUM = True Then
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Nächste rCell
sonst
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vErgebnis = 1 + vErgebnis
End If
Nächste rCell
End If
Farbfunktion = vErgebnis
End Function
In jeder Zielzelle möchte ich eine Summe aller Zellen in dieser Zeile, die die Farbe der angegebenen Zelle enthalten;
=Farbfunktion(AR4,H5:AP5,TRUE)
Wie kann ich den Zielverkauf aktualisieren, wenn eine andere Zelle in der Zeile (H5:AP5) die Farbe ändert?
Mit Hilfe dieser Seite habe ich die folgende Funktion erstellt;
Funktion ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
rCell als Bereich dimmen
Dim lCol So lange
vResult abdunkeln
lCol = rColor.Interior.ColorIndex
Wenn SUM = True Then
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Nächste rCell
sonst
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vErgebnis = 1 + vErgebnis
End If
Nächste rCell
End If
Farbfunktion = vErgebnis
End Function
In jeder Zielzelle möchte ich eine Summe aller Zellen in dieser Zeile, die die Farbe der angegebenen Zelle enthalten;
=Farbfunktion(AR4,H5:AP5,TRUE)
Wie kann ich den Zielverkauf aktualisieren, wenn eine andere Zelle in der Zeile (H5:AP5) die Farbe ändert?
0
Rückgängig machen
Bewertungen
Hallo,
Sie können den Code hinzufügen: Anwendung.Berechnung = xlAutomatic zu Ihrer Funktion:
Bitte probieren Sie es aus.
Amandas
Sie können den Code hinzufügen: Anwendung.Berechnung = xlAutomatic zu Ihrer Funktion:
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 FunctionBitte probieren Sie es aus.
Amandas
- Seite:
- 1
Es gibt keine Antworten für diesen Eintrag gemacht.