Excel VBA для целевого адреса в поле combobox linkedcell не работает

#excel #vba #combobox #worksheet

Вопрос:

У меня есть комбинация, которая нравится ячейке A1. Выпадающий список-это выпадающий список. Я хочу изменять значение ячейки D6 всякий раз, когда я изменяю значение выпадающего списка на косметическое, используя Worksheet_Chang. Я написал следующий код VBA, но он не работает.

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False  If Target.Address = "$A$1" Then  If Range("A1").Value = "Cosmetics" Then  Range("D6").Value = "Not Applicable"  END IF END IF  Application.EnableEvents = True End Sub  

Здесь, когда я нацеливаюсь на связанную ячейку combobox (a1) и выбираю значение как «косметика», я хочу установить значение D6 в «Неприменимо», но это не работает.

Комментарии:

1. Предлагаю: 1) Перечитайте справку о том, что делает ссылка на ячейку в поле со списком. 2) Вручную проверьте поле со списком (т. е. Измените выделение) и посмотрите, что произойдет со связанной ячейкой. Из этого вы должны узнать, что связанная ячейка связана с индексом поля со списком (т. Е. с номером выбранного элемента), а не со значением поля со списком. И это должно направить вас на правильный путь к выполнению того, к чему вы стремитесь 🙂