Gwneud Swm gan ColorFunction yn awtomatig
By MrRemodel ar ddydd Iau, 05 Ionawr 2023
Postiwyd yn Excel
atebion 1
hoff bethau 0
barn 3.7K
Pleidleisiau 0
Diolch ymlaen llaw am unrhyw gymorth ar hyn y gallwch ei gynnig.

Gyda chymorth y wefan hon rwyf wedi creu'r swyddogaeth ganlynol;

Swyddogaeth Swyddogaeth Lliw (rLliw Fel Ystod, rYstod Fel Ystod, SUM Dewisol Fel Boole)
Dim rCell Fel Ystod
Dim lCol Cyhyd
Dim vCanlyniad
lCol = rColor.Interior.ColorIndex
Os SUM = Gwir Yna
Ar gyfer Pob rCell Mewn Amrediad
Os rCell.Interior.ColorIndex = lCol Yna
vResult = WorksheetFunction.SUM(rCell, vResult)
Gorffennwch Os
rCell nesaf
arall
Ar gyfer Pob rCell Mewn Amrediad
Os rCell.Interior.ColorIndex = lCol Yna
vResult = 1 + vCanlyniad
Gorffennwch Os
rCell nesaf
Gorffennwch Os
ColorFunction = vCanlyniad
Swyddogaeth End


Ym mhob cell darged rydw i eisiau swm o'r holl gelloedd yn y rhes honno sy'n cynnwys lliw y gell benodol;
= swyddogaeth lliw (AR4, H5: AP5, GWIR)

Sut alla i gael y targed gwerthu i ddiweddaru pan fydd unrhyw gell arall yn y rhes (H5: AP5) yn newid lliw?
Hi 'na,

Gallwch ychwanegu'r cod: Application.Calculation = xlAwtomatig i'ch swyddogaeth:

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


Rhowch gynnig arni.

Amanda
Amanda Lee
·
1 flwyddyn yn ôl
·
0 hoffi
·
0 Pleidlais
·
0 Sylwadau
·
Gweld y Post Llawn