İ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-də bir sıra və ya bütün iş yerində bütün altı çizilmiş mətnləri necə tapmaq olar?

Bir iş kitabında bir sıra məlumatınız olduğunu düşündüyünüz və bəzi məlumatlar altı çizili ve şimdi bu verileri altı çizgiyle öğrenmek isterseniz, bunları nasıl hızlı bir şekilde bulabilirsiniz? Burada Excel-in bir sıra və ya bütün iş yerində vurğulanmış mətnləri tez bir şəkildə tapmaq üçün bir sıra tövsiyələr təqdim edirəm.

VBA ilə bir işdə bütün altı çizilmiş mətnləri tapın

Excel üçün Kutools ilə bir aralığın və ya işin bütün altı çizilmiş mətnləri tapın yaxşı fikir3


Xüsusi Hüceyrələri seçin (bir ceviz iki meyarına əsaslanan hüceyrələri / satır / sütunları seçin.)

doc xüsusi hüceyrələri seçin

arrow mavi sağ bubble VBA ilə bir işdə bütün altı çizilmiş mətnləri tapın


Excel-də, vurğulanmış mətnləri tapmaq üçün Xüsusi funksiyaya keçmək funksiyasını istifadə edə bilməzsiniz, buna görə də bir iş yerindəki bütün altı çizilmiş mətni tapmaq üçün VBA kodunu təqdim edirəm.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

1. Basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə və basın Taxmaq > Modules.

2. Popping ildə Modules VBA kodunun altına yapışdırıb.

VBA: İş yerində bütün altı çizilmiş mətni tapın.

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. klik qaçış düyməsini basın və ya basın F5 açar. Və altıbucaqlı mətnləri tapmaq üçün bir sıra seçmək üçün dialoq çıxır.

doc altı rəngli mətn 1 tapın

4. klik OK, sonra bir dialoq hansı hüceyrələri tək mətnləri vurğulamaq və ikiqat altı çizilmiş mətnlər demək üçün çıxacaq.

doc altı rəngli mətn 2 tapın

Yalnız müəyyən bir sıra altı çizilmiş mətnləri tapmaq istəyirsinizsə, bu VBA kodu sizə kömək edə bilməz, ancaq bu vəziyyətdə bu işi həll etmək üçün lazımlı bir vasitə istifadə edə bilərsiniz.


arrow mavi sağ bubble Excel üçün Kutools ilə bir aralığın və ya işin bütün altı çizilmiş mətnləri tapın

Əgər Excel üçün Kutools yüklənmişsə, müraciət edə bilərsiniz Formatlı hüceyrələri seçin bir bütün iş yerində vurğulanmış mətnləri tez bir şəkildə tapmaq üçün faydalıdır.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Boş bir hüceyrə seçin və bir məlumat daxil edin, məsələn, A1 və basın ev > altdan cız çəkməkvə lazım olan bir növü seçin. Ekran görüntüsünə baxın:

doc altı rəngli mətn 3 tapın

2. Sonra xüsusi altı çizilmiş mətnləri tapmaq istədiyiniz aralığı seçin və basın Kutools > seçmək > Formatlı hüceyrələri seçin. Ekran görüntüsünə baxın:

doc altı rəngli mətn 4 tapın

3. Və də Formatlı hüceyrələri seçin dialoq basın Hücredən Format seçin step1-də vurğulamaqla formatladığınız hüceyrəni seçin. Ekran görüntüsünə baxın:

doc altı rəngli mətn 5 tapın
doc altı rəngli mətn 6 tapın

4. klik OK, və Formatlı hüceyrələri seçin dialoq yoxlayın altdan cız çəkmək yalnız. Ekran görüntüsünə baxın:

doc altı rəngli mətn 7 tapın

5. klik Okdaha sonra vurğulanan mətnlərin neçə seçildiyini sizə xatırlatmaq üçün bir dialoq çıxır, klikləyin bəli onu bağlamaq üçün.

doc altı rəngli mətn 8 tapın

İndi bütün altı çizilmiş mətnlər seçilir.

doc altı rəngli mətn 9 tapın

Ip ucu:

1. Bütün bir iş yerində altı çizilmiş bütün mətni tapmaq istəyirsinizsə, bütün səhifəni seçmək üçün iş səhifəsinin sol küncünü basın və sonra Formatlı hüceyrələri seçin kommunal.

2. Yoxlayın Boş hüceyrələri görməyin in Formatlı hüceyrələri seçin dialoq, boş hüceyrələrin altı ilə vurğulanmasına baxmayaraq boş hüceyrələri görməyəcəkdir.

diqqət 1Bu addi-inlə maraqlandığı halda, buraya vurun 60 gün pulsuz sınaq versiyasını yükləyin.


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.

Be the first to comment.