Bir hücredeki belirli metni, başka bir metne göre nasıl vurgulayabilirim?
Excel’de belirli bir metne göre hücreleri vurgulamak kolay olabilir; ancak burada tüm hücreyi değil, yalnızca hücre içindeki belirli metni öne çıkaracak şekilde vurgulamak istiyorum. Bu durum çoğu kullanıcı için zorluk oluşturabilir. Bu makalede, Excel’de bu sorunu çözmek için kullanabileceğiniz bazı pratik püf noktalarını paylaşacağım.
Birden fazla hücre içinde VBA koduyla bir veya daha fazla belirli metni vurgulayın
Örneğin, bir dizi metin dizim var ve bu hücrelerde “Sky” metnini aşağıdaki ekran görüntülerinde gösterildiği gibi vurgulamak istiyorum:
 |  |  |
Bir hücrede yalnızca metnin bir kısmını vurgulamak için aşağıdaki VBA kodu işinize yarayabilir.
1. Vurgulamak istediğiniz metni içeren hücreleri seçin ve ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Bir hücre içinde metnin bir kısmını vurgulama:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Ardından F5 tuşuna basarak bu kodu çalıştırın; vurgulamak istediğiniz metni girmenizi hatırlatan bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; belirttiğiniz tüm metinler hücreler içinde yalnızca vurgulanmış olacaktır. Ekran görüntüsüne bakın:
| | |
VBA kodu: Metin dizelerinden birden fazla anahtar kelimeyi vurgulama:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Ardından açılan kutuya, vurgulamak istediğiniz anahtar kelimeleri girin (kelimeleri virgülle ayırın); ekran görüntüsüne bakın:
Ardından Tamamdüğmesine tıklayın; belirtilen kelimeler anında vurgulanacaktır, ekran görüntülerine bakın:
| |  |
Not: Yukarıdaki kodlar büyük/küçük harf duyarlı değildir.
Birden fazla hücre içinde harika bir özellik sayesinde bir veya daha fazla belirli metni vurgulayın
Excel'de kodlarla aşina değilseniz, size Kutools for Excel adlı kolay bir araçtan bahsedeceğim. Onun Anahtar Kelime İşaretleme özelliği sayesinde, hücrelerdeki bir veya daha fazla belirli anahtar kelimeyi aynı anda vurgulayabilirsiniz.
Kutools for Excel eklentisini yükledikten sonra Kutools for Excel, aşağıdakileri yapın:
1.Kutools>Metin>Anahtar Kelime İşaretlemeseçeneğine tıklayın; ekran görüntüsüne bakın:
2.Anahtar Kelime İşaretlemeiletişim kutusunda aşağıdaki işlemleri yapın:
- Kullanmak istediğiniz Veri Aralığı'yi Aralıkmetin kutusundan seçin;
- Vurgulamak istediğiniz anahtar kelimeleri içeren hücreleri seçin veya anahtar kelimeleri elle (virgülle ayırarak)Anahtar Kelimemetin kutusuna girin
- Son olarak, metinleri vurgulamak için bir Yazı Tipi Rengi belirtmelisiniz; bunun için Anahtar Kelime Yazı Tipi Rengiseçeneğini işaretleyin. (Anahtar kelimeleri içeren tüm hücreleri renklendirmek istiyorsanız)Hücre İçerik Rengi seçeneğini seçin.)
3. Ardından, Tamam düğmesine tıklayın; belirtilen tüm metinler aşağıdaki ekran görüntüsünde gösterildiği gibi vurgulanacaktır:
Not: Bu özellik büyük/küçük harf duyarlı değildir; metni büyük/küçük harf duyarlı şekilde vurgulamak istiyorsanız, Büyük/küçük harf eşleştir seçeneğini Anahtar Kelime İşaretleme iletişim kutusunda işaretleyin.
Bir hücre içindeki belirli metni, başka bir metne göre VBA koduyla vurgulayın
İşte başka bir senaryo: İlk sütunum metin dizelerinden, ikinci sütunum ise belirli metinlerden oluşuyor. Şimdi, her satırda ikinci sütundaki belirli metne göre ilk sütundaki ilgili metni vurgulamam gerekiyor.
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu ModülPenceresine yapıştırın.
VBA kodu: Bir hücredeki metnin bir kısmını başka bir metne göre vurgulama:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Kodu yapıştırdıktan sonra F5 tuşuna basarak çalıştırın; hem metin dizelerini hem de vurgulamak ve temel almak istediğiniz belirli metni içeren Veri Aralığı’nı seçmenizi hatırlatan bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; ikinci sütundaki belirli metne göre, ilk sütundaki tüm ilgili metinler aşağıdaki ekran görüntüsünde gösterildiği gibi kırmızı renkle işaretlenecektir:
Daha fazla ilgili makale:
- Excel'de İki Sütunu Birleştirirken Kısmi Metni Kalın Yapma
- Excel çalışma sayfasında iki hücre değerini formüllerle birleştirdikten sonra, birleştirilmiş metnin yalnızca bir kısmını kalın yapmanın mümkün olmadığını fark edebilirsiniz. Bu durum bazen can sıkıcı olabilir; peki Excel’de iki sütunu birleştirirken metnin bir kısmını nasıl kalın yapabilirsiniz?
- Excel'de Hücre Sütunlarını Birleştirirken Metin Rengini Koruyun
- Hepimizin bildiği gibi, hücre sütunlarını tek bir sütunda birleştirdiğimizde hücre biçimlendirmesi—örneğin metnin yazı tipi rengi veya sayı biçimi—kaybolur. Bu makalede, Excel’de hücre sütunlarını birleştirirken metin rengini en kolay şekilde korumanıza yardımcı olacak bazı pratik püf noktalarını paylaşacağım.
- Başka Bir Sütunda Belirli Metni Değere Göre Gösterme
- Diyelim ki sayılar içeren bir listeniz var ve bu sütundaki değerlere göre başka bir sütunda belirli metinleri görüntülemek istiyorsunuz. Örneğin, hücredeki sayı 1–100 aralığında olduğunda bitişik hücreye “Azalış”, 101–200 aralığında olduğunda “Durağan” ve 200’den büyük olduğunda ise “Artış” yazısının, aşağıdaki ekran görüntüsünde gösterildiği gibi gelmesini sağlamak istiyorsunuz. Excel’de bu görevi yerine getirmek için bu makaledeki formüller size yardımcı olabilir.
- Excel'de Metin ve Sayıya Göre Böl İle Hücreleri Toplama
- Örneğin, sayısal ve metinsel değerler içeren bir listeniz olsun ve aynı metne dayanarak yalnızca sayıları toplamak istiyorsunuz—aşağıdaki ekran görüntüsüne göz atın. Normalde, metin içeren bir listedeki değerleri doğrudan toplayamazsınız. İşte bu görevi kolayca yerine getirmenize yardımcı olacak bazı formüller:
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