Note: The other languages of the website are Google-translated. Back to English

Как выделить жирным шрифтом только первую строку или первое слово в ячейке в 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 кнопка. Смотрите скриншот:

Затем вы можете увидеть, что все первые слова выбранных ячеек сразу же выделены жирным шрифтом, как показано ниже.


Связанная статья:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Как насчет того, чтобы вторая строка была жирной?
Этот комментарий был сведен к минимуму модератором на сайте
Хорошего дня!
Если вы хотите выделить жирным шрифтом только вторую строку ячейки, попробуйте следующий код VBA:

Sub BoldSecondLine()
Dim xRng как диапазон, xCell как диапазон
Тусклый xArr
On Error Resume Next
Установите xRng = Application.InputBox («Пожалуйста, выберите диапазон:», «Kutools для», Selection.Address, , , , , 8)
Если xRng ничего не значит, выйдите из Sub
Для каждой xCell в xRng
Если xCell <> "" Тогда
С xCell
xArr = Разделить (xCell, Chr (10))
.Characters(InStr(.Value, Chr(10)) + 1, Len(xArr(1))).Font.Bold = True
Конец с
End If
Далее
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, а если я хочу, чтобы первые три слова были выделены жирным шрифтом?
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Пожалуйста, попробуйте ниже скрипт VBA.

Поджирный текст ()
Dim xRng как диапазон, xCell как диапазон
Dim xNum As Long, xCount As Long
Dim I до тех пор, J до тех пор, пока
Тусклый xArr
Дим xArrChr10
On Error Resume Next
Установите xRng = Application.InputBox («Пожалуйста, выберите диапазон:», «Kutools для Excel», Selection.Address, , , , , 8)
Если xRng ничего не значит, выйдите из Sub
Для каждой xCell в xRng
хЧисл = 0
хСчетчик = 0
xArrChr10 = Разделить (xCell.Value, Chr (10))
Для I = 0 до UBound (xArrChr10)
xArr = Разделить (xArrChr10 (I))
Для J = 0 до UBound(xArr)
Если xArr(J) <> "" Тогда
xCount = xCount + 1
Если xCount > 3, то выход для
End If
xNum = xNum + Len (xArr (J)) + 1
Далее
Далее
xCell.Characters(1, xNum).Font.Bold = Истина
Далее
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, как насчет того, чтобы первые две строки были жирными?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня довольно много строк в ячейке. Я хочу сделать 5-ю строку полужирным шрифтом и курсивом в ячейке. Приведенный ниже код создает только первую строку. Вы можете помочь

Под жирным шрифтом ()


Dim r как диапазон, c как диапазон
Dim ws В качестве рабочего листа

Set ws = ActiveSheet
Установите r = ws.Range("Y:Y")
Для каждого c In r
С с
.Font.bold = Ложь
.Значение = .Текст
.Characters(1, InStr(.Text, vbLf) - 1).Font.bold = True
Конец с

Следующий c


End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет. У меня есть много ячеек, содержащих несколько строк, которые были разделены Alt+Enter. Я хотел бы выделить жирным шрифтом и изменить цвет первого слова каждой строки. Можете ли вы помочь, пожалуйста?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL