замена значений из списка

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

замена значений из списка (Формулы/Formulas)

Matu

Дата: Воскресенье, 05.04.2020, 10:28 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Доброго времени суток, господа

Подскажите, существует ли решение такого вот вопроса: Есть таблица ячейки которой заполняются с помощью выпадающего списка, данный для которого берутся на соседнем листе, возможно ли вставлять в таблице не тот текст что выпадает непосредственно в списке, а из соседней ячейки таблицы с данными для него?
На примере в списке выбираем цвет, он же и вставляется в ячейку, возможно ли вставить его код, но при этом чтобы в списке по прежнему был цвет?

К сообщению приложен файл: 9706525.xlsx (11.6 Kb)

Я не волшебник, я только учусь

Ответить

AlexM Дата: Воскресенье, 05.04.2020, 11:49 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1130 ±

Замечаний: 0% ±

Excel 2003

С макросом в модуле листа.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Intersect(Target, Range("A2:I20")) Is Nothing Then Exit Sub Application.EnableEvents = False Target = Application.WorksheetFunction.VLookup(Target, Sheets(2).Range("A2:B12"), 2, 0) Application.EnableEvents = True End Sub