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

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

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

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

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

Спасибо.

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

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

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

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

Про Намер КПП, ошибка видимо надо Номер КПП в самом файле Экселя, столбик G
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394544
Фотография 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
Определение данных формы и вывод их на печать.
    #37394545
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и еще отдельный вопрос о том, что это за программа будет в конечном итоге.

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

Shocker.ProСдается мне, пока еще толком ничего не сделано и толком ничего не изучено, лучше сделать ее в Аксессе
зря сдается, в Access она уже создана на 60%, большую помощь оказывает один из модераторов того форума.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394556
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G.зря сдается, в Access она уже создана на 60%, большую помощь оказывает один из модераторов того форума. тогда зачем вот эти все формы и отчеты в экселе? В аксессе достаточно мощные средства печати и формы не хуже.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394561
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, может он Аксцесс как и я, как огня боится, стесняется сказать
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394563
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Proтогда зачем вот эти все формы и отчеты в экселе?
для общего развития, так сказать самообразования.
База в Access, вернее её создание продвигается очень медленно,
наверное вызову у кого-то улыбку, у кого раздражение, если скажу, более 2-х лет.
Да, медленно, но хочу сам до всего дойти, проще конечно заплатить и сё,
но от этого в голове ни чего не прибавится.
Надеюсь, Shocker.Pro, Вы меня поняли.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394564
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрюможет он Аксцесс как и я, как огня боится
нет, с ним мне интереснее работать, но по долгу службы приходится работать с Excel
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394566
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G., ладно это всё лирика, что у Вас получилось, выложите пжл код, есть проблемы??
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394571
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,
Да собственно ни чего не получилось.
А файл был в первом топике, но с учетом Ваших замечаний (моих ичипяток), вот.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394574
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G., не понял юмора, Шокер же сегодня, 15:08 уже всё подсказал
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394580
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще не все... но я задал вопросы и не получил ответа....
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394585
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, на какой вопрос я не ответил?
Shocker.ProПочему для второго случая не устраивает использование RowSource?
может на этот?
если да, то мне требовалось удалить все повторяющиеся значения списка.
а как по другому я не знаю.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394587
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Proданные нужно взять из кода или все-таки с листа ?
если это, то с листа
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394592
Фотография 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
Определение данных формы и вывод их на печать.
    #37394601
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
Определение данных формы и вывод их на печать.
    #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
Определение данных формы и вывод их на печать.
    #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
Определение данных формы и вывод их на печать.
    #37394609
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
уточнение, от 4х надо:
Код: 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 =  4  To Последняя_заполненная_строка_в_столбце

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

Next q

End Sub
Окейно???
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394615
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а кстати, свойство RowSourse в Ворде существует???
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394618
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BasileКод несложный, с комментариями, посмотри на досуге -- может пригодится
посмотрел бы, но наверное кто-то руку приложил , жалко.
Все равно спасибо.
Shocker.Pro сделал как Вы сказали, но теперь не знаю как удалить все повторяющиеся значения списка.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394620
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G., опа на, сколько пропустил
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394622
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BasileВ заключение, в прикреплённом файле я реализовал то, о чём говорил в начале (по поводу именованных областей и динамического обновления некоторых полей на форме). Код несложный, с комментариями, посмотри на досуге -- может пригодится.

Где это всё смотреть надо??
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394624
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G.Shocker.Pro сделал как Вы сказали, но теперь не знаю как удалить все повторяющиеся значения списка.

Стоп-стоп-стоп.
Ну надо же тогда сначала начинать, вы пытаетесь делать с конца, а надо было ставить вопрос - как получить неповторяющийся список, а потом уже - как загрузить его в комбобокс.
Я считал, что у вас УЖЕ ЕСТЬ список с неповторяющимися значениями, поэтому предложил цикл, иначе было бы проще как предложил Бэзил:
txtGrz.List = RNumber.Value
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394625
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович ЭндрюЧего там далее??
В смысле?
Я в своём сообщении предлагаю несколько иной подход. Предлагаю задать имена областям в таблице. Посмотри мой код в прикреплённом файле из прошлого сообщения...
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394626
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G.Требуется на форме, комбобокс txtGrz (с выпадающим списком) чтобы данные брались не из свойств RowSourse,
а программно из кода, наверное с применением массива.вот так изначально выглядел вопрос.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394630
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
G.посмотрел бы, но наверное кто-то руку приложил , жалко.
Все равно спасибо.

Не понял на счёт руки???
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394631
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, Вы не поняли, я имел ввиду под неповторяющимися данными пустые, если ставлю диапазон с ячейки А4 по А например 3000.
А так в списке, который имеется, именно не равно нулю, нет повторяющихся данных
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394633
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, там с этим: txtGrz - засада, нет его
Этим: txtGrz.List = RNumber.Value как пользоваться????
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394634
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BasileG.посмотрел бы, но наверное кто-то руку приложил , жалко.
Все равно спасибо.

Не понял на счёт руки???
так файла нет.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394635
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
G.так файла нет.
...и правда нет :)
Вот...
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394636
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G., с ячейки А4 по А например 3000.
А проверка на последнюю запись??
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394638
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,
извини, файл не приаттачил...
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394640
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Basile, вот и развязка
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394642
G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем, а Shocker.Pro спасибо за терпение.
Буду разбираться, хотя там столько пояснений, так сказать на блюдечке с голубой каемочкой.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394646
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
G.Shocker.Pro, Вы не поняли, я имел ввиду под неповторяющимися данными пустыена будущее тренируйтесь. Не надо под одним формальным определением ИМЕТЬ ВВИДУ другое формальное определение. Вас не поймут не только коллеги, но и компьютер - программирование требует четкости в мыслях и их изложении. Можно все было решить гораздо раньше (в чтом числе и через RowSource, который вы отвергли).

Считайте дружеским советом
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394652
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Basile, так у Вас же и пустые ячейки попадают в ЛистБокс
Как сделать, чтобы они мимо???
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394656
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович ЭндрюBasile, так у Вас же и пустые ячейки попадают в ЛистБокс
Как сделать, чтобы они мимо???
Почему попадают пустые? Пустые могут попасть, если в записи не указать номер автомобиля... Но, я так понимаю, госномер -- это обязательная запись в базе.
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394726
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Basile, неа, спецом гос. номер убираю, проверяю, в ЛистБоксе с пробелом попадает
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394837
Basile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович ЭндрюBasile, неа, спецом гос. номер убираю, проверяю, в ЛистБоксе с пробелом попадает
Может мы друг друга не понимаем :) Но ещё раз повторюсь. На мой взгляд поле гос. номер в данной базе -- это типа уникального идентификатора. И если это поле пустое, то, на мой взгляд, запись теряет свой смысл. И, следовательно, в области "base!RNumber" пустых полей быть не должно. Конечно, можно предположить абсурдную ситуацию, когда это поле не заполнено и в ComboBox такие поля не показывать. А смысл такой записи, которую пользователь в форме просто не сможет выбрать?
...
Рейтинг: 0 / 0
Определение данных формы и вывод их на печать.
    #37394856
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Basile, всё правильно Вы говорите, поясню, это вопрос не мой, значит я спрашиваю попутно обо всём до прихода сознания, тем более Эксель, в нём я слабоват, если это можно сделать, чтобы пустые не попадали, то есть коротко сделать, 1-2 строками кода а не циклом, тогда подскажите, поучусь

Знаю по себе сделать прогу это одно, а против идиотов кучу проверок это совсем другое
...
Рейтинг: 0 / 0
48 сообщений из 48, показаны все 2 страниц
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Определение данных формы и вывод их на печать.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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