Как применить функцию ОКРВВЕРХ.ТОЧН в VBA?

Artem1977 Пользователь Сообщений: 186 Регистрация: 28.02.2017	#1 25.04.2025 16:48:32 Здравствуйте! Потребовалось из формул перейти на макрос и столкнулся с непониманием как в VBA использовать данную функцию. Подскажите пожалуйста. Спасибо Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit

DAB

Пользователь

Сообщений: 476 Регистрация: 18.01.2019

25.04.2025 19:30:23

Попробуйте в модуль вставить (число из А1 округляется вверх до целого и выводится в В1)

Код

Sub ОкруглитьВверх_В_B1()
    Dim число As Double
    Dim результат As Double

    число = Range("A1").Value
    результат = WorksheetFunction.RoundUp(число, 0)

    Range("B1").Value = результат
End Sub

Изменено: DAB - 25.04.2025 19:31:47

Sanja Модератор Сообщений: 19487 Регистрация: 10.01.2013	#3 25.04.2025 19:32:22 Похоже на это Метод WorksheetFunction.MRound Согласие есть продукт при полном непротивлении сторон

Artem1977 Пользователь Сообщений: 186 Регистрация: 28.02.2017	#4 26.04.2025 03:30:25 DAB, Sanja, нет, это не то, к сожалению Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit

Artem1977

Пользователь

Сообщений: 186 Регистрация: 28.02.2017

26.04.2025 04:05:12

ИИ предложил следующий вариант:

Код

Function ОКРВВЕРХ_ТОЧН_РУЧНАЯ(число As Double, точность As Double) As Double
    If точность = 0 Then
        ОКРВВЕРХ_ТОЧН_РУЧНАЯ = Int(число) + IIf(число - Int(число) > 0, 1, 0)
    Else
        ОКРВВЕРХ_ТОЧН_РУЧНАЯ = Int((число + точность - 0.0000000000001) / точность) * точность
    End If
End Function

Проверил. Вроде работает как надо. Может кому когда пригодится
Всем ответившим СПАСИБО.

Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit

Читают тему