Как выгрузить диапазон ячеек в textbox (vba excel)?
Формулировка задачи:
Такая проблема: с одной ячейкой работает без проблем, заносит ее содержимое в textbox
Но мне нужно ни одну ячейку, а все заполненные в данном столбце, и вот уже это выдает всякие ошибки:
Пробовал также:
- и все вроде бы получилось, все заполненные ячейки столбца попали в textbox, если бы не кавычки, которые вставляются автоматом во всем тексте(видимо перед и после каждой занесенной ячейки). Вообще эта проблема обнаруживается, даже если скопировать и вставить в обычный блокнот, хотя в word вставляется нормально.
Листинг программы
- userform1.textbox1.text = Range("'С2").Value
Листинг программы
- UserForm1.TextBox1.Text =Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
Листинг программы
- Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Selection
- Selection.Copy
- UserForm1.TextBox1.Paste
Решение задачи: «Как выгрузить диапазон ячеек в textbox (vba excel)?»
textual
Листинг программы
- Private Sub UserForm_Initialize()
- TextBox1.MultiLine = True 'Можно установить вручную
- TextBox1.Text = Join(Application.Transpose(Range("C2", Cells(Rows.Count, 3).End(xlUp))), vbCr)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д