Developing.ru

Есть лист excel, который нужно перенести на другую форму,к примеру:
Есть форма userform2. На ней есть только textbox1.
Как прописать заполнение textbox1 таким образом, что бы все строки на листе proverka, попали на форму.

каждое новая строка на textbox1. должна быть ровна значению следующей ячейки на листе proverka.

На листе На новой форме Userform2
proverka К поле textbox1

(A1) |Проверка | --> Проверка
(A2) |1 |--> 1
(A3) |2 | --> 2
(A4) |3 |--> 3
(A5) |4 |--> 4
(A6) |5 |--> 5

количество значений на листе Proverka может быть разным.

kuznetsovSergey писал(а): Как прописать заполнение textbox1 таким образом, что бы все строки на листе proverka, попали на форму.
каждое новая строка на textbox1. должна быть ровна значению следующей ячейки на листе proverka.

если ячейка пустая то пропускает значение

спасибо ) правда я кода не нашёл как вы это сделали )

kuznetsovSergey писал(а):спасибо ) правда я кода не нашёл как вы это сделали )

Для текст бокса задал свойства

Код: Выделить всё

TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical ' или  2
TextBox1.SelectionMargin = True

В Юзер форме поместил код

Код: Выделить всё

Private Sub UserForm_Initialize()
Dim k As Long
Dim n As Integer

With [Лист1]' можно поставить ActiveSheets 

k = .Cells(Rows.Count, 1).End(xlUp).Row

 TextBox1.Value = .Cells(1, 1)


For n = 2 To k
If Not IsEmpty(.Cells(n, 1)) Then

TextBox1.Value = TextBox1.Value & Chr(10) & .Cells(n, 1)
End If

Next

End With
End Sub

С уважением...

Developing.ru

Заполнение TextBox построчно

Заполнение TextBox построчно

Re: Заполнение TextBox построчно

Re: Заполнение TextBox построчно

Re: Заполнение TextBox построчно