Как сделать наценку на товар в excel

Часто у бухгалтеров и просто индивидуальных предпринимателей возникает необходимость сделать шаблон наценки товара из накладной по определенному условию.

Вот образец шаблона файла Excel для наценки с округлением до 50 рублей.

СКАЧАТЬ

В колонку «E» мы вписываем закупочную цену товара, в колонке «L» будут автоматически формироваться цены реализации.

  • Поставьте курсор на пустую ячейку L8
  • Запускаем код макроса Excel нажатием на стрелку
  • Откроется окно где надо ввести размер наценки (к примеру 1,5)
  • Далее программа Сама заполнит все пустые ячейки умножив закупочные цены на 1,5 и округлив цены вверх до 50 рублей.

1x

 

Sub наценка()

Dim sStr As Variant
sStr = InputBox(«Введите число наценки» & » Через запятую»)
sStr = Replace(sStr, «.», «,»)
sStr = Replace(sStr, «?», «,»)
sStr = Replace(sStr, «/», «,»)
sStr = Replace(sStr, «<;", ",") sStr = Replace(sStr, ">;», «,»)
sStr = Replace(sStr, «‘», «,»)
sStr = Replace(sStr, «Ю», «,»)
sStr = Replace(sStr, «Б», «,»)
sStr = Replace(sStr, «+», «,»)
sStr = Replace(sStr, «-«, «,»)
sStr = Replace(sStr, «*», «,»)
If sStr = «» Then
Exit Sub
End If

If sStr = «1» Then
Do While ActiveCell = «» And ActiveCell.Offset(0, -7) <> «»
ActiveCell.Value = ActiveCell.Offset(0, -7).Value
ActiveCell.Offset(1, 0).Select
Loop
Exit Sub
End If

On Error Resume Next
Do While ActiveCell = «» And ActiveCell.Offset(0, -7) <> «»
ActiveCell.Value = Workbooks.Application.Ceiling((ActiveCell.Offset(0, -7) * sStr), 50)
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Написать комментарий