VBA для автоматического расчета формулы в диапазоне ячеек после ввода значения ячейки - PullRequest
0 голосов
/ 31 октября 2018

Я ищу код, работающий на основе изменения значения, который выполняет следующие действия: после того, как я наберу число в столбце A, в столбце B будет показан расчет налога 5%, а в столбце C сумма с налогом,

Я знаю, что могу использовать формулу в столбце B =A1*0.05 и =A1+B1 в столбце C, но мне нужно копировать формулы и перетаскивать их каждый раз при добавлении новой строки, я хотел бы автоматизировать этот процесс.

Ответы [ 2 ]

0 голосов
/ 01 ноября 2018

Автоматизация такой простой задачи кажется излишним, но сделать это достаточно просто:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
        If .Count > 1 Then Exit Sub
        If (Not Intersect(Columns("A:A"), .Cells) Is Nothing) And IsNumeric(.Value2) Then
            .Offset(0, 1).Value2 = .Value2 * 1.05
        End If
    End With
End Sub
0 голосов
/ 31 октября 2018

Попробуйте поместить эту формулу «Col B = A1 * 0,05 и Col C = A1 + B1» (не забудьте захватить строку, использованную в столбце A) в случае изменения выбора

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...