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 Sub3. Ç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.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin