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.
Excel / Office için Önerilen Verimlilik Araçları
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.
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ı
Kullanışlı sekmeleri Excel, diğer Office yazılımlarına da tıpkı Chrome, Firefox ve yeni Internet Explorer gibi getirin.
Ş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!
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ı ...
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
-
To post as a guest, your comment is unpublished.· 2 months agoThe 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.· 2 months agothanks, very interesting code.
-
To post as a guest, your comment is unpublished.· 3 months agodimenticavo io ho Excel 2010
-
To post as a guest, your comment is unpublished.· 3 months agoBuonasera, 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.· 1 years agoHey, Thanks for the Tip. Works great with Red and Black.
What if I want to parse "Purple"? changing it vbPurple does not work.
Thanks