Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по структурам (Макросы/Sub)
Макрос по структурам
splat_f Дата: Понедельник, 04.01.2021, 15:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - splat_f
Дата добавления - 04.01.2021 в 15:19
Pelena Дата: Понедельник, 04.01.2021, 15:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17242
Репутация: 3767 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Можно так
[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]

Автор - Pelena
Дата добавления - 04.01.2021 в 15:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по структурам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!