Макрос по структурам

= Мир MS Excel/Макрос по структурам - Мир MS Excel

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

Дата: Понедельник, 04.01.2021, 15:19 | Сообщение № 1

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

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

Сообщений: 1

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

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

Здравствуйте, вот даны числа 648 и 734, как определить наименьшее значение в последней цифре?

Дата: Понедельник, 04.01.2021, 15:47 | Сообщение № 2

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Можно так
[vba]

Код

Sub minlast1()
    a = 648
    b = 734
    If a Mod 10 < b Mod 10 Then min_last = a Mod 10 Else min_last = b Mod 10
    MsgBox min_last
End Sub

[/vba]
или так
[vba]

Код

Sub minlast2()
    a = 648
    b = 734
    MsgBox Application.Min(a Mod 10, b Mod 10)
End Sub

[/vba]

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