Hoe kan ik alleen de eerste regel of het eerste woord in de cel in Excel vet maken?
In een Excel-werkblad kunnen er veel cellen zijn met meerdere regels die in alinea's zijn opgenomen met de Alt + Enter-toetsen. In sommige gevallen hoeft u alleen de eerste regel in deze cellen vetgedrukt te maken. Of maak alleen het eerste woord vet om het in cellen uitstekend te maken. Dit artikel toont twee methoden om dit in detail te bereiken.
Maak alleen de eerste regel in de cel vet met VBA-code Maak alleen het eerste woord in de cel vet met VBA-code
Maak alleen de eerste regel in de cel vet met VBA-code
De volgende VBA-code kan u helpen om snel alleen de eerste regel in geselecteerde cellen vet te maken. Ga als volgt te werk.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: vet alleen de eerste regel in cellen in
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. druk de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvenster verschijnt, selecteer het bereik met de eerste regel die u nodig hebt om het vetgedrukt te maken en klik vervolgens op de OK knop.
Vervolgens kunt u zien dat alle eerste regels van geselecteerde cellen onmiddellijk vetgedrukt zijn, zoals onderstaand screenshot.
Maak alleen het eerste woord in de cel vet met VBA-code
Zoals onderstaand screenshot laat zien, moet u soms het eerste woord alleen in het bereik A2: A4 in Excel vetgedrukt. U kunt dit stap voor stap als volgt bereiken.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: vet alleen het eerste woord in cellen in
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. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik waarvan u het eerste woord vet wilt maken en druk vervolgens op OK knop. Zie screenshot:
Vervolgens kunt u zien dat alle eerste woorden van geselecteerde cellen onmiddellijk vet zijn, zoals onderstaand screenshot.
Gerelateerd artikel:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!