Добрый день! Прошу помощи, ибо не смог найти рабочий код. Из двух выпадающих списков нужно выбрать значения, которые будут вставать один за другим, а не заменять друг друга. С чекбоксами такой трюк получился, а с комбобоксами что-то ни в какую... Спасибо!
Добрый день! Прошу помощи, ибо не смог найти рабочий код. Из двух выпадающих списков нужно выбрать значения, которые будут вставать один за другим, а не заменять друг друга. С чекбоксами такой трюк получился, а с комбобоксами что-то ни в какую... Спасибо!pips
Private Sub ComboBox1_Change() ar = Split(Range("C3").Value & ",", ",") Range("C3").Value = ComboBox1.Text & "," & ar(1) End Sub Private Sub ComboBox2_Change() ar = Split(Range("C3").Value & ",", ",") Range("C3").Value = ar(0) & "," & ComboBox2.Text End Sub
[/vba]
Вариантов действительно куча. Например [vba]
Код
Private Sub ComboBox1_Change() ar = Split(Range("C3").Value & ",", ",") Range("C3").Value = ComboBox1.Text & "," & ar(1) End Sub Private Sub ComboBox2_Change() ar = Split(Range("C3").Value & ",", ",") Range("C3").Value = ar(0) & "," & ComboBox2.Text End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
