Excel'de bir hücrenin Yazı Tipi Rengine göre metin nasıl çıkarılır?
Excel'de, hücrelerin karışık metin renklerini içeren veri kümeleriyle zaman zaman karşılaşabilirsiniz; örneğin vurgu veya kategorilendirme amacıyla bazı karakterler veya kelimeler kırmızı renkle belirginleştirilmiş olabilir. Örneğin, önemli öğeleri işaretlemek için bir hücre normal ve kırmızı renkli metnin birleşimini gösterebilir. Belirli bir Yazı Tipi Rengi (örneğin kırmızı) olan metni çıkarmak, Veri Analizi, raporlama veya ileri işleme açısından son derece değerlidir—özellikle Yazı Tipi Rengi tarafından yapılan önemli vurguları veya açıklamaları ayıklamanız gerektiğinde.
Bu görev, standart formüllerin Yazı Tipi Rengi’ni algılayamaması veya buna göre işlem yapamaması nedeniyle Excel’in yerleşik işlevleriyle doğrudan gerçekleştirilemez. Dolayısıyla, aşağıdaki ekran görüntüsünde olduğu gibi bir veri listeniz varsa ve amacınız her bir hücredeki yalnızca kırmızı metni çıkarmaksa, bunu verimli şekilde gerçekleştirmenin hangi pratik yollarının bulunduğunu merak edebilirsiniz. Aşağıdaki çözüm, Excel’de Yazı Tipi Rengine göre Metin Çıkarma işleminin nasıl yapılacağını adım adım açıklar; böylece bu tür verileri ihtiyaç duyduğunuz şekilde kolayca yönetebilir, filtreleyebilir ve kullanabilirsiniz.
Her bir hücreden Yazı Tipi Rengi temel alınarak Metni Çıkart
Her bir hücreden Yazı Tipi Rengi temel alınarak Metni Çıkart
Varsayılan olarak Excel, bir hücredeki metni yazı tipi rengine göre çıkartmak için hazır bir işlev sunmaz. Bu nedenle söz konusu görevi yerine getirmek üzere özel bir VBA kodu (kullanıcı tanımlı işlev) kullanılması gerekir. Bu yaklaşım, VBA ile rahat çalışan ve çok sayıda ya da karmaşık hücrelerden renkli metni programlı olarak çıkarmak isteyen kullanıcılar için idealdir. Yöntemin en büyük avantajı, hedeflediğiniz herhangi bir rengi esnek şekilde belirleyebilmenizdir; en önemli dezavantajı ise renk biçimlendirmesi değiştiğinde, işlevin yeniden hesaplanmaması veya yeniden uygulanmaması durumunda dinamik olarak güncellenmemesidir.
Renkli metin çıkarma işlevi oluşturmak ve kullanmak için şu adımları izleyin:
1. Aynı anda Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications (VBA) penceresini açın. Henüz Geliştirici sekmesini etkinleştirmediyseniz, Şerit üzerindeki herhangi bir sekmeye sağ tıklayıp Şerit Özelleştir seçeneğini seçin ve ardından Geliştirici sekmesini ekleyerek gelecekteki erişimi kolaylaştırın.
2. VBA penceresinde Ekle > Modül seçeneğine tıklayın. Bu işlem, aşağıdaki VBA kodunu yapıştırabileceğiniz yeni bir modül oluşturur.
VBA: Yazı Tipi Rengi temel alınarak Metni Çıkart
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. Kodu yapıştırdıktan sonra değişikliklerinizi kaydedin ve VBA düzenleyicisini kapatın. Excel çalışma sayfanıza dönün, veri listenizin yanındaki boş bir hücreyi seçin ve aşağıdaki formülü girin:
=GetColorText(A1)
A1 yerine, metni çıkarmak istediğiniz hücre referansını yazın. İşlevi çalıştırmak ve seçilen hücreden belirtilen Yazı Tipi Rengi’ni (varsayılan olarak kırmızı) içeren metni kaldırmak için Enter tuşuna basın. Bu işlemi listenizdeki diğer hücrelere uygulamak için, seçili hücrenin sağ alt köşesindeki doldurma tutamacını aşağıya veya gerekli aralığa sürükleyin.
Artık her hücredeki tüm kırmızı metin örnekleri çıkarılacak ve ilgili formül hücresinde görüntülenecektir. Bu, renkli metni daha fazla analiz veya sunum amacıyla ayırmanızı verimli hale getirir.
İpucu: Sağlanan VBA kodundaki TextColor = RGB(255,0,0)satırı hedef rengi belirler (bu örnekte kırmızı). Metni farklı bir renkle çıkarmak istiyorsanız, RGB değerini istediğiniz yazı tipi rengine göre güncelleyin (örneğin mavi için)TextColor = RGB(0,0,255) kullanın).
Bu yöntemin yalnızca belirtilen Yazı Tipi Rengi ile **tam olarak eşleşen** metni hücreden çıkaracağını unutmamak önemlidir. Yazı tipi rengi yakın bir ton olsa bile RGB değerleri aynı değilse, metin tanınmayabilir. Çıkarma işlemi beklenen sonuçları vermiyorsa, çalışma sayfanızdaki Yazı Tipi Rengi kodlarını tekrar kontrol edin.
Formülünüzün hiçbir metin döndürmediği durumlarda Excel ortamınızda makroların etkin olduğundan ve Yazı Tipi Rengi'nin kodda ayarlanan RGB değerleriyle gerçekten eşleştiğinden emin olun. Unutmayın, bu tür kullanıcı tanımlı işlevler yalnızca kodu eklediğiniz çalışma kitabında kullanılabilir; eklenti olarak kaydetmediğiniz veya diğer çalışma kitaplarına yeniden eklemediğiniz sürece başka kitaplarda çalışmaz.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
İlgili makaleler:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar