VBA аналог функции ОКРВВЕРХ.МАТ

Вход

Регистрация

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

= Мир MS Excel/VBA аналог функции ОКРВВЕРХ.МАТ - Мир MS Excel

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

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

VBA аналог функции ОКРВВЕРХ.МАТ (Макросы/Sub)

VBA аналог функции ОКРВВЕРХ.МАТ

122255555

Дата: Среда, 13.07.2022, 15:32 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Доброго!
в VBA есть аналог функции ОКРВВЕРХ.МАТ(Число; 5000; 1)?

Ответить

Pelena

Дата: Среда, 13.07.2022, 15:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Можно использовать [vba]

Код

Application.WorksheetFunction.Ceiling()

[/vba]
или
[vba]

Код

Application.WorksheetFunction.Ceiling_Math()

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

122255555

Дата: Среда, 13.07.2022, 16:03 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 6

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

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

Pelena, спасибо!

Ответить

Gustav

Дата: Среда, 13.07.2022, 16:08 | Сообщение № 4

Группа: Админы

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

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

А можно еще прямо функцию в англоязычном написании использовать через метод Application.Evaluate (или через его короткий аналог [...]):
[vba]

Код

Sub Макрос1()
    Dim a As Double, b As Double

    a = Application.Evaluate("CEILING.MATH(10001,5000,1)")
    Debug.Print a

    b = [CEILING.MATH(10001,5000,1)]
    Debug.Print b
End Sub

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

122255555

Дата: Среда, 13.07.2022, 16:11 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 6

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

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

Gustav, спасибо!

Ответить

VBA аналог функции ОКРВВЕРХ.МАТ (Макросы/Sub)

Страница 1 из 1
1