A Sum by ColorFunction automatikussá tétele
By Mr Remodel 05. január 2023-án, csütörtökön
Csatlakozik a következő témákhoz: Excel
Válaszok 1
Kedvencek 0
Nézetek 3.7K
Szavazatok 0
Előre is köszönöm az ezzel kapcsolatos segítséget.

Az oldal segítségével a következő funkciót hoztam létre;

Funkció ColorFunction (rColor as Range, r Range as Range, opcionális SUM mint logikai érték)
Dim rCell As Range
Dim lCol As Long
Halvány vEredmény
lCol = rColor.Interior.ColorIndex
Ha SUM = igaz Akkor
Minden rCell In rRange esetén
Ha rCell.Interior.ColorIndex = lCol Akkor
vEredmény = WorksheetFunction.SUM(rCell, vResult)
Ha véget
Következő rCell
Más
Minden rCell In rRange esetén
Ha rCell.Interior.ColorIndex = lCol Akkor
vEredmény = 1 + vEredmény
Ha véget
Következő rCell
Ha véget
ColorFunction = vEredmény
end Function


Minden egyes célcellában a megadott cella színét tartalmazó sor összes cellájának összegét szeretném megadni;
=színfüggvény (AR4,H5:AP5,TRUE)

Hogyan érhetem el a célértékesítés frissítését, ha a sorban (H5:AP5) bármely más cella színe megváltozik?
Szia,

Hozzáadhatja a kódot: Alkalmazás.Számítás = xlAutomatikus az Ön funkciójához:

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 Function


Kérjük, próbálja ki.

Amanda
Amanda Lee
·
1 éve
·
0 szereti
·
0 szavazat
·
0 Comments
·
A teljes hozzászólás megtekintése