Note: The other languages of the website are Google-translated. Back to English

Kako najti vsa podčrtana besedila v obsegu ali celotnem delovnem listu v Excelu?

Recimo, da imate na delovnem listu vrsto podatkov in so nekateri podatki podčrtani, zdaj pa želite te podatke najti s podčrtajem, kako jih lahko hitro najdete? Tukaj vam predstavljam nekaj trikov za hitro iskanje podčrtanih besedil v obsegu ali celotnem delovnem listu v Excelu.

Poiščite vsa podčrtana besedila na delovnem listu z VBA

Poiščite vsa podčrtana besedila v obsegu ali na delovnem listu s programom Kutools za Excel dobra ideja3


puščica modri desni mehurček Poiščite vsa podčrtana besedila na delovnem listu z VBA

V Excelu ne morete uporabiti funkcije Pojdi na posebno za iskanje podčrtanih besedil, zato vam predstavljam kodo VBA, ki vam pomaga najti vsa podčrtana besedila na delovnem listu.

1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno in kliknite Vstavi > Moduli.

2. V popping Moduli okno, prilepite pod kodo VBA.

VBA: Poiščite vse podčrtano besedilo na delovnem listu.

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 Run ali pritisnite F5 tipko. In odpre se pogovorno okno za izbiro obsega, v katerem najdete podčrtana besedila.

doc najti podčrtano besedilo 1

4. klik OK, nato se odpre pogovorno okno, ki vam pove, katere celice so enojno podčrtana besedila in katera dvojno podčrtana besedila.

doc najti podčrtano besedilo 2

Če želite samo ugotoviti eno vrsto podčrtanih besedil v določenem obsegu, vam ta koda VBA ne more pomagati, lahko pa v tem primeru za reševanje te naloge uporabite spodnje priročno orodje.


puščica modri desni mehurček Poiščite vsa podčrtana besedila v obsegu ali na delovnem listu s programom Kutools za Excel

Če imate Kutools za Excel nameščen, lahko uporabite Izberite Celice z obliko pripomoček za hitro iskanje podčrtanih besedil v celotnem delovnem listu.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite prazno celico in vanjo vnesite podatke, na primer A1, in kliknite Home > poudarjajoin izberite vrsto podčrtaja, ki jo potrebujete. Oglejte si posnetek zaslona:

doc najti podčrtano besedilo 3

2. Nato izberite obseg, za katerega želite izvedeti podčrtana besedila, in kliknite Kutools > Izberite > Izberite Celice z obliko. Oglejte si posnetek zaslona:

doc najti podčrtano besedilo 4

3. In v Izberite Celice z obliko dialog, kliknite Izberite Oblika iz celice da izberete celico, ki jo formatirate s podčrtajem v 1. koraku. Oglejte si posnetek zaslona:

doc najti podčrtano besedilo 5
doc najti podčrtano besedilo 6

4. klik OK, in v Izberite Celice z obliko pogovorno okno, preverite poudarjajo samo. Oglejte si posnetek zaslona:

doc najti podčrtano besedilo 7

5. klik Ok, nato se odpre pogovorno okno, ki vas opomni, koliko podčrtanih besedil je izbranih, kliknite Da da ga zaprete.

doc najti podčrtano besedilo 8

Zdaj so izbrana vsa podčrtana besedila.

doc najti podčrtano besedilo 9

Nasvet:

1. Če želite na celotnem delovnem listu najti vsa podčrtana besedila, kliknite levi kot delovnega lista, da izberete celoten delovni list, in nato uporabite Izberite Celice z obliko uporabnost.

2. Preveri Ne upoštevajte praznih celic in Izberite Celice z obliko pogovornem oknu prezre prazne celice, čeprav so prazne celice oblikovane s podčrtajem.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL