Hogyan lehet félkövérrel kiemelni az Excel cellájának első sorát vagy első szavát?
Egy Excel-munkalapon sok olyan cella lehet, amely több sort tartalmaz, amelyeket az Alt + Enter billentyűk bevágtak. Bizonyos esetekben előfordulhat, hogy csak az első sort kell félkövérrel kitüntetni ezekben a cellákban. Vagy csak az első szót félkövérrel emeli ki, hogy kiemelkedő legyen a cellákban. Ez a cikk részletesen két módszert mutat be az eléréshez.
Félkövér csak a VBA kóddal ellátott cellában az első sor Félkövér csak a VBA kóddal ellátott cellában az első szó
Félkövér csak a VBA kóddal ellátott cellában az első sor
A következő VBA-kód segíthet abban, hogy csak a kijelölt cellákban csak az első sort félkövérrel félkövérré tegye. Kérjük, tegye a következőket.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA kód: A cellákban csak az első sort félkövérnek kell feltüntetni
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. megnyomni a F5 gombot a kód futtatásához. Aztán a Kutools az Excel számára megjelenik a párbeszédpanel, kérjük, válassza ki a tartományt az elsõ sorral, amelyet félkövérré kíván tenni, majd kattintson a gombra OK gombot.
Ekkor láthatja, hogy a kijelölt cellák összes első sora félkövér, mint az alábbi képernyőkép látható.
Félkövér csak a VBA kóddal ellátott cellában az első szó
Amint az alábbi képernyőképen látható, néha az első szót csak az A2: A4 tartományban kell félkövérrel feltüntetni az Excelben. Ezt a következőképpen érheti el lépésről lépésre.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA-kód: A cellákban csak az első szó legyen félkövér
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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki azt a tartományt, amelyet az első szó félkövérré kíván tenni, majd nyomja meg a OK gomb. Lásd a képernyőképet:
Ekkor láthatja, hogy a kijelölt cellák első szavai félkövérek, az alábbi képernyőképen látható.
Kapcsolódó cikk:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!