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

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » замена значений из списка (Формулы/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

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

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

Сообщений: 4484

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

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

Excel 2003

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

Код

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

[/vba]
Кросс