☰

Извлечение значения из раскрывающегося списка множественного выбора в Excel

tag-icon • tag-icon microsoft-excel vba dropdownlist
Извлечение значения из раскрывающегося списка множественного выбора в Excel

Я пытаюсь сделать расчет из моего выпадающего меню. У меня есть следующий выпадающий список на листе 1 в моем Excel.

## Category ##
### AAA ###
### BBB ###
### CCC ###
### DDD ###

На листе 2 у меня есть соответствующие значения для этого раскрывающегося списка.

## Category  Category Value##
### AAA    1###
### BBB    2###
### CCC    3###
### DDD    4###

Я добавил код VBA для множественного выбора, а также добавил простую VLOOKUPформулу для получения значения категории.

=VLOOKUP(E2;Sheet2!I2:J5;2;)

С помощью кода VBA я могу выбрать все три категории, а затем удалить выбранную категорию. Но мне не удается получить сумму выбранной категории. Например, если клиент выбирает категорию AAA и CCC, он/она должен/должна увидеть сумму 4. Кроме того, если клиент сначала выбирает все три категории, а затем удаляет одну из них, то сумма должна обновиться. Я не понимаю, как обновить формулу, VLOOKUPчтобы получить сумму.

Вот мой код VBA для множественного выбора.

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated: 2016/4/12
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                '                If xValue1 = xValue2 Or _
                '                   InStr(1, xValue1, ", " & xValue2) Or _
                InStr(1, xValue1, xValue2 & ",") Then
                If InStr(1, xValue1, xValue2 & ",") > 0 Then
                    xValue1 = Replace(xValue1, xValue2 & ", ", "") ' If it's in the middle with comma
                    Target.Value = xValue1
                    GoTo jumpOut
                End If
                If InStr(1, xValue1, ", " & xValue2) > 0 Then
                    xValue1 = Replace(xValue1, ", " & xValue2, "") ' If it's at the end with a comma in front of it
                    Target.Value = xValue1
                    GoTo jumpOut
                End If
                If xValue1 = xValue2 Then        ' If it is the only item in string
                    xValue1 = ""
                    Target.Value = xValue1
                    GoTo jumpOut
                End If
                Target.Value = xValue1 & ", " & xValue2
            End If
            jumpOut:
        End If
    End If
    Application.EnableEvents = True
End Sub

решение1

=SUM(IF(ISERR(FIND(Sheet2!$I$2:$I$5;A1;1));0;Sheet2!$J$2:$J$5))

Это должно работать, но это не обычная формула. Этомножествоформула. Чтобы формулы массива работали, вы вводите еенетс Enter, но вместо этого используйте комбинацию Ctrl+ Shift+ Enter.

Также измените A1на фактическую ячейку раскрывающегося списка.

Пример

Связанный контент