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ší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!