Добрый вечер! В один прекрасный и солнечный день многоуважаемый Serge_007 помог мне с выводом данных (результат на фото), за что я ему безмерно благодарен.
Однако я не смог разобраться с исходным кодом, поэтому прошу у Вас, уважаемые Экселисты, помощи. Как максимально просто организовать вывод данных таким способом, как на фото?
Скажем в приложенном файле?
Добрый вечер! В один прекрасный и солнечный день многоуважаемый Serge_007 помог мне с выводом данных (результат на фото), за что я ему безмерно благодарен.
Однако я не смог разобраться с исходным кодом, поэтому прошу у Вас, уважаемые Экселисты, помощи. Как максимально просто организовать вывод данных таким способом, как на фото?
Demitras, перестаньте плодить темы на один и тот же вопрос! Вопрос по файлу, с которого Вы сделали скрин надо было задавать здесь, а "спасибы" лучше складывать в репутацию (я не про себя, а в принципе)
По теме: Я ведь выложил файл... В нем можно посмотреть что на событие изменения КомбоБокса3 есть такой код:[vba]
Код
Private Sub ComboBox3_Change() Label4.Visible = True Label5.Caption = WorksheetFunction.HLookup(ComboBox2.Value, [I12:L20], WorksheetFunction.Match(ComboBox3.Value, [H12:H20], 0), 0) End Sub
[/vba] Очевидно что при выборе значения в КомбоБокс3 Лейбл4 становится видимым на форме, а значение Лейбла5 становится равным
(эта формула у Вас в ячейке К29) Формулу я использовал другую, но и результат она дает такой же как Ваша, да и вопрос вообще-то не в этом, не в формуле
Остается только на событие инициализации формы повесить скрытие Лейбла4[vba]
Код
Label4.Visible = False
[/vba]и всё
Demitras, перестаньте плодить темы на один и тот же вопрос! Вопрос по файлу, с которого Вы сделали скрин надо было задавать здесь, а "спасибы" лучше складывать в репутацию (я не про себя, а в принципе)
По теме: Я ведь выложил файл... В нем можно посмотреть что на событие изменения КомбоБокса3 есть такой код:[vba]
Код
Private Sub ComboBox3_Change() Label4.Visible = True Label5.Caption = WorksheetFunction.HLookup(ComboBox2.Value, [I12:L20], WorksheetFunction.Match(ComboBox3.Value, [H12:H20], 0), 0) End Sub
[/vba] Очевидно что при выборе значения в КомбоБокс3 Лейбл4 становится видимым на форме, а значение Лейбла5 становится равным
(эта формула у Вас в ячейке К29) Формулу я использовал другую, но и результат она дает такой же как Ваша, да и вопрос вообще-то не в этом, не в формуле
Остается только на событие инициализации формы повесить скрытие Лейбла4[vba]