|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.03.2013, 13:57 | #1 |
Регистрация: 20.03.2013
Сообщений: 8
|
заполнение textbox по данным из combobox
Здравствуйте, подскажите как можно заполнить textbox-ы по данным из combobox-а, т.е. при выборе организации в combobox-е, вставлялись бы в textbox-ы оплата и аванс, а по нажатию кнопки, вновь введенные данные по авансу, сохранялись в этой же строке.
|
31.03.2013, 18:56 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Доплату сами добавите.
Анализ,обработка данных Недорого
|
01.04.2013, 17:41 | #3 |
Регистрация: 20.03.2013
Сообщений: 8
|
Спасибо большое, скажите а возможно сделать чтоб при внесении в textbox Доплата сумму, она суммировалась с textbox Аванс и при нажатии на кнопку данные в таблице менялись конкретно по столбцу Аванс.
|
01.04.2013, 18:13 | #4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Можно
Код:
Анализ,обработка данных Недорого
|
01.04.2013, 19:00 | #5 |
Регистрация: 20.03.2013
Сообщений: 8
|
Спасибо, все работает. Только это был образец(небольшая форма), перенес все в большую - работать не хочет. Поменял столбцы под свои, пробовал переименовать лист из (3) в (База) и обратно. Ничего не получается. Где ошибся? Private Sub Combo()
If ComboBox1.ListIndex = -1 Then Exit Sub With Sheets(3) lr = .Cells(Rows.Count, 3).End(xlUp).Row For I = 1 To lr If .Cells(I, 2) = ComboBox1 Then TextBox1 = .Cells(I, 7) TextBox2 = .Cells(I, 12) End If Next End With End If End Sub Private Sub ComboBox1_Change() If ComboBox1.ListIndex = -1 Then Exit Sub TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 7) TextBox2.Text = ComboBox1.List(ComboBox1.ListIndex, 12) End Sub Private Sub CommandButton1_Click() If ComboBox1.ListIndex = -1 Then Exit Sub Dim Ñòðîêà As Long Ñòðîêà = ComboBox1.List(ComboBox1.ListIndex, 5) Unload Me ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 2) = ComboBox1.Value ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 7) = TextBox1.Text ActiveWorkbook.Worksheets(3).Cells( Ñòðîêà, 12) = CDbl(TextBox2.Text) + CDbl(TextBox3.Text) ActiveWorkbook.Worksheets(3).Select End Sub Private Sub UserForm_Activate() ComboBox1.Clear With Sheets(3) x = .Range("B3:N" & .Cells(Rows.Count, 3).End(xlUp).Row) End With For n = 1 To UBound(x) ComboBox1.AddItem (x(n, 1)) ComboBox1.List(n - 1, 1) = x(n, 2) ComboBox1.List(n - 1, 2) = x(n, 3) ComboBox1.List(n - 1, 3) = x(n, 4) ComboBox1.List(n - 1, 4) = x(n, 5) ComboBox1.List(n - 1, 5) = n + 1 'Ýòî íîìåð ñòðîêè Next End Sub |
01.04.2013, 19:18 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Бубен шамана не помог?
Код:
Анализ,обработка данных Недорого
|
01.04.2013, 19:35 | #7 |
Регистрация: 20.03.2013
Сообщений: 8
|
Не хочет работать, пишет: Unspecified error
|
01.04.2013, 22:27 | #8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Файл на 10 строк на базу
Анализ,обработка данных Недорого
|
02.04.2013, 08:20 | #9 |
Регистрация: 20.03.2013
Сообщений: 8
|
заполнение textbox по данным из combobox
Прикладываю рабочие файлы. При заполнении первой формы, данные вносятся в две таблицы, только одна из них (без сумм оплаты) находится в общем доступе для работников. В первой таблице необходимо изменять оплату, вот и создал новую форму, а связать не могу.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заполнение textBox из таблицы по значению ComboBox | and150382 | Microsoft Office Excel | 0 | 29.03.2013 01:23 |
Заполнение textBox в зависимости от значения ComboBox с использованием БД | SheShe | Помощь студентам | 0 | 19.12.2012 19:33 |
Из ComboBox в TextBox | Вадим12091965 | Microsoft Office Excel | 3 | 30.10.2012 23:53 |
Заполнение списка по исходным данным при наличии пустых ячеек | нгв1607 | Microsoft Office Excel | 2 | 04.08.2011 10:27 |
Заполнение DataGridView из Textbox | GL_LaMeR | C# (си шарп) | 2 | 31.05.2011 19:58 |