Создать проверку данных в ячейке на основе значения в другой ячейке

Question

У меня есть 2 столбца в электронной таблице, оба они выбраны из выпадающего списка.

Col А «Вы хотите получить больше информации», - Возможные значения Да \ Нет

Col B не является «Как вы узнали о нас» - Возможные значения Email \ Phone \ Другие

Вопрос: Если в Col A выбрано «Нет», тогда значение Col B должно быть N/A, иначе пользователь должен иметь возможность выбрать из раскрывающегося списка и выбрать значение. Используя следующую формулу, я могу получить N/A, но параметр «false» перезаписывает любые доступные значения выпадающего списка или ранее выбранные значения. Поэтому просто поставьте, если выбрано «Да», позвольте пользователю выбрать значение в другой ячейке. Если выбрано No, покажите N/A в другой ячейке. Мысли о том, как я могу заставить это работать?

Моя текущая формула, которая не работает (который находится в ячейке A2):

=IF(A1="No","N/A","Select Value") 

Answer 1

Попробуйте это:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim Cell As Range 
    If Target.Column = 1 Then 
     Set Cell = Target.Offset(0, 1) 
     If Len(Target.Value) = 0 Then 
      Cell.Validation.Delete 
      Cell.Value = vbNullString 
     Else 
      If Target.Value = "Yes" Then 
       With Cell.Validation 
        .Delete 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
        Operator:=xlBetween, Formula1:="=ContactMethod" 
       End With 
      ElseIf Target.Value = "No" Then 
       Cell.Validation.Delete 
       Cell.Value = "N/A" 
      Else 
       MsgBox "Input only Yes or No." 
       Target.ClearContents 
       Cell.Validation.Delete 
      End If 
     End If 
    End If 
End Sub 

Скриншот:

Если Yes вводится в Колонка A (обратите внимание на стрелку раскрывающегося списка):

Если No вводится в колонке А (заметим, ныне отсутствующий стрелку раскрывающегося списка):

Если что-нибудь еще вводится в колонке А:

В Кроме того, он безопасно удаляет подтверждение, если значение столбца A удаляется или изменяется на No. Таким образом, нет возможности получить доступ к выпадающему списку, если только колонка A не является Yes.

Убедитесь, чтобы вставить его в модуль листа (в Sheet9 на скриншоте ниже):

Дайте нам знать, если это помогает.

Answer 2

Просто для удовольствия, потому что это не полное решение, для которого потребуется litle vba ... Firs ComboBox в A1 (Да/Нет), в D1: D3 (Электронная почта/Телефон/Другое) , в E1 (NA). Написать в качестве источника для списка B1 Data Validation:

=CHOOSE(IF(A1="Yes";1;2);D1:D3;E1) 

Вам нужно VBA, потому что, по крайней мере, удалить значение в B1, когда значение A1 изменений, и изменить его на «NA», если A1 = Нет