Как объединить тексты из нескольких ячеек в текстовое поле в Excel?
Вам может быть легко объединить тексты из нескольких ячеек в новую ячейку с помощью формулы. Но знаете ли вы, как объединить несколько значений ячеек в текстовое поле (элемент управления ActiveX)? Собственно, метод, описанный в этой статье, может помочь вам в этом.
Объедините тексты из нескольких ячеек в текстовое поле с кодом VBA
Объедините тексты из нескольких ячеек в текстовое поле с кодом VBA
Приведенный ниже метод может помочь вам объединить тексты из нескольких ячеек в текстовое поле в Excel.
1. На листе, который вы хотите объединить несколько ячеек, вставьте текстовое поле, щелкнув Застройщик > Вставить > Текстовое поле (элемент управления ActiveX). Смотрите скриншот:
2. Затем нажмите Застройщик > Вставить > Командная кнопка (элемент управления ActiveX) чтобы вставить командную кнопку в рабочий лист.
3. Щелкните правой кнопкой мыши вставленную кнопку команды, затем выберите Просмотреть код из контекстного меню. Смотрите скриншот:
4. в Microsoft Visual Basic для приложений окна, замените исходный код на приведенный ниже код VBA.
Код VBA: объединение текстов из нескольких ячеек в текстовое поле
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End Sub
Внимание: CommandButton1 - это имя вставленной командной кнопки. Пожалуйста, измените его в зависимости от ваших потребностей.
5. Выключите режим дизайна, нажав Застройщик > Режим проектирования.
6. Выберите ячейки, необходимые для объединения текстов в текстовое поле, затем нажмите кнопку Command. Затем содержимое всех выбранных ячеек сразу объединяется в текстовое поле, как показано ниже.
Статьи по теме:
- Как автоматически выбрать текст текстового поля, когда он выбран в Excel?
- Как автозаполнить текстовое поле при вводе в Excel?
- Как очистить содержимое текстового поля при нажатии в Excel?
- Как отключить редактирование в текстовом поле, чтобы пользователь не вводил данные в Excel?
- Hкак форматировать текстовое поле в процентах в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!