Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

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 pada gambar di bawah ini, dan 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 masing-masing sel


panah biru kanan gelembung Ekstrak teks berdasarkan warna font dari masing-masing sel


Di Excel, Anda hanya bisa menggunakan fungsi yang didefinisikan untuk mengekstrak teks berdasarkan warna font.

1. tekan Alt + F11 kunci 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
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	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)
		End If

	Next

	GetColorText = xOut
End Function

3. Kemudian simpan dan tutup dialognya, dan pilih sel kosong di sebelah daftar data, ketik rumus ini = GetColorText (A1) (A1 menunjukkan sel yang ingin Anda ekstrak teksnya), tekan Memasukkan kunci untuk mendapatkan teks yang dibutuhkan, lalu seret pegangan otomatis untuk mengisi rumus ke kisaran yang Anda inginkan.

Sekarang Anda bisa melihat semua teks merah diekstrak.

doc-ekstrak-teks-warna-2

jenis: Dalam kode VBA di atas, jika Anda perlu mengekstrak teks hitam dari sel, Anda dapat mengubah nama warnanya Warna = vbRed untuk Warna = vbBlack.


Artikel relatif



Alat Produktifitas yang Direkomendasikan

Office Tab

Bintang emas1 Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools for Excel

Bintang emas1 Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!

Bintang emas1 300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:

  • Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
  • Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
  • Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
  • Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
  • Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...

Tembakan layar dari Kutools untuk Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 3 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 3 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    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?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    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