Կանխավ շնորհակալություն այս հարցում ցանկացած օգնության համար, որը կարող եք առաջարկել:
Այս կայքի օգնությամբ ես ստեղծել եմ հետևյալ գործառույթը.
Գործառույթ ColorFunction (rColor as Range, rRange as Range, Optional SUM as Boolean)
Dim rCell As Range
Dim lCol այնքան երկար
Dim vResult
lCol = rColor.Interior.ColorIndex
Եթե SUM = Ճշմարիտ Ապա
rRange-ի յուրաքանչյուր rCell-ի համար
Եթե rCell.Interior.ColorIndex = lCol Այնուհետեւ
vResult = WorksheetFunction.SUM(rCell, vResult)
Վերջ: Եթե
Հաջորդ rCell
Ուրիշ
rRange-ի յուրաքանչյուր rCell-ի համար
Եթե rCell.Interior.ColorIndex = lCol Այնուհետեւ
vResult = 1 + vResult
Վերջ: Եթե
Հաջորդ rCell
Վերջ: Եթե
ColorFunction = vResult
End գործառույթը
Յուրաքանչյուր թիրախային բջիջում ես ուզում եմ այդ շարքի բոլոր բջիջների գումարը, որոնք պարունակում են նշված բջիջի գույնը.
=գունավոր ֆունկցիա (AR4,H5:AP5,TRUE)
Ինչպե՞ս կարող եմ թարմացնել թիրախային վաճառքը, երբ տողում գտնվող որևէ այլ բջիջ (H5: AP5) փոխում է գույնը: