ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Определение данных формы и вывод их на печать.
25 сообщений из 48, страница 1 из 2
  1  все
Определение данных формы и вывод их на печать.
    #37394494
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Всем добрый день.
W7, Excel 2003

Помогите в очередной раз.

Требуется на форме, комбобокс txtGrz (с выпадающим списком) чтобы данные брались не из свойств RowSourse,
а программно из кода, наверное с применением массива.

Ну и соответственно при выборе данных из выпадающего списка, данные в остальные поля формы txt должны попасть
сами в зависимости какой госномер был выбран (из этой же строки листа base )

А в листе print данные появляются, те которые на данный момент в форме, поменялось в форме,
значит поменяется и на листе print .

Спасибо.

P.S. Не подумайте, я не ленивый, только не могу найти где почитать толковой объяснение таких действий,
все попадается поверхностное, так сказать, для профессионалов, а для чайников только создание форм на листе Excel.
...
Рейтинг: 0 / 0
14.08.2011, 13:20
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394525
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
G., также можно применить Перенос данных с одной таблицы в другую, SQL - Сикуль
...
Рейтинг: 0 / 0
14.08.2011, 14:25
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394529
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
ещё не понятно, ну залетели все данные в форму, а дальше???, я про то, что кнопки нет
Так как Вы сказали
>А в листе print данные появляются, те которые на данный момент в форме, поменялось в форме, значит поменяется и на листе print.

Или чисто смотреть для удовлетворения, зрительная нирвана??
...
Рейтинг: 0 / 0
14.08.2011, 14:29
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394535
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

Предупреждаю повторно: не понимаешь о чем вопрос - не лезь в топик
...
Рейтинг: 0 / 0
14.08.2011, 14:38
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394536
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Ципихович ЭндрюИли чисто смотреть для удовлетворения, зрительная нирвана??
неа, там будет кнопка, это же пример, для себя я доработаю
лист print - это будет лист выводимый на печать из формы (по нажатию кнопки, которой пока нет)

Ципихович Эндрюещё не понятно, ну залетели все данные в форму, а дальше???
при чем залетать они должны (хорошо бы) динамически, так сказать после изменения данных в поле со списком (без нажатия каких либо кнопок)
...
Рейтинг: 0 / 0
14.08.2011, 14:38
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394537
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
G., Шокер ругается, сейчас он всё решит
от меня только это: там ошибка в файле "Намер КПП"
...
Рейтинг: 0 / 0
14.08.2011, 14:46
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394540
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
при чем я понимаю, что для подстановки данных в комбобокс,
не применяя свойств RowSource, надо зделать такое
Вариант I. (с использ. переменной)
Код: plaintext
1.
2.
3.
Private Sub UserForm_Initialize() 
    iMassiv = Range("A1:C15").Value 
    ComboBox1.List = iMassiv 
End Sub
Вариант I. (без использ. переменной)
Код: plaintext
1.
2.
Private Sub UserForm_Initialize() 
    ComboBox1.List = Range("A1:C15").Value 
End Sub
Вариант II. (с использ. переменной)
Код: plaintext
1.
2.
3.
Private Sub UserForm_Initialize() 
    iAddress = Range("A1:C15").Address 
    ComboBox1.RowSource = iAddress 
End Sub
Вариант II. (без использ. переменной)
Код: plaintext
1.
2.
Private Sub UserForm_Initialize() 
    ComboBox1.RowSource = Range("A1:C15").Address 
End Sub
Но у меня не плучается

Ципихович Эндрюот меня только это: там ошибка в файле "Намер КПП"
не понял?
...
Рейтинг: 0 / 0
14.08.2011, 14:53
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394542
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
G., что не понятно, не лезу, на досуге посмотрите:
копирование данных с листа на лист с преобразованием структуры
' ТЗ: http://www.sql.ru/forum/actualthread.aspx?tid=809349
' используютя объекты ADODB.Connection и ADODB.Recordset

