Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/замена значений из списка - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » замена значений из списка (Формулы/Formulas)
замена значений из списка
Matu Дата: Воскресенье, 05.04.2020, 10:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

Подскажите, существует ли решение такого вот вопроса: Есть таблица ячейки которой заполняются с помощью выпадающего списка, данный для которого берутся на соседнем листе, возможно ли вставлять в таблице не тот текст что выпадает непосредственно в списке, а из соседней ячейки таблицы с данными для него?
На примере в списке выбираем цвет, он же и вставляется в ячейку, возможно ли вставить его код, но при этом чтобы в списке по прежнему был цвет?
К сообщению приложен файл: 9706525.xlsx(11.6 Kb)


Я не волшебник, я только учусь
 
Ответить
СообщениеДоброго времени суток, господа

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

Автор - Matu
Дата добавления - 05.04.2020 в 10:28
AlexM Дата: Воскресенье, 05.04.2020, 11:49 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4256
Репутация: 1044 ±
Замечаний: 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]
Кросс
К сообщению приложен файл: 9706525_01.xlsm(16.6 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.


Сообщение отредактировал AlexM - Воскресенье, 05.04.2020, 12:53
 
Ответить
СообщениеС макросом в модуле листа.[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]
Кросс

Автор - AlexM
Дата добавления - 05.04.2020 в 11:49
Matu Дата: Воскресенье, 05.04.2020, 13:45 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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


Спасибо. Проблема решена, тему можно закрыть


Я не волшебник, я только учусь
 
Ответить
Сообщение
С макросом в модуле листа.


Спасибо. Проблема решена, тему можно закрыть

Автор - Matu
Дата добавления - 05.04.2020 в 13:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » замена значений из списка (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!