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

Jak zvýraznit pouze první řádek nebo první slovo v buňce v aplikaci Excel?

V listu aplikace Excel může být spousta buněk obsahujících více řádků, které byly odstaveny klávesami Alt + Enter. V některých případech možná budete muset v těchto buňkách zvýraznit pouze první řádek. Nebo jen zvýrazněte první slovo, aby bylo vynikající v buňkách. Tento článek ukazuje dvě metody, jak toho dosáhnout podrobně.

Tučné pouze první řádek v buňce s kódem VBA Tučné pouze první slovo v buňce s kódem VBA


Tučné pouze první řádek v buňce s kódem VBA

Následující kód VBA vám pomůže rychle tučně zvýraznit pouze první řádek ve vybraných buňkách. Postupujte prosím následovně.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: Tučné pouze první řádek v buňkách

Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
    With xCell
        .Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
    End With
Next
End Sub

3. zmáčkni F5 klíč ke spuštění kódu. Pak Kutools pro Excel Zobrazí se dialogové okno, vyberte rozsah s prvním řádkem, který chcete zvýraznit, a poté klikněte na OK .

Pak můžete vidět, že všechny první řádky vybraných buněk jsou okamžitě tučně, jak je uvedeno níže.


Tučné pouze první slovo v buňce s kódem VBA

Jak je ukázáno níže, někdy je třeba zvýraznit první slovo pouze v rozsahu A2: A4 v aplikaci Excel. Můžete toho dosáhnout krok za krokem.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: Tučné pouze první slovo v buňkách

Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  If xCell.Value <> "" Then
    xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
  End If
Next
End Sub

3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, ve kterém chcete první slovo zvýraznit tučně, a poté stiskněte OK knoflík. Viz screenshot:

Pak můžete vidět, že všechna první slova vybraných buněk jsou tučně zobrazena, jak je uvedeno níže.


Související článek:


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 (8)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Co když chci, aby byl druhý řádek tučný?
Tento komentář byl moderátorem webu minimalizován
Dobrý den!
Pokud chcete tučně zvýraznit pouze druhý řádek buňky, zkuste následující kód VBA:

Sub BoldSecondLine()
Dim xRng As Range, xCell As Range
Dim xArr
On Error Resume Next
Set xRng = Application.InputBox("Vyberte rozsah:", "Kutools pro", Selection.Address, , , , , 8)
Pokud xRng není nic, pak Exit Sub
Pro každý xCell v xRng
Pokud xCell <> "" Pak
S xCell
xArr = Split(xCell, Chr(10))
.Characters(InStr(.Value, Chr(10)) + 1, Len(xArr(1))).Font.Tučné = True
Konec s
End If
další
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, co když chci, aby první tři slova byla tučná?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Zkuste níže uvedený skript VBA.

Sub tučný text()
Dim xRng As Range, xCell As Range
Dim xNum as Long, xCount as long
Dim I As Long, J As Long
Dim xArr
Dim xArrChr10
On Error Resume Next
Set xRng = Application.InputBox("Vyberte rozsah:", "Kutools pro Excel", Selection.Address, , , , , 8)
Pokud xRng není nic, pak Exit Sub
Pro každý xCell v xRng
xNum = 0
xCount = 0
xArrChr10 = Split(xCell.Value, Chr(10))
Pro I = 0 až UBound(xArrChr10)
xArr = Split(xArrChr10(I))
Pro J = 0 až UBound(xArr)
Pokud xArr(J) <> "" Pak
xCount = xCount + 1
Pokud xCount > 3, pak Exit For
End If
xNum = xNum + Délka(xArr(J)) + 1
další
další
xCell.Characters(1, xNum).Font.Tučné = True
další
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, co když chci, aby byly první dva řádky tučné?
Tento komentář byl moderátorem webu minimalizován
Ahoj, mám v buňce docela dost řádků. Chci udělat 5. řádek tučným písmem a kurzívou v buňce. Níže uvedený kód tvoří pouze první řádek. Můžete pomoci

Sub tučné ()


Dim r As Range, c As Range
Dim ws jako pracovní list

Nastavit ws = ActiveSheet
Nastavit r = ws.Range("Y:Y")
Za každé c V r
S c
.Font.bold = False
.Value = .Text
.Characters(1, InStr(.Text, vbLf) - 1).Font.bold = True
Konec s

Další c


End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj. Mám mnoho buněk, které obsahují více řádků, které byly odděleny pomocí Alt+Enter. Chtěl bych zvýraznit tučně a změnit barvu prvního slova každého řádku. Můžete mi prosím pomoci?
Tento komentář byl moderátorem webu minimalizován
To je fantastické, díky moc!
Hodnocení 5 z 5
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