Сброс нескольких выпадающих меню в Excel с помощью макроса

Question

В настоящее время у меня есть рабочая книга с 40i sh вопросами, каждый из которых имеет выпадающее меню с 5 опциями. Я хотел посмотреть, смогу ли я создать макрос / использовать vba, чтобы сбросить их все до «1-полностью не согласен».

Пытался:

Sub Reset_Dropdowns() 
Range("C3:C55").Value = "Completely Disagree" 
End Sub

Answer 1

Когда ваш код не работает, вы пытаетесь обновить весь диапазон одновременно, что невозможно. Ссылка на каждую ячейку индивидуально, например, так:

Sub Reset_Dropdowns() 
  Sheets("Control").Range("C4").Value = "Completely Disagree" 
  Sheets("Control").Range("C8").Value = "Completely Disagree" 
  Sheets("Control").Range("C12").Value = "Completely Disagree"
  ' etc
End sub

Я принял ссылки на ячейки, но это поможет вам!