Excel'de bir aralıkta veya tüm çalışma sayfasında altı çizili tüm metinleri nasıl bulabilirim?

Diyelim ki bir çalışma sayfasında bir dizi veri var ve bu verilerden bazıları altı çizili. Şimdi bu altı çizili verileri bulmak istiyorsunuz, bunları nasıl hızlı bir şekilde bulabilirsiniz? Size Excel'de bir aralıkta veya tüm çalışma sayfasında altı çizili metinleri hızlıca bulmak için bazı yöntemler tanıtacağım.

VBA ile çalışma sayfasındaki tüm altı çizili metinleri bulma

Kutools for Excel ile bir aralıkta veya çalışma sayfasındaki tüm altı çizili metinleri bulma

VBA ile çalışma sayfasındaki tüm altı çizili metinleri bulma

Excel'de, altı çizili metinleri bulmak için Git ve Özel Seçim fonksiyonunu kullanamazsınız, bu yüzden size bir çalışma sayfasındaki tüm altı çizili metinleri bulmanıza yardımcı olacak bir VBA kodu tanıtacağım.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve Ekle > Modül'e tıklayın.

2. Açılan Modül penceresinde aşağıdaki VBA kodunu yapıştırın.

VBA: Çalışma sayfasındaki tüm altı çizili metinleri bulma.

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. Çalıştır düğmesine tıklayın veya F5 tuşuna basın. Ardından altı çizili metinleri bulmak için bir aralık seçmenizi sağlayan bir iletişim kutusu açılacaktır.

4. Tamam'a tıklayın, ardından hangi hücrelerin tek altı çizili metinler içerdiğini ve hangilerinin çift altı çizili metinler içerdiğini söyleyen bir iletişim kutusu açılacaktır.

Eğer belirli bir aralıkta yalnızca bir tür altı çizili metin bulmak istiyorsanız, bu VBA kodu size yardımcı olamaz, ancak bu durumda aşağıdaki pratik aracı kullanarak bu görevi çözebilirsiniz.

Kutools for Excel ile bir aralıkta veya çalışma sayfasındaki tüm altı çizili metinleri bulma

Kutools for Excel yüklüyse, Benzer formatta hücreleri seçme özelliğini kullanarak bir aralıktaki veya tüm çalışma sayfasındaki altı çizili metinleri hızlıca bulabilirsiniz.

Ücretsiz olarak Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:

1. Boş bir hücre seçin ve ardından içine bir veri yazın, örneğin A1, ve Ana Sayfa > Altı Çizili'ye tıklayın ve ihtiyacınız olan altı çizgi türünü seçin. Ekran görüntüsüne bakın:

2. Ardından belirli altı çizili metinleri bulmak istediğiniz aralığı seçin ve Kutools > Seç > Benzer formatta hücreleri seç'e tıklayın. Ekran görüntüsüne bakın:

3. Ve Benzer formatta hücreleri seç iletişim kutusunda, 1. adımda altı çizili formatladığınız hücreyi seçmek için Hücreden biçim seç'e tıklayın. Ekran görüntüsüne bakın:

4. Tamam'a tıklayın ve Benzer formatta hücreleri seç iletişim kutusunda yalnızca Altı Çizili'yi işaretleyin. Ekran görüntüsüne bakın:

5. Tamam'a tıklayın, ardından kaç tane altı çizili metnin seçildiğini bildiren bir iletişim kutusu açılacaktır, onu kapatmak için Evet'e tıklayın.

Şimdi tüm altı çizili metinler seçildi.

İpuçları:

1. Eğer tüm çalışma sayfasındaki altı çizili tüm metinleri bulmak istiyorsanız, çalışma sayfasının sol köşesine tıklayarak tüm çalışma sayfasını seçin ve ardından Benzer formatta hücreleri seçme özelliğini uygulayın.

2. Benzer formatta hücreleri seç iletişim kutusunda Boş hücreleri yoksay seçeneğini işaretleyin, bu boş hücreleri görmezden gelecektir, hatta boş hücreler altı çizili formatlanmış olsa bile.