Bagaimana cara menghitung sel dengan teks tertentu dan mengisi / warna font di Excel?
Mungkin mudah bagi Anda untuk menghitung jumlah sel yang hanya berisi satu kondisi, seperti menghitung semua sel dengan teks atau warna font / isian tertentu. Namun, tahukah Anda cara menghitung sel dengan banyak kondisi? Misalnya, hitung jumlah sel yang berisi teks tertentu dan warna font / isian. Artikel ini akan menunjukkan solusinya.
Hitung sel dengan teks tertentu dan isi warna dengan kode VBA
Hitung sel dengan teks tertentu dan warna font dengan kode VBA
Hitung sel dengan teks tertentu dan isi warna dengan kode VBA
Misalkan Anda memiliki tabel seperti gambar di bawah ini, untuk menghitung sel di kolom B berdasarkan teks dan warna isian sel E2, harap terapkan kode VBA berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Hitung sel dengan teks tertentu dan isi warna
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End Sub
Note: Dalam kode, B2: B9 adalah rentang yang akan Anda hitung sel di dalamnya, E2 berisi teks dan warna isian yang akan Anda hitung berdasarkan sel. Anda dapat mengubahnya sesuai kebutuhan Anda.
3. tekan F5 kunci untuk menjalankan kode, lalu a Kutools untuk Excel kotak dialog muncul, pilih sel untuk menempatkan hasilnya dan kemudian klik OK tombol. Lihat tangkapan layar:
Kemudian hasil penghitungan segera ditampilkan di sel yang dipilih.
Hitung sel dengan teks tertentu dan warna font dengan kode VBA
Untuk menghitung sel dalam rentang B2: B9 berdasarkan teks dan warna font sel E2, lakukan hal berikut.
1. Buka Microsoft Visual Basic untuk Aplikasi jendela dengan menekan lain + F11 kunci.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Hitung sel dengan teks dan warna font tertentu
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End Sub
Note: Dalam kode, B2: B9 adalah kisaran yang akan Anda hitung sel di dalamnya, E2 adalah kriteria yang Anda akan menghitung sel berdasarkan. Anda dapat mengubahnya sesuai kebutuhan.
3. tekan F5 kunci untuk menjalankan kode, lalu a Kutools untuk Excel kotak dialog muncul, pilih sel untuk menempatkan hasilnya dan kemudian klik OK tombol. Lihat tangkapan layar:
Anda akan mendapatkan hasil seperti gambar di bawah ini:
Artikel terkait:
- Bagaimana menghitung jumlah sel antara dua nilai atau tanggal di Excel?
- Bagaimana cara menghitung sel dengan teks tertentu dalam seleksi di Excel?
- Bagaimana cara menghitung jika sel berisi teks atau bagian teks di Excel?
- Bagaimana cara menghitung jumlah kata tertentu / spesifik dalam sel atau rentang sel di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!