Пример 1.

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

 

 

Текст макроса с именем Расчет_заработной_платы имеет вид:

 

Sub Расчет_заработной_платы()

Range("C2").Select

ActiveCell.FormulaR1C1 = "=RC[-1]*R7C3"

Range("D2").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

Range("C2:D2").Select

Selection.AutoFill Destination:=Range("C2:D5"), Type:=xlFillDefault

Range("C6").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

Range("D6").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"