Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Цена заканчивается на 99 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Цена заканчивается на 99 (Формулы/Formulas)
Цена заканчивается на 99
Orange02 Дата: Понедельник, 26.09.2016, 23:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Стоит задача сделать все цены с девяткой на конце. Например, не 1004 рубля, а 999 рублей или не 946 рублей, а 949. Корректирование цены возможно в пределах от 1 до 50 рублей. Какую формулу или макрос можно использовать?


Сообщение отредактировал Orange02 - Понедельник, 26.09.2016, 23:35
 
Ответить
СообщениеСтоит задача сделать все цены с девяткой на конце. Например, не 1004 рубля, а 999 рублей или не 946 рублей, а 949. Корректирование цены возможно в пределах от 1 до 50 рублей. Какую формулу или макрос можно использовать?

Автор - Orange02
Дата добавления - 26.09.2016 в 23:34
Pelena Дата: Понедельник, 26.09.2016, 23:39 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9879
Репутация: 2265 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
И Вам здравствуйте.
Код
=ОКРУГЛТ(A1;50)-1

если только в большую сторону округлять, то
Код
=ОКРВВЕРХ(A1;50)-1


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеИ Вам здравствуйте.
Код
=ОКРУГЛТ(A1;50)-1

если только в большую сторону округлять, то
Код
=ОКРВВЕРХ(A1;50)-1

Автор - Pelena
Дата добавления - 26.09.2016 в 23:39
Orange02 Дата: Понедельник, 26.09.2016, 23:49 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, Благодарю! Все чудесно сработало. Округлять и в большую и в меньшую сторону - что ближе.
А как превратить это в макрос, который потенциально может работать с любыми столбцами и строкой?


Сообщение отредактировал Orange02 - Понедельник, 26.09.2016, 23:49
 
Ответить
СообщениеPelena, Благодарю! Все чудесно сработало. Округлять и в большую и в меньшую сторону - что ближе.
А как превратить это в макрос, который потенциально может работать с любыми столбцами и строкой?

Автор - Orange02
Дата добавления - 26.09.2016 в 23:49
buchlotnik Дата: Понедельник, 26.09.2016, 23:52 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщениекросс на планете

Автор - buchlotnik
Дата добавления - 26.09.2016 в 23:52
Orange02 Дата: Понедельник, 26.09.2016, 23:57 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, и что?
 
Ответить
Сообщениеbuchlotnik, и что?

Автор - Orange02
Дата добавления - 26.09.2016 в 23:57
_Boroda_ Дата: Вторник, 27.09.2016, 00:38 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 9377
Репутация: 3950 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А для 936 и 1008 что должно получиться?
Предлагаю такой вариант
Код
=ОТБР(A1-5;-1)+9
К сообщению приложен файл: 8716871.xlsx(8Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА для 936 и 1008 что должно получиться?
Предлагаю такой вариант
Код
=ОТБР(A1-5;-1)+9

Автор - _Boroda_
Дата добавления - 27.09.2016 в 00:38
Orange02 Дата: Вторник, 27.09.2016, 00:51 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо всем ответившим! Выручили совсем новичка. Остается вопрос - можно ли сделать скрипт для колонки с ценами или лучше обязать менеджеров использовать формулу вручную?
 
Ответить
СообщениеСпасибо всем ответившим! Выручили совсем новичка. Остается вопрос - можно ли сделать скрипт для колонки с ценами или лучше обязать менеджеров использовать формулу вручную?

Автор - Orange02
Дата добавления - 27.09.2016 в 00:51
Manyasha Дата: Вторник, 27.09.2016, 10:38 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 1589
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Orange02, можно, например так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Dim lr&
        
        lr = Cells(Rows.Count, 1).End(xlUp).Row
        'для столбца В
        Range("b2", Cells(Rows.Count, "b").End(xlUp)).ClearContents
        Range("b2:b" & lr).FormulaR1C1 = "=MROUND(RC[-1],50)-1"
        'для столбца С
        Range("c2", Cells(Rows.Count, "c").End(xlUp)).ClearContents
        Range("c2:c" & lr).FormulaR1C1 = "=TRUNC(RC[-2]-5,-1)+9"
        
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub
[/vba]
Но зачем? Формулы простые, их можно протянуть сразу на много строк (с запасом). Чтобы для пустых ячеек не выводился результат, можно обернуть формулу в
Код
=ЕСЛИ(A2;формула;"")

Или форматировать данные, как таблицу (Вкладка Главная-Стили-Форматировать, как таблицу), тогда формула сама будет протягиваться.

кросс на планете

buchlotnik, и что?

читайте п5s в Правилах форума.
К сообщению приложен файл: 8716871-1.xlsm(18Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеOrange02, можно, например так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Dim lr&
        
        lr = Cells(Rows.Count, 1).End(xlUp).Row
        'для столбца В
        Range("b2", Cells(Rows.Count, "b").End(xlUp)).ClearContents
        Range("b2:b" & lr).FormulaR1C1 = "=MROUND(RC[-1],50)-1"
        'для столбца С
        Range("c2", Cells(Rows.Count, "c").End(xlUp)).ClearContents
        Range("c2:c" & lr).FormulaR1C1 = "=TRUNC(RC[-2]-5,-1)+9"
        
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub
[/vba]
Но зачем? Формулы простые, их можно протянуть сразу на много строк (с запасом). Чтобы для пустых ячеек не выводился результат, можно обернуть формулу в
Код
=ЕСЛИ(A2;формула;"")

Или форматировать данные, как таблицу (Вкладка Главная-Стили-Форматировать, как таблицу), тогда формула сама будет протягиваться.

кросс на планете

buchlotnik, и что?

читайте п5s в Правилах форума.

Автор - Manyasha
Дата добавления - 27.09.2016 в 10:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Цена заканчивается на 99 (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!