Статус выполнения макроса

Guest Гость	#1 22.05.2012 17:09:43 Можно ли сделать так, чтобы при запуске макроса открывалось окошко с текстовым полем, а в него выводить текст, который заранее вставить в тело макроса, чтобы понимать, какая часть макроса выполняется

Hugo Пользователь Сообщений: 26328 Регистрация: 22.12.2012	#2 22.05.2012 17:13:18 Есть стандартный простой путь - почитайте про Application.StatusBar

Guest Гость	#3 22.05.2012 17:39:51 Статус бар - это не столь информативно

Guest Гость	#4 22.05.2012 17:50:10 Вот я создал юзерформ и вставил туда тексбокс. Как из макроса вывести эту юзерформу и в текстбокс добавлять текст?

Guest Гость	#5 22.05.2012 19:06:35 Sub Macro3() UserForm1.Show UserForm1.TextBox1.Text = "Your Message" End Sub Не работает

Hugo Пользователь Сообщений: 26328 Регистрация: 22.12.2012	#6 22.05.2012 19:51:57 Sub Macro3() UserForm1.Show 0 For i = 1 To 1000 UserForm1.Repaint UserForm1.TextBox1.Text = "Your Message " & i Next End Sub И заметьте - как долго тянется цикл...

Hugo

Пользователь

Сообщений: 26328 Регистрация: 22.12.2012

22.05.2012 19:59:56

Хотя вот так вполне приемлимо.
А Label можно и по феншую нарисовать :)

Sub Macro3()
UserForm1.Show 0
UserForm1.Label1.Caption = "Stage 1 "
UserForm1.Repaint
For i = 1 To 100000000
Next

UserForm1.Label1.Caption = "Stage 2 "
UserForm1.Repaint
For i = 1 To 100000000
Next

UserForm1.Repaint
UserForm1.Label1.Caption = "End Of All"
End Sub

Hugo Пользователь Сообщений: 26328 Регистрация: 22.12.2012	#8 22.05.2012 20:02:02 Сам как-то не по-феншую сделал... Sub Macro3() With UserForm1 .Show 0 .Label1.Caption = "Stage 1 " .Repaint For i = 1 To 100000000 Next .Label1.Caption = "Stage 2 " .Repaint For i = 1 To 100000000 Next .Repaint .Label1.Caption = "End Of All" End With End Sub

Guest Гость	#9 22.05.2012 20:14:34 А как в несколько строк выводить все стадии подряд?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#10 22.05.2012 20:40:06 А поискать в интернете религия не позволяет? http://excelvba.ru/tools/ProgressIndicator Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Hugo Пользователь Сообщений: 26328 Регистрация: 22.12.2012	#11 22.05.2012 20:44:15 Можно нарисовать несколько Лабел. Можно в одном дополнять текст с переводом строки: .Label1.Caption = "Stage 1" & vbNewLine & "Stage 2" Игорь - сделанное своими руками приятнее :)

Читают тему