Проверка Microsoft Excel на основе соседней ячейки

Question

Проверка Microsoft Excel на основе соседней ячейки

У меня есть две соседние колонки с именем Country а также Rating, Country В столбце есть выпадающий список для выбора страны, в которую будет доставлен DVD. Это использует list проверка для создания раскрывающегося списка:

=$AN$31:$AN$53   # [US, CA, JP, etc.]

Что мне нужно сделать, это отобразить список проверки для Rating основанный на значении Country колонка. Например,

if Country=US, Rating dropdown = [G, PG, PG-13, R]
if Country=CA, Rating dropdown = [G, PG, 14A, 18A, R]

Как бы я сделал это в Excel?

2

microsoft-excel microsoft-excel-2010 data-validation

Источник

David542 14 фев '12 в 01:40

1 ответ

Другие вопросы по тегам microsoft-excel microsoft-excel-2010 data-validation

Raystafarian 14 фев '12 в 15:29 2012-02-14 15:29 · Answer 1 · 2012-02-14 15:29

Хорошо. Я сделал это через VBA. Скажем, ваша первоначальная проверка в D2. Поместите это в код листа1 (щелкните правой кнопкой мыши - посмотрите код)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(True, True) = "$D$2" Then
        Select Case Target
            Case "A"
                Call Macro1
            Case "B"
                Call Macro2
            Case "C"
                Call Macro3
            Case "D"
                Call Macro4
            Case "E"
                Call Macro5
            Case Else
                'Do nothing
        End Select
    End If

End Sub

Как только вы получите это в коде листа, создайте модуль и используйте это:

Sub Macro1()
Range("E2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$9:$A$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
       End With
End Sub


Sub Macro2()
Range("E2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$B$9:$B$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub


Sub Macro3()
Range("E2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$9:$C$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub



Sub Macro4()
Range("E2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$D$9:$D$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub


Sub Macro5()
Range("E2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$E$9:$E$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Все, что вам нужно сейчас, это изменить координаты списка, и все будет отлично работать.