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

Riccoromeo Пользователь Сообщений: 25 Регистрация: 14.04.2015	#1 20.04.2015 09:56:01 Ребят не подскажете, можно ли сделать такой макрос, чтобы при вводе в ячейку А1 например значения 50, оно автоматом умножалось на ячейку А2. И в ячейке А1 отображалось не 50, а 50*A2

Пользователь

Сообщений: 469 Регистрация: 05.01.2013

20.04.2015 10:11:16

В модуль листа:

Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then [a1] = [a1] * [a2] Application.EnableEvents = True End Sub