Вопрос № 34940: Уважаемые эксперты прошу Вашей помощи!
Как в VBA найти минимальное число среди восьми переменных
т.е есть восемь переменных (m1,m2,m3,m4,m5,m6,m7,m8) каждой переменной присвоино число из них нужно найти переменную с минимальным значением??<br...
Вопрос № 34.940
Уважаемые эксперты прошу Вашей помощи!
Как в VBA найти минимальное число среди восьми переменных
т.е есть восемь переменных (m1,m2,m3,m4,m5,m6,m7,m8) каждой переменной присвоино число из них нужно найти переменную с минимальным значением??
Заранее спасибо!
Отправлен: 07.02.2006, 14:53
Вопрос задал: Гунин Д.М. (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: MrLexus
Здравствуйте, Гунин Д.М.!
Код в приложении.
Не забудь вместо цифр присваивать значения переменных, т.е. arr(0)=m1 и т.д.
Присвой правильные значения типов переменных при объявлении в Dim
Ну и вывод результата соотв.
Удачи!!!
Приложение:
--------- Замысел без умысла - это вымысел!!!
Ответ отправил: MrLexus (статус: Профессионал)
Отправлен: 07.02.2006, 18:26
Отвечает: AlexanderZh
Здравствуйте, Гунин Д.М.!
Function Min() as ...
Min=m1
if Min>m2 then Min=m2
if Min>m3 then Min=m3
if Min>m4 then Min=m4
if Min>m5 then Min=m5
if Min>m6 then Min=m6
if Min>m7 then Min=m7
if Min>m8 then Min=m8
End Function
Ответ отправил: AlexanderZh (статус: 4-ый класс)
Отправлен: 08.02.2006, 13:26