ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA , EXCEL
9 сообщений из 9, страница 1 из 1
VBA , EXCEL
    #32621024
Beginner_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beginner_1
Гость
На форме ( диалоговом окне ) имеется
9 строк * 10 колонок состоящих из контролов типа
TextBox. Имена этих полей, например, TextBox147
TextBox148 , TextBox144 номер - суффикс ( 144 например)
строго последовательно не увеличивается - это я предварительно
указываю, может быть надо знать )
Что требуется? -

Код: plaintext
1.
2.
3.
4.
как программно
все  9  строк скопировать на "Лист1" in Excel в конец
после последней строки базы данных - столбцы "B:L"
Неужели код должен состоять из  9  *  10  =  90  строк
вида  Trim(TextBox147.Text)  ?

СПАСИБО
...
Рейтинг: 0 / 0
26.07.2004, 12:59
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621032
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
обход семейства controls объекта userform с дальнейшей проверкой typename.
...
Рейтинг: 0 / 0
26.07.2004, 13:01
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621097
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
> Beginner_1 , ты регистрироваться будешь ??? или в "октябрятах" так и будешь ходить !!!
ИМХО : я с недоверием отношусь к постоянным гостям, уж так , извините меня...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
26.07.2004, 13:24
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621197
Lozy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lozy
Гость
Мне интересно
А как идет последовательность семейства на Control на форме ?
Application ...
т.е как добраться до TextBox
...
Рейтинг: 0 / 0
26.07.2004, 13:59
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621239
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Вот примерчик ...
/topic/75600&hl=controls+textbox

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
26.07.2004, 14:13
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621248
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Sub bla()
Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
MsgBox (" Бла!!! ")
...пехай хрень ....
End If
Next

End Sub

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
26.07.2004, 14:17
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621521
Beginner_2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beginner_2
Гость
Код: plaintext
1.
2.
> Beginner_1 , ты регистрироваться будешь ??? или в "октябрятах" так и будешь ходить !!!
ИМХО : я с недоверием отношусь к постоянным гостям, уж так , извините меня...
Stepler


Зарегестрировался, не знаю , правильно ли
...
Рейтинг: 0 / 0
26.07.2004, 15:49
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621589
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yanis
Участник
Сне-гу-роч-ка!
Покажись!
...
Рейтинг: 0 / 0
26.07.2004, 16:13
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32621779
Beginner_2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beginner_2
Гость
Код: plaintext
1.
Сне-гу-роч-ка!
Покажись!

Начальство достало - заставляет переходить
из Visual C++ 6.0 на VBA - поэтому я так много спрашиваю,
СПАСИБО ВСЕМ, кто помогает.Кушать хочется поэтому приходится
пока терпеть.

Присланный Вами код
Dim ctrl As Control
Код: plaintext
1.
2.
3.
4.
5.
    For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
        ctrl.Text = "Neapol"  '  vbNullString
        '+ctrl.Text = ""
    End If
    Next

ПРАВИЛЬНЫЙ.

А как же из этих строк заполнить
9 строк в "Лист1" ? Каждій день после последней строки
надо будет добавлять очередніх 9 строк. А єто значит, что надо будет поставить на новую последнюю строку - єто позже, а сейчас надо все
9 строк записать на "Лист1". Если 90 строк кода, то неэфективно.
...
Рейтинг: 0 / 0
26.07.2004, 17:28
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA , EXCEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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