Обновление информации в TextBox при изменении значения переменной

@denyacheerful · Регистрация: 28.06.2009

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

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

Visual Basic

For i = 1 To 65536 '.Range('A4').End(xlDown).Row
 If Sheets(3).Cells(i, 1) = 'значение' Then
        n = Trim(Sheets(3).Cells(i, 2).Value)
        m = Trim(Sheets(3).Cells(i + 3, 7).Value)
        k = Trim(Sheets(3).Cells(i + 3, 9).Value)
               
  End If
UserForm1.TextBox2.Text = n
UserForm1.TextBox2.Text = m
UserForm1.TextBox2.Text = k
UserForm1.TextBox2.Visible = True    
Next i

Показывает в текстбоксе только последнее значение k после завершения цикла. По ходу цикла значение текстбокса пустое ( хотя если прервать выполнение в текстбоксе значение появляется, но только в первой строке, т.е. не скроллрируется вниз)
Помогите пожалуйста!

@Labuda · 05.11.2009, 10:30

UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & CStr(n) & Chr(10) & CStr(m) & Chr(10) & CStr(k) & Chr(10)
Для правильной работы поставь end if после этого выражения, а лучше не морочь себе голову и используй listbox и его метод additem

@denyacheerful · 05.11.2009, 10:35 **[ТС]**

покажи пример листбокса пожалуйста

@Labuda · 05.11.2009, 10:44

ну наверное так:

Visual Basic

1
2
3

listbox1.additem n
listbox1.additem m
listbox1.additem k

Когда нужно, для очистки листбокса поставь listbox1.clear

@denyacheerful · 05.11.2009, 10:50 **[ТС]**

спасибо

@denyacheerful · 05.11.2009, 11:12 **[ТС]**

Visual Basic

listbox1.additem n
listbox1.additem m    на такое говорит - 'Object required'
listbox1.additem k
 
userform1.listbox1.additem n
userform1.listbox1.additem m   
userform1.listbox1.additem k

а на такое - 'Expected Function or variable'

@Labuda · 05.11.2009, 11:19

Вышли код полностью labuda@ukr.net или #289910319

@denyacheerful · 05.11.2009, 11:24 **[ТС]**

разобрался с additem
но все равно не видно обновления в листбоксе во время работы цикла.
кнопка для запуска макроса остается нажатой

09.11.2009, 12:54

Немного непонятно, но у меня все работает.

Visual Basic

UserForm1.TextBox2 = t
t = t & n
t = t & m
t = t & k
UserForm1.TextBox2.Text = t

Чтобы появился скроллинг, нужно в свойстве Scrollbars у текстбокса выбрать режим вертикального скроллинга и WordWrap сделать True. Только как ты собираешься отделять текст или тебе так и надо кучу-малу?

@denyacheerful · 10.11.2009, 04:01 **[ТС]**

спасибо, я уже разобрался, теперь работает!

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	05.11.2009, 10:30	2
	UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & CStr(n) & Chr(10) & CStr(m) & Chr(10) & CStr(k) & Chr(10) Для правильной работы поставь end if после этого выражения, а лучше не морочь себе голову и используй listbox и его метод additem 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	05.11.2009, 10:35 [ТС]	3
	покажи пример листбокса пожалуйста 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	05.11.2009, 10:50 [ТС]	5
	спасибо 0

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	05.11.2009, 11:19	7
	Вышли код полностью labuda@ukr.net или #289910319 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	05.11.2009, 11:24 [ТС]	8
	разобрался с additem но все равно не видно обновления в листбоксе во время работы цикла. кнопка для запуска макроса остается нажатой 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	10.11.2009, 04:01 [ТС]	10
	спасибо, я уже разобрался, теперь работает! 0