Про Намер КПП, ошибка видимо надо Номер КПП в самом файле Экселя, столбик G
...
Рейтинг: 0 / 0
14.08.2011, 14:57
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394544
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
G.чтобы данные брались не из свойств RowSourse,
а программно из кода два вариант ответа на вопрос:
Код: plaintext
1.
Me.txtGrz.AddItem "первый номер"
Me.txtGrz.AddItem "второй номер"

Код: plaintext
1.
2.
3.
4.
Dim k As Variant, i As Integer
k = Array("первый номер", "второй номер", "третий номер")
For i = LBound(k) To UBound(k)
  Me.txtGrz.AddItem k(i)
Next

но из дальнейших реазмышлений неясно, данные нужно взять из кода или все-таки с листа ? Почему для второго случая не устраивает использование RowSource?
...
Рейтинг: 0 / 0
14.08.2011, 15:08
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394545
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
и еще отдельный вопрос о том, что это за программа будет в конечном итоге.

Сдается мне, пока еще толком ничего не сделано и толком ничего не изучено, лучше сделать ее в Аксессе...
...
Рейтинг: 0 / 0
14.08.2011, 15:11
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394551
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Shocker.Proчто это за программа будет в конечном итоге
обычный рабочая книга по регистрации транспортных средств,
она существует и работает, пытаюсь модернизировать, для удобства.

Shocker.ProСдается мне, пока еще толком ничего не сделано и толком ничего не изучено, лучше сделать ее в Аксессе
зря сдается, в Access она уже создана на 60%, большую помощь оказывает один из модераторов того форума.
...
Рейтинг: 0 / 0
14.08.2011, 15:26
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394556
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
G.зря сдается, в Access она уже создана на 60%, большую помощь оказывает один из модераторов того форума. тогда зачем вот эти все формы и отчеты в экселе? В аксессе достаточно мощные средства печати и формы не хуже.
...
Рейтинг: 0 / 0
14.08.2011, 15:29
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394561
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, может он Аксцесс как и я, как огня боится, стесняется сказать
...
Рейтинг: 0 / 0
14.08.2011, 15:38
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394563
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Shocker.Proтогда зачем вот эти все формы и отчеты в экселе?
для общего развития, так сказать самообразования.
База в Access, вернее её создание продвигается очень медленно,
наверное вызову у кого-то улыбку, у кого раздражение, если скажу, более 2-х лет.
Да, медленно, но хочу сам до всего дойти, проще конечно заплатить и сё,
но от этого в голове ни чего не прибавится.
Надеюсь, Shocker.Pro, Вы меня поняли.
...
Рейтинг: 0 / 0
14.08.2011, 15:41
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394564
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Ципихович Эндрюможет он Аксцесс как и я, как огня боится
нет, с ним мне интереснее работать, но по долгу службы приходится работать с Excel
...
Рейтинг: 0 / 0
14.08.2011, 15:43
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394566
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
G., ладно это всё лирика, что у Вас получилось, выложите пжл код, есть проблемы??
...
Рейтинг: 0 / 0
14.08.2011, 15:45
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394571
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Ципихович Эндрю,
Да собственно ни чего не получилось.
А файл был в первом топике, но с учетом Ваших замечаний (моих ичипяток), вот.
...
Рейтинг: 0 / 0
14.08.2011, 15:53
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394574
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
G., не понял юмора, Шокер же сегодня, 15:08 уже всё подсказал
...
Рейтинг: 0 / 0
14.08.2011, 15:57
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394580
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Еще не все... но я задал вопросы и не получил ответа....
...
Рейтинг: 0 / 0
14.08.2011, 16:03
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394585
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Shocker.Pro, на какой вопрос я не ответил?
Shocker.ProПочему для второго случая не устраивает использование RowSource?
может на этот?
если да, то мне требовалось удалить все повторяющиеся значения списка.
а как по другому я не знаю.
...
Рейтинг: 0 / 0
14.08.2011, 16:09
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394587
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
G.
Участник
Shocker.Proданные нужно взять из кода или все-таки с листа ?
если это, то с листа
...
Рейтинг: 0 / 0
14.08.2011, 16:11
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394592
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну хорошо - вот тут 11116407 я дал подсказку

