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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на округление значений, оценивая дробную часть - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на округление значений, оценивая дробную часть (Макросы/Sub)
Макрос на округление значений, оценивая дробную часть
volya09 Дата: Вторник, 20.02.2018, 12:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день,

условно у меня есть разные значения, которые необходимо округлить до целого значения. Если дробная часть больше 0,5, то вверх, если меньше, то вниз, учитывая знак:
-8554,45 -8554
-88,365 -88
98512,5 98513
-326,889 -327
-2248,32 -2248
125,33 125
12,3369 12
-987,326 -987

Я использую формулу
Код
=ЕСЛИ(ОСТАТ(ABS(A5);1)>=0,5;ОКРУГЛВВЕРХ(A5;0);ОКРУГЛВНИЗ(A5;0))

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

Спасибо!
К сообщению приложен файл: 8880389.xlsx (11.1 Kb)


Сообщение отредактировал volya09 - Вторник, 20.02.2018, 13:07
 
Ответить
СообщениеДобрый день,

условно у меня есть разные значения, которые необходимо округлить до целого значения. Если дробная часть больше 0,5, то вверх, если меньше, то вниз, учитывая знак:
-8554,45 -8554
-88,365 -88
98512,5 98513
-326,889 -327
-2248,32 -2248
125,33 125
12,3369 12
-987,326 -987

Я использую формулу
Код
=ЕСЛИ(ОСТАТ(ABS(A5);1)>=0,5;ОКРУГЛВВЕРХ(A5;0);ОКРУГЛВНИЗ(A5;0))

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

Спасибо!
Автор - volya09
Дата добавления - 20.02.2018 в 12:17
китин Дата: Вторник, 20.02.2018, 12:23 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
читаем правила, оформляем все согласно правилам, получаем квалифицированную помощь

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Вторник, 20.02.2018, 12:25
 
Ответить
Сообщениечитаем правила, оформляем все согласно правилам, получаем квалифицированную помощь
Автор - китин
Дата добавления - 20.02.2018 в 12:23
InExSu Дата: Вторник, 20.02.2018, 13:28 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
[vba]
Код
Sub round05()
Dim el As Range, d As Double
For Each el In Selection
  d = CDbl(el.Value)
  el.Value = IIf((d - Int(d)) > 0.5, _
    Int(d) + 1, _
    Int(d))
Next
End Sub
[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
[vba]
Код
Sub round05()
Dim el As Range, d As Double
For Each el In Selection
  d = CDbl(el.Value)
  el.Value = IIf((d - Int(d)) > 0.5, _
    Int(d) + 1, _
    Int(d))
Next
End Sub
[/vba]
Автор - InExSu
Дата добавления - 20.02.2018 в 13:28
volya09 Дата: Вторник, 20.02.2018, 13:41 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
InExSu, Большое спасибо!
 
Ответить
СообщениеInExSu, Большое спасибо!
Автор - volya09
Дата добавления - 20.02.2018 в 13:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на округление значений, оценивая дробную часть (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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