Помогие разобраться с combobox

[seergy]

Всё в файле
С уважением ...

[VictorM]

seergy,

Помогие разобраться с combobox

Помочь-то можно, но уж больно запутанное объяснение задачи у Вас.
Что должно выбраться, куда должно поместиться.
У Вас там, кроме delta t, еще 8 столбцов данных.
Какое значение и как должно выбираться...

[seergy]

Привожу примемер на формулах с пояснением, что успешно использую.
Как такое сделать в VBA
C уважением...

[VictorM]

Не знаю, так ли я понял, посмотрите вложение.
Сделано не все, только то что удалось понять.
А вообще-то вся работа с элементами формы, в том числе и combobox была подробнейшим образом рассмотрена в последней Вашей работе. Если посмотреть код, там все есть.

[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

[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 долько произвольного текста с ограничением количества знаков

[VictorM]

Посмотрите пока дополнения.
Запустите форму UserForm1.
Значение получено, помещается (для наглядности) в лейбл.
Естественно, Вы можете пристроить его туда, куда Вам нужно.

[VictorM]

Всё дело в том, что на форме 2 OptionButton. При переключении, кот ХС.RowSource = "deltaK", менялся на AddХС
Не могу сделать, чтобы при включении OptionButton2 (оборудование) ХС.RowSource = "deltaK", менялся на AddХС (ошибка в модуле AddХС).

Смотрите файл.
***совет - давайте контролам нормальные однозначные имена, в частности, XC можно написать и в русской и в английской раскладке, что у Вас и было.

[seergy]

Смотрите файл.
***совет - давайте контролам нормальные однозначные имена, в частности, XC можно написать и в русской и в английской раскладке, что у Вас и было.

Век живи , век учись .... прежде всего внимательность....
Всё понятно и решено...
Большое спасибо
И в завершение
Как можно заменить
Sheets(" ").Activate на ActiveSheets

[VictorM]

Как можно заменить
Sheets(" ").Activate на ActiveSheets

опять же, вне контекста кода, ничего не понятно, что на что менять и для чего.