Excel, необходимо: автоматическое повторение после ввода данных, если не изменено вручную

0

MS Excel, одна строка данных (номера от 1 до 20). Ввод всех ячеек осуществляется с помощью выпадающих списков.

Интересно, можно ли выбрать выпадающий элемент списка и все ячейки справа от него в пределах диапазона, автоматически копирует примененные данные.

Например, я выбираю в ячейке A1 - (3), и все 20 ячеек (от A1 до T1) становятся (3), затем я изменяю данные в ячейке E на (7), и теперь у меня должны быть ячейки от A1 до D1. показаны (3), а ячейки E1-T1 показаны (7).

Это будет возможно?

Благодарю.

SKYTTEN
источник

Ответы:

1

Это можно сделать с помощью VBA. Независимо от того, имеют ли ячейки проверку данных, не имеет значения.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:T1")) Is Nothing Then
        Application.EnableEvents = False
        Range(Target, "T1") = Target.Value
        Application.EnableEvents = True
    End If
End Sub

Скопируйте код, щелкните правой кнопкой мыши вкладку листа, выберите «Просмотр кода» и вставьте код в окно кода. Вам нужно сохранить файл как файл с поддержкой макросов с расширением xlsm.

teylyn
источник