Помогите сделать форму с Расчетами

[LamerPolniy]

Извините, может тут уже много об этом говорили - поиск как-то не совсем помог. Проблема:
нужно сделать форму, на которой расположиь несколько Комбо и по результату выбора опций потом расчитать результат. пожалуйста, если не сложно - киньте примером или ссылкой - очень нужно и главное - времени не много...Заранее спасибо.
п.с. Комбо располагаю на форму, а прицепить к нему список опций не могу...

[LamerPolniy]

блин, ну мужики - ну кто нибудь - наверняка же у вас сотни таких задач - киньте помощью хоть какой-то!

[nilem]

Давай примерчик с формой, с комбами, со списком опций - прицепим.

[LamerPolniy]

Давай примерчик с формой, с комбами, со списком опций - прицепим.

есть таблица чисел :
в зависимости от типа ТС (легковые до 100 000, от 100000 до 300 000 и свыше 300 000)
в зависимости от года выпуска (2010- 2009, 2008, 2007 и т.д. до 2005)

т.е. - на форму надо положить 2 Комбо с выбором типа ТС и года выпуска ТС

а потом в зависимости от того. что выбрано, при нажатии кнопки - Расчитать - надо в окне - результат - показать результирующее число.

покажите мне только кусок кода, который бы делал это в любом виде - я сам потом доделаю уже наполню числами и списком. Поставьте, плз, по два элемента в каждом из Комбо.

Заранее благодарен.

[nilem]

Ну вот, смотри.

[LamerPolniy]

Огромное спасибо, но можно его же, только в версии Экселя ниже 2007? У меня 2007-го офиса нет - не могу посмотреть.

[nilem]

Вот в формате 2003.

[LamerPolniy]

Вот в формате 2003.

Большое спасибо! Это именно то, что нужно. А можно еще вопрос - как сделать, чтобы была сразу только форма - т.е. чтобы файла Эксель c кнопкой - Загрузить форму - вообще не было, а при открытии файла сразу открывалась форма?
Еще раз прошу прощения за простые вопросы - очень срочно нужно реализовать.

[nilem]

Код: Выделить всё

' При активации формы скрыть приложение Excel
Private Sub UserForm_Activate()
Application.Visible = False
End Sub

' При закрытии формы отобразить приложение Excel
Private Sub UserForm_Terminate()
Application.Visible = True
End Sub

[LamerPolniy]

Большое Спасибо!