Як виділити жирним шрифтом лише перший рядок або перше слово в комірці в Excel?
На аркуші Excel може бути багато комірок, що містять декілька рядків, які були відтворені за допомогою клавіш Alt + Enter. У деяких випадках вам може знадобитися виділити жирним шрифтом лише перший рядок у цих клітинках. Або лише жирне перше слово для того, щоб зробити його видатним у клітинках. У цій статті детально описано два способи досягнення цього.
Жирним шрифтом виділений лише перший рядок у комірці з кодом VBA Жирним шрифтом лише перше слово в комірці з кодом VBA
Жирним шрифтом виділений лише перший рядок у комірці з кодом VBA
Наступний код VBA може допомогти вам швидко виділити жирним шрифтом лише перший рядок у вибраних комірках. Будь ласка, виконайте наступне.
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 клавіша для запуску коду. Тоді a Kutools для Excel спливає діалогове вікно, виберіть діапазон із першим рядком, який потрібно зробити жирним, а потім клацніть на OK кнопки.
Тоді ви зможете побачити всі перші рядки виділених комірок відразу жирними, як показано на знімку екрана.
Жирним шрифтом лише перше слово в комірці з кодом VBA
Як показано на знімку екрана, іноді перше слово потрібно виділити жирним шрифтом лише в діапазоні A2: A4 в Excel. Ви можете досягти цього наступним чином крок за кроком.
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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% та зменшує сотні клацань миші для вас щодня!