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

@undead92 · Регистрация: 18.11.2013

Author24 — интернет-сервис помощи студентам

Такая проблема: с одной ячейкой работает без проблем, заносит ее содержимое в textbox

Visual Basic

1	userform1.textbox1.text = Range("'С2").Value

Но мне нужно ни одну ячейку, а все заполненные в данном столбце, и вот уже это выдает всякие ошибки:

Visual Basic

1	UserForm1.TextBox1.Text =Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value

Пробовал также:

Visual Basic

1
2
3

Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Selection
Selection.Copy
 UserForm1.TextBox1.Paste

- и все вроде бы получилось, все заполненные ячейки столбца попали в textbox, если бы не кавычки, которые вставляются автоматом во всем тексте(видимо перед и после каждой занесенной ячейки). Вообще эта проблема обнаруживается, даже если скопировать и вставить в обычный блокнот, хотя в word вставляется нормально.

@pashulka · 02.08.2016, 22:25

Если не хотите использовать ListBox, то :

Visual Basic

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

@undead92 · 03.08.2016, 08:25 **[ТС]**

Большое спасибо, все получилось

@undead92 1 / 1 / 0 Регистрация: 18.11.2013 Сообщений: 48
	03.08.2016, 08:25 [ТС]	3
	Большое спасибо, все получилось 0

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

Решение