Округление всех чисел в массивах данных до ближайшего целого

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Округление всех чисел в массивах данных до ближайшего целого (Формулы/Formulas)

ars1734

Дата: Понедельник, 01.01.2018, 20:04 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 89

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте уважаемые эксперты!

Столкнулся с такой проблемой: при расчетах программа выдала результаты с нецелыми числами (не знаю почему) т.е. в ячейке этого не видно, а в строке ячейки число указано с миллионными частями после запятой.
Покопался в сети - не нашел ответа как округлить все ячейки в массивах данных, если их выделить все.
Подскажите пожалуйста как это можно сделать, так как дальнейшие расчеты с такими числами начинают искажаться
Файл с массивами приложил

С Уважением!

К сообщению приложен файл: 1284480.xlsx (11.8 Kb)

Ответить

vikttur

Дата: Понедельник, 01.01.2018, 20:11 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Цитата

Столкнулся с такой проблемой

Ошибка стандарта вычислений с плававающей точкой (запятой), который применяется в вычислительной технике. если интересно, поищите в сети, информации море.

Цитата

как округлить все ячейки в массивах данных

1. Применить формулу с функцией ЦЕЛОЕ или ОКРУГЛ
2. Обработать диапазон макросом.

Ответить

ars1734

Дата: Понедельник, 01.01.2018, 20:14 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 89

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата vikttur, 01.01.2018 в 20:11, в сообщении № 2 ()

1. Применить формулу с функцией ЦЕЛОЕ или ОКРУГЛ
2. Обработать диапазон макросом.

Не совсем понимаю куда вбивать функцию ЦЕЛОЕ и ОКРУГЛ ведь в ячейке значение
В макросе функции округления не нашел
Информации по округлению массива в сети так же не вижу

Сообщение отредактировал ars1734 - Понедельник, 01.01.2018, 20:33

Ответить

bmv98rus

Дата: Понедельник, 01.01.2018, 21:33 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4127

Репутация: 770 ±

Замечаний: 0% ±

Excel 2013/2016

ars1734, в j5

Код

=ROUND(F5;0)

размножаете согласно вашим данным, после чего копировать и вставить значения куда вам надо.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Michael_S

Дата: Вторник, 02.01.2018, 09:16 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата ars1734, 01.01.2018 в 20:14, в сообщении № 3 ()

В макросе функции округления не нашел

[vba]

Код

Sub ars1734_Round()
    Dim Arr(), i&, k&
    Arr = Range("F5").CurrentRegion.Value
    For i = 1 To UBound(Arr)
        For k = 1 To UBound(Arr, 2)
            Arr(i, k) = Round(Arr(i, k), 0)
        Next k
    Next i
    Range("F5").CurrentRegion.Value = Arr
End Sub

[/vba]

или так, но на больших массивах будет притомаживать:
[vba]

Код

Sub ars1734_Round_1()
    Dim Cel As Range
    For Each Cel In Range("F5").CurrentRegion
        Cel.Value = Round(Cel.Value, 0)
    Next Cel
End Sub

[/vba]