|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.08.2013, 18:19 | #1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
TextBox
Привет. Есть код:
Private Sub ComboBox1_Change() If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then TextBox19.Tag = 150 TextBox19.Text = 150 TextBox2.Tag = 300 TextBox2.Text = 300 TextBox3.Tag = 720 TextBox3.Text = 720 TextBox4.Tag = 1 TextBox4.Text = 1 TextBox17.Text = "ШН-1ДР" TextBox18.Text = Лист3.[G4].Value End If End Sub TextBox18 показывает первое значение ячейки Лист3.[G4]. При изменении значения ячейки G4 в текстбоксе нет изменений. Что не так? Заранее благодарен за помощь. |
27.08.2013, 18:48 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
TextBox18 принимает значение из G4 только когда изменилось значение ComboBox1.
Остальные события ему по барабану. запрограммируйте действия системы на изменения значения на листе лист3 Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
28.08.2013, 03:38 | #3 | |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Цитата:
Код:
Анализ,обработка данных Недорого
|
|
29.08.2013, 17:38 | #4 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Попробовал, получил ошибку:
Ошибка выполнения '380 '. Не удалось установить свойства. Неверное значение свойства. Пока поставил кнопку "Обновить" Private Sub CommandButton2_Click() If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then TextBox18.Text = Лист3.[G4].Value End If If ComboBox1.Text = "С 1-й распашной дверью 200*300*720" Then TextBox18.Text = Лист3.[G5].Value End If End Sub Так работает, но хотелось-бы без лишних действий. Спасибо, что помогаете. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Внести данные из Textbox Form2 в TextBox Form1 | uralshans | Microsoft Office Excel | 1 | 07.01.2013 17:15 |
TextBox C# | MyXa | Общие вопросы .NET | 7 | 26.08.2010 13:25 |
TextBox | latish86 | Windows Forms | 2 | 08.05.2010 13:25 |
TextBox в С# | Natok | Помощь студентам | 2 | 18.05.2009 17:47 |