Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / TextBox в цикле / 7 сообщений из 7, страница 1 из 1
03.08.2007, 12:21:06
    #34703659
GioCH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Привет Всем!!!
Подскажите как сделать чтобы в Textboxe-e в цикле For - next выводить данные? Спасибо!
...
Рейтинг: 0 / 0
03.08.2007, 12:24:18
    #34703674
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
например так:

Код: plaintext
1.
2.
3.
4.
5.
Sub test()
    Dim i As Long
    For i =  1  To  10 
        UserForm1.Controls("TextBox" & i) = i
    Next i
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
03.08.2007, 13:02:03
    #34703876
GoiCH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Спасибо за ответ,
но когда для просмотра данных в макросе ставлю UserForm1.Show то выводится последное значеные - 10, а когда UserForm1.Show переставыл в цикле то тогда для просмотра след. резултата прихоится нажимать кнопку X на форме :(
а надо чтобы данные выводились в TextBox-е от 1 до 10.
...
Рейтинг: 0 / 0
03.08.2007, 13:09:54
    #34703914
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Не вижу связи между тем, что написал я и тем, о чем говоришь ты :-( Может повесишь код?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
04.08.2007, 07:24:30
    #34705352
GioCH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Код для теста я взял из твоего примера, тектбоксе выдаётся конечное значеные цикла т.е. 10 и
только если после цикла вставлю UserForm1.Show, а если UserForm1.Show находится в теле цикла то для просмотра очеедного резултата надо нажимать кнопку Х на форме, моя задача в том чтобы в текстбоксе в цикле выводились -
1
2
3
4
.
.
10
А так Спасибо тебе за помощь!!!!
...
Рейтинг: 0 / 0
04.08.2007, 10:50:14
    #34705406
Infinitiv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Проблема решаема.
Упущено несколько моментов:
1. UserForm1.Controls("TextBox" & i) = i - перебирает TextBox`ы, 10 шт (зачем?)
UserForm1.TextBox1=i ,будет правильнее
2. необходимо UserForm1.Repaint (перерисовка формы) после каждого присвоения значения
3. UserForm1.Show не должно располагаться в одной процедуре с циклом присвоения значений. Поскольку выполнение процедуры последовательное, то до выгрузки формы дальнейший код выполнятся не будет. Надо вызывать форму и заканчивать на этом процедуру, а потом по какому-то событию (кнопка на форме?) уже вызывать процедуру с циклом.

Еще будет проблема со слишком быстрым перебором значений от 1 до 10, потребуется либо таймер задержки, либо какие-то достаточно долгие вычисления в цикле. Попробуйте сначала для примера задать перебор в районе от 1 до 1 000.
...
Рейтинг: 0 / 0
04.08.2007, 20:32:56
    #34705726
GioCH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox в цикле
Спасибо ребята за советы! как я понял текстбокс, листбокс и т.д. не для таких дел, только ввести-вывести значения и выдать окончательный список.
я побробую как infinitiv совнтует поступить.
Ёщо раз спасибо вам огромное!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / TextBox в цикле / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]