Макрос Excel для заполнения ячейки одним щелчком мыши на основе раскрывающегося списка

Question

Я хочу заполнить диапазон ячеек, скажем, A1: A5, значением в выпадающем списке, скажем, в B1, щелкнув один раз мышью в ячейках A1: A5.Я хочу, чтобы это работало, сначала выберите нужное значение из раскрывающегося списка, а затем щелкните в любой из ячеек из диапазона A1: A5, и только выбранная ячейка изменяет значение на значение из раскрывающегося списка.,А также, когда я изменяю значение из выпадающего списка, ячейки, которые были ранее заполнены щелчком по ним, не изменяются автоматически на новое значение из выпадающего списка.После нажатия они остаются с этим значением до тех пор, пока не будут выбраны другие выбранные значения.

Answer 1

Добавьте проверку данных к B1, под «Разрешить:» вы выбираете «Список», под «Источник:» ваши значения, такие как: Значение1, Значение2, Значение3 ... .. или, конечно, диапазон ..

Вставьте следующее в код листа (например, Sheet1 (sheet1))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
        Selection.Value = Range("B1").Value
        Range("B1").Value = ""
    End If
End Sub