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

Jak najít všechny podtržené texty v rozsahu nebo v celém listu v aplikaci Excel?

Předpokládejme, že máte v listu řadu dat a některá data jsou podtržena, a teď je chcete zjistit podtrženě, jak je rychle zjistit? Zde vám představím několik triků, jak rychle zjistit podtržené texty v rozsahu nebo v celém listu v aplikaci Excel.

Najděte všechny podtržené texty v listu pomocí VBA

Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina Najděte všechny podtržené texty v listu pomocí VBA

V aplikaci Excel nemůžete použít funkci Přejít na speciální k vyhledání podtržených textů, proto vám představím kód VBA, který vám pomůže najít všechny podtržené texty v listu.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul.

2. V praskání Modul okno, vložte pod kód VBA.

VBA: Najděte veškerý podtržený text v 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. cvaknutí Běh nebo stiskněte tlačítko F5 klíč. Zobrazí se dialogové okno pro výběr rozsahu pro vyhledání podtržených textů.

doc najít podtržený text 1

4. cvaknutí OK, poté se zobrazí dialogové okno, které vám řekne, které buňky jsou jednoduché podtržené texty a které jsou podtržené texty.

doc najít podtržený text 2

Pokud chcete zjistit pouze jeden typ podtržených textů v konkrétním rozsahu, tento kód VBA vám nemůže pomoci, ale v tomto případě můžete tento úkol vyřešit pomocí níže uvedeného užitečného nástroje.


šipka modrá pravá bublina Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, můžete použít Vyberte buňky s formátem nástroj pro rychlé vyhledání podtržených textů v rozsahu celého listu.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte prázdnou buňku a poté do ní zadejte data, například A1, a klepněte na Home > Zdůraznita vyberte požadovaný typ podtržení. Viz screenshot:

doc najít podtržený text 3

2. Poté vyberte rozsah, ve kterém chcete zjistit konkrétní podtržené texty, a klikněte na Kutools > vybrat > Vyberte buňky s formátem. Viz snímek obrazovky:

doc najít podtržený text 4

3. A v Vyberte buňky s formátem dialog, klepněte na tlačítko Vyberte Formát z buňky v kroku 1 vyberte buňku, kterou formátujete s podtržením. Viz screenshot:

doc najít podtržený text 5
doc najít podtržený text 6

4. cvaknutí OK, a v Vyberte buňky s formátem dialog, zkontrolujte Zdůraznit pouze. Viz snímek obrazovky:

doc najít podtržený text 7

5. cvaknutí Ok, poté se zobrazí dialogové okno, které vám připomene, kolik podtržených textů je vybráno, klikněte na Ano zavřít.

doc najít podtržený text 8

Nyní jsou vybrány všechny podtržené texty.

doc najít podtržený text 9

Tip:

1. Chcete-li zjistit všechny podtržené texty v celém listu, kliknutím na levý roh listu vyberte celý list a poté použijte Vyberte buňky s formátem utilita.

2. Kontrola Prázdné buňky ignorujte in Vyberte buňky s formátem Dialogové okno bude ignorovat prázdné buňky, přestože jsou prázdné buňky formátovány s podtržením.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL