Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывод полного текста из Immidiate в TextBox
 
#1
15.12.2016 23:46:38
Доброго времени суток, коллеги!
Есть необходимость разработать интерактивное приложение в самом VBA. Оно простое на просчёт массивов. Однако, столкнулся с некой проблемой которую решить своими силами не могу банально из-за отсутствия знаний оного. Скажу сразу, что код абсолютно рабочий и багов или ошибок при компиляции нет.
Собственно говоря сама проблема:
На изображении №1 со стрелочкой можно увидеть, что выводится конкретно одно значение, а на изображении №2 в самом окне Immediate содержится их куда явнее, чем 1 строка. Собственно говоря каким образом сделать так, чтобы весь текст из Immediate изображения №2 был отоброжен в Textbox изображения №1 ?
Скрытый текст
Изменено: Ризен - 16.12.2016 00:11:42
 
 
 
#2
15.12.2016 23:54:10
Замените строку
Код
UserForm1.TextBox2.Value = F

на строку
Код
TextBox2.Value = TextBox2.Value  & vbnewline &  "X=" & X & ",     F=" & F
Изменено: Игорь - 16.12.2016 00:12:05
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
15.12.2016 23:54:19
Цитата
Ризен написал:
каким образом сделать так, чтобы весь текст из Immediate изображения №2 был отоброжен в Textbox изображения №1
Вместо Debuq.Print используйте TextBox.... и так далее
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
16.12.2016 00:09:23
Не совсем понял логики. Нам нужен вывод самого текст бокса с данными, что из Immidiate. С Вашей стороны конструктива как таковой не увидел. Этот debug не производит вывода на экран никак. Это даже по сути лишняя строка, что можно убрать из кода и всё будет ок.

Цитата
Игорь написал: TextBox2.Value = TextBox2.Value  & vbnewline &  "X=" & X & ",     F=" & F
Он не выводит т.к., обязательно должны быть Userform1. Вариант нечто подобного уже пробовал, но выводит он по прежнему исключительно одно значение x и f.
Мой вариант был: UserForm1.TextBox2.Value =  vbNewLine & "X=" & X & ", F=" & F
З.Ы. Multiline = Enable
 
 
 
#5
16.12.2016 00:30:55
Код
UserForm1.TextBox2.Value = UserForm1.TextBox2.Value & vbLf & "X=" & X & ", F=" & F
p.s. в таких результатах лучше использовать ListBox
 
 
 
#6
16.12.2016 00:33:56
Вот это помогло. Работает. Спасибо огромное.

Можно подробнее как это лучше всего сделать с ListBox?
 
 
 
#7
16.12.2016 00:55:28
Цитата
Ризен написал: С Вашей стороны конструктива как таковой не увидел
Ризен, если не поняли, это совсем необязательно, что нет конструктива. Зачем такая категоричность?
P.S. Констурктив - это мужской род )
 
 
 
Страницы: 1
Читают тему
Наверх