Страница 1 из 2
Помогие разобраться с combobox
Добавлено: 15 авг 2008, 11:37
seergy
Всё в файле
С уважением ...
Re: Помогие разобраться с combobox
Добавлено: 15 авг 2008, 12:20
VictorM
seergy,
Помогие разобраться с combobox
Помочь-то можно, но уж больно запутанное объяснение задачи у Вас.
Что должно выбраться, куда должно поместиться.
У Вас там, кроме delta t, еще 8 столбцов данных.
Какое значение и как должно выбираться...
Re: Помогие разобраться с combobox
Добавлено: 15 авг 2008, 14:53
seergy
Привожу примемер на формулах с пояснением, что успешно использую.
Как такое сделать в VBA
C уважением...
Re: Помогие разобраться с combobox
Добавлено: 16 авг 2008, 21:40
VictorM
Не знаю, так ли я понял, посмотрите вложение.
Сделано не все, только то что удалось понять.
А вообще-то вся работа с элементами формы, в том числе и combobox была подробнейшим образом рассмотрена в последней Вашей работе. Если посмотреть код, там все есть.
Re: Помогие разобраться с combobox
Добавлено: 17 авг 2008, 08:42
VictorM
Сразу не заметил
Текущий вопрос. Не могу назначить заполнение поля... Только числами, например, от 10 до 250
Ну,
только числами у Вас присутствует, а ограничить ввод значений в определенных пределах, можно так:
Код: Выделить всё
Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim iVal As Long
iVal = TextBox3.Value
If iVal < 10 Or iVal > 250 Then
MsgBox "Только числа от 10 до 250 "
TextBox3.Value = ""
End If
End Sub
Re: Помогие разобраться с combobox
Добавлено: 17 авг 2008, 13:52
seergy
Кат.Clear и ТextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) - то что нужно.
Цитата:
"А вообще-то вся работа с элементами формы, в том числе и combobox была подробнейшим образом рассмотрена в последней Вашей работе. Если посмотреть код, там все есть."
Разобрался сам всё дело в том, что в ХС.RowSource = deltaK, должно быть deltaK с ковычками., т.к. это диапазон, а не переменная. "delta" - вообще не нужен, а ХС.List(iIndex,0) начало диапозна "deltaK" .
Всё дело в том, что на форме 2 OptionButton. При переключении, кот ХС.RowSource = "deltaK", менялся на AddХС
Не могу сделать, чтобы при включении OptionButton2 (оборудование) ХС.RowSource = "deltaK", менялся на AddХС (ошибка в модуле AddХС).
Посмотрите файл
P.s. а ввод для TextBox3 долько произвольного текста с ограничением количества знаков
Re: Помогие разобраться с combobox
Добавлено: 18 авг 2008, 11:28
VictorM
Посмотрите пока дополнения.
Запустите форму UserForm1.
Значение получено, помещается (для наглядности) в лейбл.
Естественно, Вы можете пристроить его туда, куда Вам нужно.
Re: Помогие разобраться с combobox
Добавлено: 18 авг 2008, 12:50
VictorM
Всё дело в том, что на форме 2 OptionButton. При переключении, кот ХС.RowSource = "deltaK", менялся на AddХС
Не могу сделать, чтобы при включении OptionButton2 (оборудование) ХС.RowSource = "deltaK", менялся на AddХС (ошибка в модуле AddХС).
Смотрите файл.
***совет - давайте контролам нормальные однозначные имена, в частности, XC можно написать и в русской и в английской раскладке, что у Вас и было.
Re: Помогие разобраться с combobox
Добавлено: 18 авг 2008, 13:27
seergy
VictorM писал(а):Смотрите файл.
***совет - давайте контролам нормальные однозначные имена, в частности, XC можно написать и в русской и в английской раскладке, что у Вас и было.
Век живи , век учись .... прежде всего внимательность....
Всё понятно и решено...
Большое спасибо
И в завершение
Как можно заменить
Sheets(" ").Activate на ActiveSheets
Re: Помогие разобраться с combobox
Добавлено: 18 авг 2008, 13:32
VictorM
Как можно заменить
Sheets(" ").Activate на ActiveSheets
опять же, вне контекста кода, ничего не понятно, что на что менять и для чего.