Note: The other languages of the website are Google-translated. Back to English

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.

doc-özü-metin-rengi-1

Her hücreden yazı tipi rengine göre metni ayıklayın

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • 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.

ok mavi sağ balon Her hücreden yazı tipi rengine göre metni ayıklayın

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.

doc-özü-metin-rengi-2

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.


İlgili makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (14)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, vbBlue kullanmayı denediğimde işe yaramadı. Yardım lütfen? Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yazı tipi rengini hariç tutulan mavi renge verin.
Çünkü mavi rengin birçok çeşidi vardır "açık mavi, gök mavisi, lacivert"
vba sadece exct renkle eşleşir.??????
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kırmızı dizeler sürekliyse kod iyi çalışır. Kaynak hücrede ayrılmaları durumunda çıkış hücresinde birbirlerine yapıştırılırlar. Yani kırmızı metin dizileri birbirinden uzaktaysa çıktıda boşluk kalmaz. Lütfen bunun için bir çözüm sunabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
İpucu için teşekkürler. Kırmızı ve Siyah ile harika çalışır.
Ya "Mor"u ayrıştırmak istersem? onu değiştirmek vbPurple çalışmıyor.
Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Buonasera, grzie mille un'ottima funzione. Però ho un problema, quando val nel sis ed ekleri. = GetColorText (A1) için geçerli olan bir değer. che posso ücreti?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel 2010'a özel
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkürler, çok ilginç bir kod.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kırmızı dizeler sürekliyse kod iyi çalışır. Kaynak hücrede ayrılmaları durumunda çıkış hücresinde birbirlerine yapıştırılırlar. Yani kırmızı metin dizileri birbirinden uzaktaysa çıktıda boşluk kalmaz. Lütfen bunun için bir çözüm sunabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu dene, çalışması gerekir
İşlev GetColorText(pRange As Range) As String
'Çoklu olarak güncellendi
Dize Olarak xOut Dim
Dize Olarak xValue Dim
Dim i As Long
Dim, Boole Olarak Kırmızıydı
xValue = pAralığı.Metin

i = 1 için VBA.Len(xValue) için

pRange.Characters(i, 1).Font.Color = vbRed ise
xOut = xOut & VBA.Mid(xValue, i, 1)
wasRed = Doğru
ElseIf wasRed = True O zaman
wasRed = Yanlış
xOut = xOut & ";"
Eğer son

Sonraki

GetColorText = xOut
son İşlevi

Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir ton teşekkürler, mükemmel bir şekilde çalıştı. Sen bir kurtarıcısın Tim :-) 
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala mavi metni (#1166BB) çıkaramadım. İhtiyacım olan renkli metni elde etmek için Hex: #1166BB kullanmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Robert E Perez, VBA kodunu güncelledim, şimdi rgb kodu ile renkli metin almayı destekliyor. Kodu tekrar deneyebilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Virgülle ayrılmış ve her metin için rengi olan bir hücrede belirli bir metnim var. Sınırlayıcı işlevini kullanırken, metnin yazı tipi rengini koruyamıyorum. Yardımınız için teşekkür ederiz!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, jdhjjd, sorunuzu net olarak anlamadım. Belirli metni hücrelerden çıkarmak ve yazı tipi rengini aşağıda gösterilen ekran görüntüsü gibi tutmak istiyor musunuz?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color.png
veya hücreleri bölmek ve her metnin yazı tipi rengini korumak mı?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color-2.png
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır