Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 221
от 13.02.2006, 05:12

Администратор:Калашников О.А.
В рассылке:Подписчиков: 115, Экспертов: 17
В номере:Вопросов: 1, Ответов: 2


Вопрос № 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.14 (бета) от 09.02.2006
Яндекс Rambler's Top100

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное