Emily bertanya:
Bolehkah anda memberi tahu penyelesaian formular untuk menghitung jumlah sel yang mempunyai warna backgorund tertentu (iaitu sel-sel ini mengandungi beberapa data namun warnanya yang penting untuk menghitungnya).
Secara logiknya saya merasakan ia harus mengikuti formular standard iaitu
CountIF(A01:A55,"backgroundcolour=red")Saya percaya warna merah harus dikenali dengan nombor 3 (mengikut fail bantuan)
Saya perlu tahu bagaimana mengekodkan warna sel latar belakang iaitu colorfill ?, backgroundcolour ?, interior.color?… ???
Emily - kalau begitu semudah itu. Anda perlu mempunyai Fungsi Ditetapkan Pengguna dalam VBA. Berikut adalah kod untuk fungsi tersebut. Anda perlu memasukkan ini dalam modul kod baru dalam buku kerja.
Setelah memasukkan kod, anda boleh menggunakan formula ini:
=CountColor(A1:A99,D2)
Di mana D2 mempunyai format latar yang ingin anda hitung.
Inilah kodnya:
Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function
