Hvordan fed kun den første linje eller det første ord i cellen i Excel?
I et Excel-regneark kan der være mange celler, der indeholder flere linjer, der blev paragraferet af Alt + Enter-nøglerne. I nogle tilfælde skal du muligvis kun federe den første linje i disse celler. Eller kun fed det første ord for at gøre det fremragende i celler. Denne artikel viser to metoder, du kan nå det i detaljer.
Fed kun den første linje i celle med VBA-kode Fed kun det første ord i cellen med VBA-kode
Fed kun den første linje i celle med VBA-kode
Den følgende VBA-kode kan hjælpe dig med kun at fed kun den første linje i valgte celler. Gør som følger.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: Fed kun den første linje i celler
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. Tryk på F5 nøgle for at køre koden. Så a Kutools til Excel dialogboksen dukker op, skal du vælge området med den første linje, du har brug for for at gøre det fed, og klik derefter på OK .
Derefter kan du se, at alle første linjer i valgte celler er med fed skrift med det samme som nedenstående skærmbillede.
Fed kun det første ord i cellen med VBA-kode
Som vist nedenstående skærmbillede er du undertiden kun nødt til at fedte det første ord i området A2: A4 i Excel. Du kan opnå det som følger trin for trin.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: Fed kun det første ord i celler
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. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel i dialogboksen, vælg det område, som du vil gøre det første ord fed, og tryk derefter på OK knap. Se skærmbillede:
Derefter kan du se alle de første ord i markerede celler er fed med det samme som vist nedenstående skærmbillede.
Relateret artikel:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!