Loncat ke daftar isi utama

Bagaimana cara mengekstrak teks berdasarkan warna font dari sel di Excel?

Jika Anda memiliki daftar data dengan beberapa teks merah di setiap sel di Excel seperti yang ditunjukkan seperti gambar di bawah ini, dan apakah Anda tahu cara mengekstrak teks merah saja? Sekarang saya akan memperkenalkan cara cepat untuk memecahkan teka-teki yang mengekstrak teks berdasarkan warna font dari sel di Excel.

doc-ekstrak-teks-warna-1

Ekstrak teks berdasarkan warna font dari setiap sel

panah gelembung kanan biru Ekstrak teks berdasarkan warna font dari setiap sel

Di Excel, Anda hanya dapat menggunakan fungsi yang ditentukan untuk mengekstrak teks berdasarkan warna font.

1. tekan Alt + F11 bersama untuk membuka jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul dan salin kode VBA berikut ke jendela yang muncul.

VBA: Ekstrak teks berdasarkan warna font

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. Kemudian simpan dan tutup dialog, dan pilih sel kosong di sebelah daftar data, ketikkan rumus ini = GetColorText (A1) (A1 menunjukkan sel tempat Anda ingin mengekstrak teks), tekan Enter kunci untuk mendapatkan teks yang diperlukan, lalu seret gagang IsiOtomatis untuk mengisi rumus ke kisaran yang Anda inginkan.

Sekarang Anda dapat melihat semua teks merah diekstraksi.

doc-ekstrak-teks-warna-2

jenis: Dalam kode VBA di atas, Anda dapat mengubah warna rgb di skrip ini TextColor = RGB(255, 0, 0) menjadi yang lain untuk memenuhi kebutuhan Anda.

Artikel relatif:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk

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!
Comments (14)
No ratings yet. Be the first to rate!
jdhjjd
jdhjjd
This comment was minimized by the moderator on the site
I have a particular text in a cell seperated by Comma and Having colour for each text. While using Delimiter funtion,I am unable to retain the font colour of text .Appraciate your help!
Reply
0
0
Sunny
Sunny     jdhjjd
This comment was minimized by the moderator on the site
Hi, jdhjjd, I do not understand your question clearly. Do you want to extract the specific text from cells and keep its font color as below screenshot shown?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color.png
or split cells and keep each text font color?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color-2.png
Reply
Report
0
0
Robert E Perez
Robert E Perez
This comment was minimized by the moderator on the site
I was still unable to extract the blue text (#1166BB). Is there a way to use the Hex: #1166BB to get the color text I need?
Reply
0
0
Sunny
Sunny     Robert E Perez
This comment was minimized by the moderator on the site
Hi, Robert E Perez, I have updated the VBA code, now, it supports to get colored text by rgb code. You can try the code again.
Reply
Report
0
0
prudwi
prudwi
This comment was minimized by the moderator on the site
The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
Reply
0
0
Tim
Tim     prudwi
This comment was minimized by the moderator on the site
Try this, it should work
Function GetColorText(pRange As Range) As String
'Updatedtogetmultiple
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim wasRed As Boolean
xValue = pRange.Text

For i = 1 To VBA.Len(xValue)

If pRange.Characters(i, 1).Font.Color = vbRed Then
xOut = xOut & VBA.Mid(xValue, i, 1)
wasRed = True
ElseIf wasRed = True Then
wasRed = False
xOut = xOut & ";"
End If

Next

GetColorText = xOut
End Function

Reply
0
0
Prudwi
Prudwi     Tim
This comment was minimized by the moderator on the site
Thanks a ton it worked perfectly well. You are a savior Tim :-) 
Reply
0
0
Kazam Raza
Kazam Raza
This comment was minimized by the moderator on the site
thanks, very interesting code.
Reply
0
0
Bobbo69
Bobbo69
This comment was minimized by the moderator on the site
dimenticavo io ho Excel 2010
Reply
Report
0
0
Bobbo69
Bobbo69
This comment was minimized by the moderator on the site
Buonasera, grazie mille un'ottima funzione. Per貌 ho un problema, quando val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto per貌 come riavvio il file mi da errore #VALORE!, se poi clicco 2 volte sopra mi da il valore corretto e cos矛 via. che posso fare?
Reply
Report
0
0
JM
JM
This comment was minimized by the moderator on the site
Hey, Thanks for the Tip. Works great with Red and Black.
What if I want to parse "Purple"? changing it vbPurple does not work.
Thanks
Reply
0
0
Madhav
Madhav
This comment was minimized by the moderator on the site
The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
Reply
0
0
mj
mj
This comment was minimized by the moderator on the site
Hello, when i tried using vbBlue, it did not work. Help please? Thanks!
Reply
0
0
amit
amit     mj
This comment was minimized by the moderator on the site
Give the font color to the exct blue color.
Because there are many type of blue color "light blue, sky blue, dark blue"
vba match only exct color.??????
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations