Çerezler bize hizmetleri sunmak yardımcı olur. Hizmetlerimizi kullanarak, çerez kullanmamızı kabul etmiş olursunuz.
İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Excel'de bir hücreden yazı tipi rengine dayalı metin ayıklamak nasıl?

Excel'deki her bir hücrede ekran görüntüsünün altında gösterildiği gibi kırmızı metin içeren bir veri listeniz varsa ve yalnızca kırmızı metnin nasıl çıkarılacağını biliyor musunuz? Şimdi, Excel'deki bir hücreden yazı tipi rengine dayalı metin ayıklayan bulmacayı çözmenin hızlı bir yolunu sunacağım.

doc-özü-metin-renk-1

Her hücreden yazı tipi rengine dayalı metin ayıklayın


arrow mavi sağ balon Her hücreden yazı tipi rengine dayalı metin ayıklayın


Excel'de, yalnızca yazı tipi rengine dayalı metin ayıklamak için tanımlanan işlevi kullanabilirsiniz.

1. Basın Alt + F11 Microsoft Visual Basic for Applications penceresini açmak için birlikte tuşlar.

2. tık Ekle > modül ve VBA kodunu açılan pencereye kopyalayın.

VBA: Metin yazı tipi rengine göre ayıklayın

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. Ardından kaydedin ve iletişim kutusunu kapatın ve veri listesinin yanında boş bir hücre seçin, bu formülü yazın = GetColorText (A1) (A1, metin ayıklamak istediğiniz hücreyi gösterir), tuşuna basın girmek tuşuna basarak gerekli metni elde edin, ardından formülü istediğiniz aralığa kadar doldurmak için otomatik doldurma tutamacını sürükleyin.

Artık tüm kırmızı metinlerin çıkarıldığını görebilirsiniz.

doc-özü-metin-renk-2

Bahşiş: Yukarıdaki VBA kodunda, hücrelerden siyah metin çıkarmanız gerekiyorsa, renk adını değiştirebilirsiniz Renk = vbRed için Renk = vbBlack.


Göreli makaleler:



Önerilen Üretkenlik Araçları

Office Tab

altın yıldız1 Kullanışlı sekmeleri Excel, diğer Office yazılımlarına da tıpkı Chrome, Firefox ve yeni Internet Explorer gibi getirin.

Kutools for Excel

altın yıldız1 Şaşırtıcı! 5 dakika içinde üretkenliğinizi artırın. Herhangi bir özelliğe ihtiyacınız yoktur, her gün iki saat tasarruf edin!

altın yıldız1 300 Excel için Yeni Özellikler, Excel'i Çok Kolay ve Güçlü Yapın:

  • Hücre / Satırları / Sütunları Veri Kaybetmeden Birleştirin.
  • Birden Çok Levha ve Çalışma Kitabını Birleştirin ve Konsolide edin.
  • Aralıkları Karşılaştırma, Birden Fazla Aralık Kopyalama, Metni Tarihe Dönüştürme, Birim ve Para Birimi Dönüştürme.
  • Renklere Göre Sayma, Sayfalık Toplamlar, Gelişmiş Sıralama ve Süper Filtre,
  • Daha Seç / Ekle / Sil / Metin / Biçim / Bağlantı / Açıklama / Çalışma Kitabı / Çalışma Sayfası Araçları ...

Kutools for Excel'in ekran görüntüsü

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 · 2 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 · 2 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 3 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