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

Excel'deki hücrelerdeki belirli bir kelimeyi nasıl renklendirebilir veya vurgulayabilirim?

Bir hücre birden çok kelime içeriyorsa, yalnızca bu hücrede belirli bir kelimeyi nasıl vurgulayabilirsiniz? Ve bu belirli kelimeyi birden çok hücrede vurgulamaya ne dersiniz? Bu makale, bunu başarmak için bir yöntem sağlayacaktır.

VBA kodu ile tek bir hücrede / çoklu hücrelerde belirli bir kelimeyi renklendirin


VBA kodu ile tek bir hücrede / çoklu hücrelerde belirli bir kelimeyi renklendirin

Aşağıdaki VBA kodu, bir seçimdeki belirli kelimeyi vurgulamanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. İçerisindeki belirli kelimeyi vurgulamak istediğiniz hücreleri içeren aralığı seçin. Ardından Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Açılışta Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'deki hücrelerdeki belirli kelimeyi renklendirin

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ve içinde Kutools for Excel iletişim kutusu, lütfen hücrelerde vurgulayacağınız belirli kelimeyi girin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, aşağıda gösterilen ekran görüntüsü gibi, belirttiğiniz tüm kelimelerin seçilen hücrelerde kırmızı renkte olduğunu hemen görebilirsiniz.


İlgili yazılar:


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 (23)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Son adımda atıfta bulunulan "Kutools for Excel iletişim kutusunun" nasıl açılacağını açıklamıyorsunuz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili Justin,
Bunun için üzgünüm. VBA kodunu Kod penceresine yapıştırdıktan sonra, kodu çalıştırmak için lütfen F5 tuşuna basın, ardından "Kutools for Excel" iletişim kutusu açılacaktır. Teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sekmeleri düzenlerken kodun kelimeleri otomatik olarak vurgulamasını sağlamanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Üzgünüm bu konuda yardımcı olamam. Yorumun için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
TEŞEKKÜRLER, TEŞEKKÜRLER, TEŞEKKÜRLER
Bu yorum sitedeki moderatör tarafından en aza indirildi
Quisisera, farklı zaman dilimlerinde farklı zaman dilimlerinde, hacer gibi mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eso es lo que estoy tratando de hacer tamiben (Ben de bunu yapmaya çalışıyorum)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aramanın/vurgulamanın büyük/küçük harfe duyarlı olmamasını tercih etmeniz durumunda, 'xArr = Split(xCell.Value, xHStr)' satırını 'xArr = Split(LCase(xCell.Value), LCase(xHStr))' olarak değiştirin. Ayrıca, F5'e basmanın komut dosyasını çalıştırmadığını not ettim (ancak bunun yerine başka bir kalıcı pencere veriyor). Excel seçeneklerini (Şeridi Özelleştir) kullanarak Geliştirici sekmesini etkinleştirerek ve ardından Makrolar'ı tıklatarak eriştim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler... Bu çok yardımcı oldu! Makroyu, kısmi sözcükler yerine yalnızca tam sözcükleri vurgulayacak şekilde ayarlamanın bir yolu var mı? Örneğin, "tasarım" kelimesini vurgulamaya çalışıyorum ama "belirlemek" kelimesindeki "tasarım"ı öne çıkarıyor. Kelimenin tamamı değilse, o kelimeyi atlamasını istiyorum. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bonjour
En son olası "elma" comme mot recherché ?
sağol
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba PAUC,
Aşağıdaki kod size bir iyilik yapabilir. Lütfen bir deneyin.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
iyi

Coloreaza cuvantul doar daca e la giriş. Aceeasi'de Daca e la mijloc casuta de excel sau la sfarsit nu-l coloreaza.
Cod pentru al colora'da putea schimba olarak ce anume, casuta excel'de bağımsız olarak mı?

Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Andrea,
Sözcüğü yalnızca seçili hücrelerin başındaysa vurgulamak istiyorsanız. Aşağıdaki VBA kodu size bir iyilik yapabilir. Lütfen bir deneyin.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
a me servirebbe evidenziare tutti i numeri (ondalık hesaplamalar) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. aggiungere olmayan singolarmente ogni dato senza aggiungerli tutti manualmente başına parasal ücret gelir mi?

Grazie Mille
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ciao,
Numaralarınız bir aralıktaki farklı hücrelerde mi bulunuyor? Öyleyse, bu sayıları vurgulamak için iki koşullu biçimlendirme kuralı (-10 ile 0 arasında, 0 ile 10 arasında) oluşturabilirsiniz. Değilse, verilerinizin ekran görüntüsünü yükleyebilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok güzel, teşekkürler! Mac'te nasıl çalıştırılacağını bilen var mı merak ediyorum? Çok teşekkürler
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
komut dosyası aşağıdakileri yapmak için nasıl değiştirilebilir?

yazı tipini 1 boyut büyütün ve
betiğin bir çalıştırılmasıyla birden fazla kelimeyi vurgula?

Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba t.taln,

Yazı boyutunu 1 artırmak ve aynı anda birden fazla kelimeyi vurgulamak istiyorsanız, lütfen " satırından sonra aşağıdaki satırı ekleyin.xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" VBA kodunda.
not: Seçilen hücrenin mevcut yazı tipi boyutunu önceden bilmeniz ve ardından orijinal kelimeden bir numara daha büyük bir sayı girmeniz gerekir. Aşağıdaki satırdaki 12 sayısı, eşleşen kelimelere atayacağım yazı tipi boyutudur. Ve kelimenin orijinal yazı tipi boyutu 11'dir.
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok yararlı teşekkür ederim. Yazı tipi rengi yerine bir kelimeyi nasıl vurgulayabilirim?

Saygılar.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler. Bu gerçekten yardımcı oldu. Birisi lütfen metni vurgulamak yerine nasıl renklendirileceğini söyleyebilir mi?

Saygılarımızla
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Shaik Faiaz hamad,

Excel, hücrenin bir bölümünü renklendirmeye izin vermez. Üzgünüm, bu sorunla ilgili sana yardım edemem.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bonjour Cristal,
Merci dökün ce kodu. "Apple,Rose,Vert,Merci" motifleriyle ilgili kanıtları ölçmek için adaptörün tahmini mümkün
sağol
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Kuzen,

Aşağıdaki VBA kodu yardımcı olabilir. Kodu çalıştırdıktan sonra bir iletişim kutusu alacaksınız. Lütfen vurgulamak istediğiniz kelimeleri yazın ve virgülle ayırın.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/highlight.png
Sub HighlightStrings()
'Updated by Extendoffice 20230130
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    Dim xArr2
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
    
    xArr2 = Split(xHStr, ",")
    For j = 0 To UBound(xArr2)
        xHStr = xArr2(j)
    
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Next
    
    Application.ScreenUpdating = True
End Sub
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