Label (Замена значений по условию)

TGM Пользователь Сообщений: 115 Регистрация: 26.12.2012	#1 07.12.2010 16:59:36 Добрый день! Подскажите, как на основании данных в Label1,подтянуть данные(Лист2) в Label 2,Label 3,Label 4. Прикрепленные файлы post_181695.xls (42.5 КБ)

Hugo Пользователь Сообщений: 26304 Регистрация: 22.12.2012	#2 07.12.2010 17:51:57 Me.Label2.Caption = Application.VLookup(Me.Label1.Caption, Sheets("Лист2").Range("A2:D8"), 2, 0) и т.д.

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

07.12.2010 17:54:48

Добрый день! Подтянуть не проблема. Только каким способом Вы будет менять значение (Caption) в Label1? Каждый раз переписывать? Предлагаю использовать ComboBox, а в зависимости от выбранного значения присваивать значения остальным контролам. Кстати,- это могут быть и TextBox.

TGM Пользователь Сообщений: 115 Регистрация: 26.12.2012	#4 07.12.2010 18:23:32 Hugo,все работает - спасибо большое! Юрий М,вы правы-намудрил,:)переделаю.. Спасибо за помощь!

Santiago Пользователь Сообщений: 140 Регистрация: 01.01.1970	#5 20.01.2011 16:34:25 подскажите к какому событию привязать этот код если используется ComboBox? к ComboBox_Change()? и второй вопрос как правильно записать вместо этого Sheets("Лист2").Range("A2:D8" имя диапазона?

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#6 20.01.2011 16:38:16 Range("ИмяДиапазона") или [ИмяДиапазона] Редко но метко ...

Santiago Пользователь Сообщений: 140 Регистрация: 01.01.1970	#7 20.01.2011 16:47:27 GIG_ant спасибо. P.S. Что то я стал забывать очевидные вещи...пора чистить карму.

Читают тему