Membuat Jumlah dengan ColorFunction otomatis
By TuanRemodel pada hari Kamis, 05 Januari 2023
Posted in Excel
Balasan 1
"Like" 0
views 3.6K
Suara 0
Terima kasih sebelumnya atas bantuan apa pun yang dapat Anda tawarkan.

Dengan bantuan situs ini saya telah membuat fungsi berikut;

Fungsi ColorFunction(rWarna Sebagai Jangkauan, rRange Sebagai Jangkauan, SUM Opsional Sebagai Boolean)
Redupkan Sel Sebagai Rentang
Redupkan lCol Selamanya
Redupkan vHasil
lKol = rWarna.Interior.IndeksWarna
Jika JUMLAH = Benar Maka
Untuk Setiap rCell Dalam rRange
Jika rCell.Interior.ColorIndex = lCol Lalu
vHasil = Fungsi Lembar Kerja.SUM(rCell, vResult)
End If
Sel berikutnya
Lain
Untuk Setiap rCell Dalam rRange
Jika rCell.Interior.ColorIndex = lCol Lalu
vHasil = 1 + vHasil
End If
Sel berikutnya
End If
Fungsi Warna = vHasil
End Function


Di setiap sel target yang saya inginkan jumlah dari semua sel di baris itu yang berisi warna sel yang ditentukan;
=fungsi warna(AR4,H5:AP5,BENAR)

Bagaimana saya bisa memperbarui target jual ketika sel lain di baris (H5: AP5) berubah warna?
Halo,

Anda dapat menambahkan kode: Aplikasi.Perhitungan = xlOtomatis ke fungsi Anda:

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


Ayo cobalah.

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Lihat Posting Lengkap