Страницы: 1
RSS
Распределение суммы по ячейкам выделенного диапазона, Вставляет значение округленное, а нужна бОльшая точность
 
Добрый день!
Сделал макрос, работает нормально, но с одной не точностью.
Пример во вложении, распределял на выделенный диапазон сумму 123, а теперь сумма 120
Помогите пожалуйста
Макрос следующий:
Код
Sub распределение_на_выделенный_диапазон()
' вначале выделить диапазон, затем запустить макрос и указать сумму

Dim a As Long
a = InputBox("Общий расход")

Dim x  As Long
x = Selection.SpecialCells(xlCellTypeVisible).Count

Dim c As Long
c = a / x
Selection.SpecialCells(xlCellTypeVisible).Value = c
End Sub
Изменено: knyazkof - 14.02.2019 13:31:36
 
Код
Dim c!

knyazkof, оформите код в своем сообщении таким тегом: "<...>"

ps/ если нужна еще большая точность, то
Код
Dim c#
Изменено: Михаил Витальевич С. - 14.02.2019 13:18:10
 
Спасибо! Теперь намного лучше
Страницы: 1
Наверх