Excel'deki bir hücreden yazı tipi rengine göre metin nasıl çıkarılır?
Excel'deki her hücrede aşağıdaki ekran görüntüsünde gösterildiği gibi kırmızı metin içeren bir veri listeniz varsa ve yalnızca kırmızı metni nasıl çıkaracağınızı biliyor musunuz? Şimdi, Excel'deki bir hücreden yazı tipi rengine göre metin çıkaran bulmacayı çözmenin hızlı bir yolunu tanıtacağım.
- Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
- 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
- Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
- Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
- Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
- Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
- 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.
Excel'de, metni yazı tipi rengine göre çıkarmak için yalnızca tanımlanmış işlevi kullanabilirsiniz.
1. Basın Alt + F11 Microsoft Visual Basic for Applications penceresini açmak için anahtarları birlikte kullanın.
2. tık Ekle > modül ve aşağıdaki VBA kodunu açılan pencereye kopyalayın.
VBA: Yazı tipi rengine göre metni ayıklayın
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. Ardından iletişim kutusunu kaydedip kapatın ve veri listesinin yanındaki boş bir hücre seçin, bu formülü yazın = GetColorText (A1) (A1, içinden metin çıkarmak istediğiniz hücreyi gösterir), tuşuna basın Keşfet tuşuna basın, ardından formülü istediğiniz aralıkta 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, ihtiyacınızı karşılamak için bu komut dosyasındaki rgb rengini TextColor = RGB(255, 0, 0) olarak değiştirebilirsiniz.