Список с мультивыбором

Подскажите как можно сделать в одной ячейке - мультивыбор (несколько вариантов одновременно) из списка, так чтобы во второй ячейке для соответствующих этим вариантов значений из второго списка происходило сложение?

Т.е есть: Вар1-10.
Вар2-20.
Вар3-40.

В ячейке я должен выбрать Вар1,Вар3 и в другой получить 50

Про мультивыбор гугл сразу выдаёт пример макроса, но как его доработать не знаю


Ответы (2 шт):

Автор решения: Tilek Samiev

Вот код макроса мультивыбора. Только он суммирует в ту же ячейку, а не в отдельную.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Then
    Application.EnableEvents = False
    newVal = Target
    Application.Undo
    oldval = Target
    If Len(oldval) <> 0 And oldval <> newVal Then
        Target = Target + newVal
    Else
        Target = newVal
    End If
    If Len(newVal) = 0 Then Target.ClearContents
    Application.EnableEvents = True
End If

End Sub

→ Ссылка
Автор решения: vikttur

Решение по объединению данных уже есть, Вы сами его нашли по ссылке.

Для суммирования впишите формулу

=СУММПРОИЗВ(ЕЧИСЛО(ПОИСК($A$2:$A$10;C2))*$B$2:$B$10)
→ Ссылка