Скопировать и вставить содержимое из текстового поля в диапазон ячеек рабочего листа?

Я работаю над проектом VBA для автоматизации инструмента Excel для отслеживания запросов службы поддержки. Я хочу, чтобы после нажатия кнопки команды копировать содержимое из текстового поля в другую строку рабочего листа. Если я повторю задачу, содержимое текстового поля следует сохранить в следующей пустой ячейке той же строки.

Я использовал этот макрос:

Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox1.Copy 'TextBox2.Copy 'TextBox3.Copy Range("A2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True End Sub 

Вам действительно нужна только одна строка кода в вашем суб:

 Private Sub CommandButton1_Click() Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text End Sub 

Даже если вы этого не говорите, похоже, вы хотите, чтобы текстовое поле также очищалось. Если это так, добавьте TextBox1.Text = "" одну строку до End Sub .

  • Размер текста Excel / PowerPoint после сжатия
  • Как сделать текстовое поле ActiveX только для чтения, но прокручиваемым в Excel 2013?
  • Копирование / управление форматированным текстом в текстовых блоках в Excel 2013 с использованием VBA
  • Excel Noob Скопировать ячейку Excel в текстовое поле HTML
  • Дублируйте то, что находится в текстовом поле в других текстовых блоках на других листах
  • Удалить строку из текстового поля, форм и т. Д., Которые могут быть сгруппированы
  • Добавить прослушиватель событий в текстовое поле Excel (потерять фокус)
  • Получение текста из хеш-таблицы текстовых полей
  • Зацикливание через файлы Txt с использованием проблемы VBA - DIR ()
  • Текстовое поле Excel ActiveX - количество символов или регистр изменений
  • Текстовое поле VBA на числовое значение
  • Давайте будем гением компьютера.