Ее несложно переделать в
Код: plaintext
1.
2.
3.
Dim i As Integer
For i =  3  To  10 
  Me.txtGrz.AddItem Cells(i,  1 )
Next
Но если и это для вас достаточно сложно, может сначала прочесть какую-нибудь книжку?
...
Рейтинг: 0 / 0
14.08.2011, 16:27
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394601
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Basile
Гость
G.,

Исходя из своего немалого опыта в решении подобных задач, настоятельно рекомендую всем "важным" областям (тем, которые будут обрабатываться в коде) присвоить реальные имена. Например, всю таблицу с базой (исключая заголовки) назвать RBase, колонку с номерами -- RNumber, область для печати -- RPrint. Тогда в коде можно будет определить переменные типа Range и работать с ними, что гораздо облегчит понимание кода и убережёт от опечаток и трудноотслеживаемых ошибок:
Код: plaintext
1.
2.
3.
Dim RBase As Range
Dim RNumber As Range
Dim RPrint As Range
Инициализацию этих переменных можно реализовать в событии активации формы, например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub UserForm_Activate()
    ' Инициализация переменных областей:
    Set RNumber = Range("base!RNumber")
    Set RBase = Range("base!RBase")
    Set RPrint = Range("print!RPrint")
    
    ' Заполняем список ComboBox'а значениями из области номеров
    txtGrz.List = RNumber.Value
End Sub
Можно, конечно, присвоить RowSurce значение "base!RNumber" на этапе разработки, но, на мой взгляд, инициализация в коде надёжнее и удобнее.

Потом, динамическое обновление полей на форме нужно реализовать в событии Change ComboBox'а.
Ну а заполнение данных для печати, на мой взгляд, лучше описать при выходе из формы, тем более, что форма у тебя модальная...
Я бы ещё на твоём месте реализовал добавление, удаление и редактирование данных тоже через UserForms. Тогда ты сможешь таблицу с базой сделать невидимой (xlSheetVeryHidden), чтобы никто руками туда не лазил...
В заключение, в прикреплённом файле я реализовал то, о чём говорил в начале (по поводу именованных областей и динамического обновления некоторых полей на форме). Код несложный, с комментариями, посмотри на досуге -- может пригодится.
...
Рейтинг: 0 / 0
14.08.2011, 16:46
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394603
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Basile, чего-то я инициализию формы в Экселе не нахожу
???
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim Столбец As String
Dim Последняя_заполненная_строка_в_столбце As Long
Столбец = "A"
Последняя_заполненная_строка_в_столбце = Cells(Rows.Count, Столбец).End(xlUp).Row
    
For q =  1  To Последняя_заполненная_строка_в_столбце

Me.txtGrz.AddItem Trim(Worksheets("base").Range("A" & q).Value)

Next q
...
Рейтинг: 0 / 0
14.08.2011, 16:54
| Ответить | Цитировать | Написать  
Определение данных формы и вывод их на печать.
    #37394606
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
нашёл:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub UserForm_Initialize()

Dim Столбец As String
Столбец = "A"

Dim Последняя_заполненная_строка_в_столбце As Long
Последняя_заполненная_строка_в_столбце = Cells(Rows.Count, Столбец).End(xlUp).Row

Dim q As Long

For q =  1  To Последняя_заполненная_строка_в_столбце

Me.txtGrz.AddItem Trim$(Worksheets("base").Range("A" & q).Value)

Next q

End Sub
Чего там далее??
...
Рейтинг: 0 / 0
14.08.2011, 17:00
| Ответить | Цитировать | Написать  
25 сообщений из 48, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Определение данных формы и вывод их на печать.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37394536&tid=2176590]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 164ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 79ms
get tp. blocked users:
 1ms
others: 218ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


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