Jak pogrubić tylko pierwszą linię lub pierwsze słowo w komórce w programie Excel?
W arkuszu programu Excel może znajdować się wiele komórek zawierających wiele linii, które zostały sparowane za pomocą klawiszy Alt + Enter. W niektórych przypadkach może być konieczne pogrubienie tylko pierwszego wiersza w tych komórkach. Lub tylko pogrubione pierwsze słowo, które wyróżnia go w komórkach. W tym artykule szczegółowo przedstawiono dwie metody osiągnięcia tego celu.
Pogrubić tylko pierwszą linię w komórce z kodem VBA Pogrubić tylko pierwsze słowo w komórce z kodem VBA
Pogrubić tylko pierwszą linię w komórce z kodem VBA
Poniższy kod VBA może pomóc szybko pogrubić tylko pierwszą linię w wybranych komórkach. Wykonaj następujące czynności.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: pogrubić tylko pierwszą linię w komórkach
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. wciśnij F5 klucz do uruchomienia kodu. Następnie Kutools dla programu Excel pojawi się okno dialogowe, wybierz zakres z pierwszą linią, którą chcesz pogrubić, a następnie kliknij OK przycisk.
Następnie możesz zobaczyć, że wszystkie pierwsze linie wybranych komórek są natychmiast pogrubione, jak pokazano poniżej.
Pogrubić tylko pierwsze słowo w komórce z kodem VBA
Jak pokazano na poniższym zrzucie ekranu, czasami musisz pogrubić pierwsze słowo tylko w zakresie A2: A4 w programie Excel. Możesz to osiągnąć w następujący sposób krok po kroku.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: pogrubić tylko pierwsze słowo w komórkach
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. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, dla którego chcesz pogrubić pierwsze słowo, a następnie naciśnij klawisz OK przycisk. Zobacz zrzut ekranu:
Następnie możesz zobaczyć, że wszystkie pierwsze słowa wybranych komórek są natychmiast pogrubione, jak pokazano na zrzucie ekranu.
Powiązany artykuł:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!