Diğer metne dayalı olarak bir hücre içindeki belirli metni nasıl vurgulayabilirim?
Excel'de, hücreleri belirli bir metne göre vurgulamak bizim için kolay olabilir, ancak burada, bir hücre içindeki belirli bir metni vurgulamak ve onu tüm hücreyi değil, olağanüstü kılmak için vurgulamak istiyorum. Bu çoğumuz için sıkıntılı olabilir. Bu yazıda, bu işi Excel'de çözmek için bazı püf noktalarından bahsedeceğim.
VBA kodu ile birden çok hücrede bir veya daha fazla belirli metni vurgulayın
Örneğin, bir dizi metin dizem var ve şimdi, belirli bir metni vurgulamak istiyorum "GökyüzüAşağıdaki ekran görüntülerinde sonucu almak için bu hücrelerde ""
Bir hücre içindeki metnin yalnızca bir bölümünü vurgulamak için aşağıdaki VBA kodu size yardımcı olabilir.
1. Belirli bir metni vurgulamak istediğiniz hücreleri seçin ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir hücre içindeki metnin bir bölümünü vurgulayın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve yalnızca vurgulamak istediğiniz metni girmenizi hatırlatan bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, belirttiğiniz tüm metin yalnızca hücrelerde vurgulanmıştır, ekran görüntüsüne bakın:
VBA kodu: Metin dizelerinden birden çok anahtar kelimeyi vurgulayın:
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, lütfen vurgulamak istediğiniz anahtar kelimeleri girin (kelimeleri virgülle ayırın), ekran görüntüsüne bakın:
Ve sonra tıklayın OK düğmesi, belirtilen sözcükler bir defada vurgulanmıştır, ekran görüntülerine bakın:
not: Yukarıdaki kodlar büyük / küçük harfe duyarlıdır.
Şaşırtıcı bir özellikle birden çok hücrede bir veya daha fazla belirli metni vurgulayın
Excel'deki koda aşina değilseniz, burada kolay bir araç sunacağım - Kutools for Excel, Onun ile Anahtar Kelimeyi İşaretle özelliği, hücrelerde aynı anda belirli bir veya daha fazla anahtar kelimeyi vurgulayabilirsiniz.
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. tıklayın Kutools > Metin > Anahtar Kelimeyi İşaretle, ekran görüntüsüne bakın:
2. In Anahtar Kelimeyi İşaretle iletişim kutusu, lütfen aşağıdaki işlemleri yapın:
- Kullanmak istediğiniz veri aralığını seçin. Aralık Metin kutusu;
- Vurgulamak istediğiniz anahtar kelimeleri içeren hücreleri seçin, ayrıca anahtar kelimeleri manuel olarak (virgülle ayırarak) Anahtar kelime Metin kutusu
- Sonunda, metinleri işaretleyerek vurgulamak için bir yazı tipi rengi belirlemelisiniz. Anahtar kelime renklerini işaretle seçeneği. (Anahtar kelimeleri içeren hücrelerin tamamını renklendirmek için, Hücre içeriği renklerini işaretleyin opsiyon)
3. Daha sonra, Ok düğmesi, belirtilen tüm metinler aşağıda gösterilen ekran görüntüsü gibi vurgulanmıştır:
not: Bu özellik büyük / küçük harfe duyarlı değildir, metni büyük / küçük harfe duyarlı olarak vurgulamak istiyorsanız, lütfen kontrol edin maç Kılıf içinde Anahtar Kelimeyi İşaretle iletişim kutusu.
VBA kodu ile diğer metne dayalı olarak bir hücre içindeki belirli metni vurgulayın
İşte başka bir durum, ilk sütunun metin dizelerini içerdiği ve ikinci sütunun özel metin olduğu iki sütunum var, şimdi, her biri için ikinci sütundaki belirli metne göre ilk sütundaki ilgili metni vurgulamalıyım. kürek çekmek.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Diğer metne dayalı olarak bir hücre içindeki metnin bir bölümünü vurgulayın:
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 Çalıştırmak için tuşuna basın, hem metin dizesini hem de vurgulamak istediğiniz belirli metni içeren veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, ikinci sütundaki belirli metne bağlı olarak ilk sütundaki tüm karşılık gelen metin aşağıdaki ekran görüntüsü gibi kırmızı renkte gösterilmiştir:
Daha ilgili makaleler:
- Excel'de İki Sütunu Birleştirirken Kalın Parça Metni
- Excel çalışma sayfasında, iki hücre değerini formüllerle birleştirdikten sonra, birleştirilmiş formül hücresindeki metnin bir kısmını kalınlaştırmayacağını görebilirsiniz. Bu bazen can sıkıcı olabilir, Excel'de iki sütunu birleştirirken bölüm metnini nasıl kalın yapabilirsiniz?
- Hücre Sütunlarını Birleştirin ve Metin Rengini Excel'de Tutun
- Hepimizin bildiği gibi, hücre sütunlarını bir sütun halinde birleştirirken veya birleştirirken, hücre biçimlendirmesi (metin yazı tipi rengi, sayı biçimlendirmesi vb.) Kaybolacaktır. Bu makalede, hücre sütunlarını tek bir yerde birleştirmek ve metin rengini Excel'de olabildiğince kolay tutmak için bazı püf noktaları tanıtacağım.
- Başka Bir Sütundaki Değerlere Dayalı Belirli Metni Görüntüle
- Diyelim ki, bir sayılar listem var, şimdi, bu sütun numaralarına dayalı olarak başka bir sütunda belirli bir metni görüntülemek istiyorum. Örneğin, hücre numarası 1-100 arasındaysa, bitişik hücrede "Azalt" metninin görüntülenmesini, sayı 101-200 arasındaysa "Durağan" metninin görüntülenmesini ve sayı 200'den büyükse , aşağıdaki ekran görüntüsü gibi bir "Artış" metni görüntülenir. Excel'de bu görevi çözmek için, bu makaledeki aşağıdaki formüller size yardımcı olabilir.
- Excel'de Metin ve Sayılarla Hücreleri Topla
- Örneğin, sayısal ve metinsel dizeler içeren bir değerler listem var, şimdi sadece aynı metne dayalı sayıları toplamak istiyorum, aşağıdaki ekran görüntüsüne bakın. Normalde, listedeki değerleri doğrudan metin dizesiyle toplayamazsınız, burada size bu görevin üstesinden gelmek için bazı formüller sunacağım.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!