Как переключить значение раскрывающегося списка из кода Excel VBA?

Question

На приведенном ниже листе у меня есть столбец «Заем» (столбец J), в который я добавил выпадающий список для выбора «Да» или «Нет».

Но из пользовательской формы, когда я вписываю значение в это поле либо «Да», либо «Нет», оно регистрируется как текст, а выпадающий список полностью исчезает.Я не хочу, чтобы выпадающий список исчезал, вместо этого я хотел бы написать код, который позволит мне переключать значение в этой ячейке.

К сожалению, я не смог найти подобную проблему в Интернете, кто-нибудь можетлюбезно помочь?

Answer 1

Вы можете сделать с событием Worksheet_selectionChange.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 2 Then Exit Sub
    If Target.Column <> 10 Then Exit Sub

    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="YES,NO"
    Application.SendKeys "%{down}" '<~~ Pressing ( Alt + down arrow )
    End With
End Sub

Установите в коде листа следующее.