Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Формула VBA, Не могу найти решения
 
Добрый день!
Подскажите!
Пишу формулу для вставки наценки
Код
marge = InputBox("Введите процент наценки")
m1 = (marge / 100 + 1)
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]>50,CEILING(RC[-1]*" & m1 & ",10)-1,ROUNDUP(RC[-1]*" & m1 & ",0))"
Выдает ошибку...
Что я не так сделал?
PS
Условие потом допилю... (как наценять при цене ниже 50р)
Изменено: MonsterBeer - 24 Апр 2015 17:45:59
Когда я ем,я глух и нем, хитер и быстр, и дьявольски умен.
 
Числа в формуле должны быть на "родном" языке - десятичный разделитель точка. Можно изменить 2 строку:
Код
m1 = Str(marge / 100 + 1)
Изменено: Казанский - 24 Апр 2015 17:54:09
 
Казанский,
Спасибо!!!
Когда я ем,я глух и нем, хитер и быстр, и дьявольски умен.
 
MonsterBeer, не первый день на форуме, а нормальное название темы придумать не можете. Ну О ЧЁМ эта тема?  
Страницы: 1
Читают тему (гостей: 1)