Изменение ячейки по формуле и запись результата в нее же

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение ячейки по формуле и запись результата в нее же (Макросы/Sub)

vusafarov

Дата: Среда, 18.06.2014, 17:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день форумчане) Возник вопрос по VBA, и никак не могу с ним разобраться. Условно есть 2 столбца, в первый столбец вводится число, после чего во второй столбец вводится процент, и макрос должен после ввода процента произвести расчет и записать значение в первый столбец (пример во вложении).

На просторах интернета наткнулся на такой макрос:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Target + Target * Target.Offset(, 1)
Application.EnableEvents = True
End Sub

[/vba]

Вроде работает, но есть нюанс, срабатывает только если сначала ввести процент, а потом уже число, а необходимо делать обратное- сначала число, потом процент.