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

функции округления в Екселе:

ОКРВВЕРХ
ОКРВНИЗ
ОКРУГЛ
ОКРУГЛВВЕРХ
ОКРУГЛВНИЗ

Как вставить
Пусть у тебя числа для округления в столбце, тогда
1) в соседнем столбце выделяешь область по размеру округляемого диапазона.
2) жмешь вставка -> функция -> категория: математические выбираешь любимую или нужную по месту ф-цию, например, ОКРУГЛ
3)переместив курсор в поле число , мышью выделяешь диапазон чисел для округления
4) перемещаеш курсор в поле число разрядов и набираешь там 0 (ноль)
5) нажимаешь CTRL-Enter
----------------------------------
6) любуешся результатом.
----------------------------------

я не предлагал НИЧЕГО копировать
я предлагал округлять в СОСЕДНЕМ столбце.

как округлить в том же столбце без макроса, не знаю,
а макрос щас попробую изобрАзить

Jojoя тут рекордер запустил
посмотрел чё пишет

Sub Макрос1()
Range("D8:E10").Select
Selection.NumberFormat = "0.00"
Range("E8").Select
End Sub

Scio me nihil scire

<<Jojo®>>

Если попросить сумму от диапазона D8:E10, отобразить ее с форматом 0.00,
то в общем случае отображенное число не совпадет с суммой округленных значений.

2 Yanis

в диапазоне для округлени - числа или формулы?

вот макрос.
Использовать так
1) мышью выделть диапазон для округления
2) запустить макрос



Умнее, может что и получится, а пока,
Так сойдет?

какая-то проблема - не мог зпостить пару минут - а потомкак начали отщелкивать...

мдераторам - если можно - уберите лишнее...

Не слышно критики, а жаль...

Вот решил указать на несколько возможных "улучшайзингов".
(Улучшить что-то кардинально - переформулировать задачу - не смог - сдаюсь).

Постараюсь перечислить в порядке убывания "важности", на свой взгляд.

1) On Error Resum Next - это для порядка

2) Set tRange = Selection.SpecialCells(xlConstants,xlNumbers)
это позволит работать с произвольным выделением,
округляя только числа и пропуская пустые клетки, формули и строки.

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

lngDecPlaces = VBA.InputBox("Знаков после запятой:", "Точность округления", 0)

4) Для ускорения последней фазы - передачи пересчитанного массива обратно диапазону - должно быть полезно отключение перерисовки экрана и
установка режима ручного пересчета.

До передачи массива
Dim oldCalcMode As Long

Application.ScreenUpdating = False
oldCalcMode = Application.Calculation
Application.Calculation = xlCalculationManual


Перед завершением макроса
Application.Calculation = oldCalcMode
'пересчитаем измененный лист
tRange.Worksheet.Calculate ' спорное утверждение - варианты
'не пересчитывать
' пересчитать все открытые книги
Application.ScreenUpdating = True

5) Для ускорения обращения к Round полезно прокешировать объект WorksheetFunction.

Dim tF As WorksheetFunction
Set tF = Application.WorksheetFunction

тогда тело внутреннего цикла будет выглядеть так

v(i, j) = tF.Round(v(i, j), lngDecPlaces)

6) для ОЧЕНЬ больших выделений - можно попробовать пооптимизировать обращение к массиву, преобразовав его из двумерного в одномерный,
тогда сам собой исчезнет внутренний цикл. При этом придется вводить вспомогательны фукции, и , в любом случае, применять Win API.