Как выгрузить диапазон ячеек в textbox (vba excel)?

Узнай цену своей работы

Формулировка задачи:

Такая проблема: с одной ячейкой работает без проблем, заносит ее содержимое в textbox
Листинг программы
  1. userform1.textbox1.text = Range("'С2").Value
Но мне нужно ни одну ячейку, а все заполненные в данном столбце, и вот уже это выдает всякие ошибки:
Листинг программы
  1. UserForm1.TextBox1.Text =Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
Пробовал также:
Листинг программы
  1. Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Selection
  2. Selection.Copy
  3. UserForm1.TextBox1.Paste
- и все вроде бы получилось, все заполненные ячейки столбца попали в textbox, если бы не кавычки, которые вставляются автоматом во всем тексте(видимо перед и после каждой занесенной ячейки). Вообще эта проблема обнаруживается, даже если скопировать и вставить в обычный блокнот, хотя в word вставляется нормально.

Решение задачи: «Как выгрузить диапазон ячеек в textbox (vba excel)?»

textual
Листинг программы
  1. Private Sub UserForm_Initialize()
  2.     TextBox1.MultiLine = True 'Можно установить вручную
  3.    TextBox1.Text = Join(Application.Transpose(Range("C2", Cells(Rows.Count, 3).End(xlUp))), vbCr)
  4. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут