İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-in hüceyrələrində müəyyən sözləri rəngləndirmək və ya vurmaq necədir?

Bir hüceyrədə birdən çox söz varsa, bu hüceyrədə müəyyən bir sözü necə göstərə bilərsiniz? Və bir neçə hüceyrədə bu müəyyən sözü işıqlandırmaq üçün necə? Bu məqalə onu əldə etmək üçün bir üsul təqdim edəcəkdir.

VBA kodu olan bir hüceyrədə / birdən çox hüceyrədə müəyyən sözü rəngləndirin


Müəyyən mətni və ya mətnin bir hissəsini ehtiva edən bütün hüceyrələri asanlıqla tapın və seçin:

The Xüsusi Hüceyrələri seçin faydası Excel üçün Kutools müəyyən bir mətn və ya mətnin bir hissəsi olsalar, bir sıra hüceyrələri tez bir zamanda tapıb seçə bilərsiniz. Və bir dialoq qutusuna hüceyrələrin ümumi nömrələrini göstərəcək. Ekran görüntüsünə baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi yükləyin


VBA kodu olan bir hüceyrədə / birdən çox hüceyrədə müəyyən sözü rəngləndirin


Aşağıdakı VBA kodu bir seçimdə müəyyən sözü qeyd etməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Aralığı seçin daxilində müəyyən sözü vurğulamaq istədiyiniz hüceyrələri ehtiva edir. Sonra basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Açılışda Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Excel-də hüceyrələrdə müəyyən sözü rəngləndirin

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Və də Excel üçün Kutools informasiya qutusuna xahiş olunur, xahiş olunur hüceyrələrdə vurğuladığınız sözü daxil edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra seçdiyiniz bütün sözləri seçdiyiniz hüceyrələrə qırmızı rəngdə göstərildikdən sonra dərhal ekran görüntüsünü göstərdik.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Yuri Celis · 2 months ago
    Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
  • To post as a guest, your comment is unpublished.
    Joe Rivas · 8 months ago
    THANKS, THANKS, THANKS
  • To post as a guest, your comment is unpublished.
    Otto · 10 months ago
    Is there any way to make the code highlight the words automatically as I edit the tabs?
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Hi,
      Sorry can't help with this. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Justin · 1 years ago
    You don't explain how to open the "Kutools for Excel dialog box" referred to in the last step.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Justin,
      Sorry about that. After pasting the VBA code into the Code window, please press the F5 key to run the code, and then he "Kutools for Excel" dialog box will be opened. Thank you.