Как да удебеля само първия ред или първата дума в клетка в Excel?
В работен лист на Excel може да има много клетки, съдържащи множество редове, които са били разделени на параграфи с клавишите Alt + Enter. В някои случаи може да се наложи да удебелите само първия ред в тези клетки. Или удебелете само първата дума, за да я направите забележителна в клетките. Тази статия показва два метода за постигане на това в детайли.
Удебеляване само на първия ред в клетка с VBA код Удебеляване само на първата дума в клетка с VBA код
Удебеляване само на първия ред в клетка с VBA код
Следният VBA код може да ви помогне бързо да удебелите само първия ред в избраните клетки. Моля, направете следното.
1. Натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в прозореца на модула.
VBA код: удебелява само първия ред в клетките
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. Натисни F5 ключ за изпълнение на кода. Тогава Kutools за Excel се появи диалогов прозорец, моля, изберете диапазона с първия ред, който трябва да направите удебелен, и след това щракнете върху OK бутон.
След това можете да видите, че всички първи редове на избраните клетки са удебелени веднага, както е показано на екранната снимка по-долу.
Удебеляване само на първата дума в клетка с VBA код
Както е показано на екранната снимка по-долу, понякога трябва да удебелите първата дума само в диапазон A2: A4 в Excel. Можете да го постигнете, както следва стъпка по стъпка.
1. Натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в прозореца на модула.
VBA код: удебелява само първата дума в клетките
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. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel изберете диапазона, който искате да направите първата дума удебелена, и след това натиснете OK бутон. Вижте екранна снимка:
След това можете да видите, че всички първи думи на избраните клетки са удебелени веднага, както е показано на екранната снимка по-долу.
Свързана статия:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!