Wie kann nur die erste Zeile oder das erste Wort in der Zelle in Excel fett gedruckt werden?
In einem Excel-Arbeitsblatt kann es viele Zellen geben, die mehrere Zeilen enthalten, die mit Alt + Eingabetaste abgesetzt wurden. In einigen Fällen müssen Sie möglicherweise nur die erste Zeile in diesen Zellen fett schreiben. Oder nur das erste Wort fett schreiben, um es in Zellen hervorzuheben. Dieser Artikel zeigt zwei Methoden, mit denen Sie dies im Detail erreichen können.
Fett nur die erste Zeile in der Zelle mit VBA-Code Fett nur das erste Wort in der Zelle mit VBA-Code
Fett nur die erste Zeile in der Zelle mit VBA-Code
Mit dem folgenden VBA-Code können Sie schnell nur die erste Zeile in ausgewählten Zellen fett formatieren. Bitte gehen Sie wie folgt vor.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Nur die erste Zeile in Zellen fett
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann ein Kutools for Excel Das Dialogfeld wird angezeigt. Wählen Sie den Bereich mit der ersten Zeile aus, die Sie fett formatieren möchten, und klicken Sie dann auf OK .
Dann können Sie sehen, dass alle ersten Zeilen ausgewählter Zellen sofort fett gedruckt sind (siehe Abbildung unten).
Fett nur das erste Wort in der Zelle mit VBA-Code
Wie im folgenden Screenshot gezeigt, müssen Sie das erste Wort manchmal nur im Bereich A2: A4 in Excel fett schreiben. Sie können dies Schritt für Schritt wie folgt erreichen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Nur das erste Wort in Zellen fett
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich aus, in dem das erste Wort fett gedruckt werden soll, und drücken Sie dann die Taste OK Taste. Siehe Screenshot:
Dann können Sie sehen, dass alle ersten Wörter ausgewählter Zellen sofort fett gedruckt sind (siehe Abbildung unten).
Verwandter Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!