Как выделить жирным шрифтом только первую строку или первое слово в ячейке в 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 for 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 for Excel в диалоговом окне выберите диапазон, в котором вы хотите выделить первое слово жирным шрифтом, а затем нажмите кнопку OK кнопка. Смотрите скриншот:
Затем вы можете увидеть, что все первые слова выбранных ячеек сразу же выделены жирным шрифтом, как показано ниже.
Связанная статья:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!