ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / combox.vba
14 сообщений из 14, страница 1 из 1
combox.vba
    #39120349
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
Здравствуйте. У меня такая проблема: имеется много textbox-ов, которые нужно будет вывести на рабочий лист екселя. Как можно автоматизировать этот процесс? Потому что каждый раз писать Имя=TextBox1.Text а потом присваивать ячейку (nextrow,1)=имя ....и так много раз -очень долго.

Модератор: Тема перенесена из форума "Работа".
...
Рейтинг: 0 / 0
04.12.2015, 12:16
| Ответить | Цитировать | Написать  
combox.vba
    #39120502
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
ЕкатеринаКатя,
А почему тупо не экспортировать в Ёксель запрос?
...
Рейтинг: 0 / 0
04.12.2015, 13:40
| Ответить | Цитировать | Написать  
combox.vba
    #39120509
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
ЕкатеринаКатя , экспорт таблицы, запроса, etc?
Примеров много. К примеру так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim rs As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
xlApp.WindowState = -4137

Set rs = CurrentDb.OpenRecordset("t1") 't1-таблица/запрос. Или,с текущей формы: rs=Me.RecordsetClone
If Not rs.EOF Then 
rs.MoveLast: rs.MoveFirst
With xlSheet
     .Range("A1").CopyFromRecordset rs
End With
End If
...
Рейтинг: 0 / 0
04.12.2015, 13:45
| Ответить | Цитировать | Написать  
combox.vba
    #39120519
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
тынц
...
Рейтинг: 0 / 0
04.12.2015, 13:49
| Ответить | Цитировать | Написать  
combox.vba
    #39121016
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
Agapov_stas, не очень понимаю куда это вставлять и что из этого получится
...
Рейтинг: 0 / 0
04.12.2015, 19:48
| Ответить | Цитировать | Написать  
combox.vba
    #39121044
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
Agapov_stas, у меня userform есть, там расположены эти textbox. При запуске userform я вписываю в textbox какие-то значения. В итоге, эти значения должны выводиться на рабочий лист
...
Рейтинг: 0 / 0
04.12.2015, 20:39
| Ответить | Цитировать | Написать  
combox.vba
    #39121052
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
ЕкатеринаКатя, похоже, что вы работаете только с Excel, без Access. Может быть топик перенести еще раз в в подфорум Microsoft Office или VBA? Дайте знать, я перенесу
...
Рейтинг: 0 / 0
04.12.2015, 20:48
| Ответить | Цитировать | Написать  
combox.vba
    #39121057
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
mds_world, перенесите

Модератор: Тема перенесена из форума "Microsoft Access".
...
Рейтинг: 0 / 0
04.12.2015, 21:03
| Ответить | Цитировать | Написать  
combox.vba
    #39121114
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
В массив их!
И в цикле обработать
В принципе можно и без массива. Но всё рано в цикле

Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub CommandButton1_Click()
    Dim I
    For I = 1 To 8
        Me.Controls("TextBox" & I) = I
    Next I
End Sub


Адреса ячеек куда надо заносить данные из текстбоксов можно указать в Tag текстбокса
...
Рейтинг: 0 / 0
04.12.2015, 22:58
| Ответить | Цитировать | Написать  
combox.vba
    #39121141
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
alex77755, У меня будет постоянно пополняющийся список, т.е. я следующую пустую строку определяю так: NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1 и адреса ячеек тогда у меня будут выглядеть вот так :.Cells(NextRow, 2).Value = имя (в tag я так не напишу). Это тоже как-то циклом нужно сделать?
...
Рейтинг: 0 / 0
04.12.2015, 23:39
| Ответить | Цитировать | Написать  
combox.vba
    #39121153
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Строку определить как первую пустую, а номер колонки можно записать в Tag
Если я правильно понял: все значения будут дописываться в одну строчку таблицы?
...
Рейтинг: 0 / 0
04.12.2015, 23:59
| Ответить | Цитировать | Написать  
combox.vba
    #39121157
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Если правильно пронумеровать текстбоксы, то можно и без Tag обойтись

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub CommandButton2_Click()
        Dim lr, i
        lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 1 To 10
            Cells(lr, i) = Me.Controls("TextBox" & i)
        Next i
End Sub


Но если колонки не попорядку, то нужно будет применить другой метод перебора контролов или перехватывать ошибку и пропускать недостающие номера
...
Рейтинг: 0 / 0
05.12.2015, 00:07
| Ответить | Цитировать | Написать  
combox.vba
    #39121417
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
alex77755, нет, каждый раз вызывая userfom значения будут писаться в другую строку
...
Рейтинг: 0 / 0
05.12.2015, 18:19
| Ответить | Цитировать | Написать  
combox.vba
    #39121424
ЕкатеринаКатя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕкатеринаКатя
Гость
alex77755, вот пример моей одной записи
...
Рейтинг: 0 / 0
05.12.2015, 18:31
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / combox.vba
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39121424&tid=2155707]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 310ms
total:  491ms
созд. / загр.: 491ms
x
x
Закрыть


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