Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2013, 14:28   #1
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию VBA констуркция If?

1. Как проверить через If тройное условие или более чем 3?

Пример:
If (a <> b <> c <> d <> f) Then Exit Function - не работает!

Спасибо!

Последний раз редактировалось Stem79; 07.02.2013 в 14:30.
Stem79 вне форума Ответить с цитированием
Старый 07.02.2013, 15:10   #2
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Код:
If (a <> b) And (c <> d) And (b <> c) And (c <> f)Then
попробуйте так.
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 07.02.2013, 15:10   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

а что Вы хотите добится таким замысловатым кодом?!?

Если нужно выходить, когда ВСЕ переменные не равны друг другу, то
это как-то так можно записать (для 3-х переменных - больше лень расписывать, уж больно много вариантов получается):
Код:
   If (a <> b) And (a <> c) And (b <> c) Then Exit Function
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.02.2013, 15:21   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

if (a-b)*(b-c)*(c-d)*...*(e-f) = 0 then ... какая-то пара одинаковы
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 07.02.2013, 15:30   #5
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию

А точно оператор And, может Or? Если хоть одна из конструкций не равна...
Stem79 вне форума Ответить с цитированием
Старый 07.02.2013, 15:30   #6
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
if (a-b)*(b-c)*(c-d)*...*(e-f) = 0 then ... какая-то пара одинаковы
Да, спасибо...
Stem79 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Совместимость Excel 2007 VBA - Excel 2010 VBA Genas Microsoft Office Excel 2 28.11.2012 15:33
Из VB в VBA kss Microsoft Office Excel 1 06.09.2012 22:56
VBA Word,VBA Excel решить 2 задачи fafolo4ka Фриланс 6 05.03.2012 01:15
VBA ladymarmelade Microsoft Office Excel 1 18.12.2011 16:41
VBA aqua15 Помощь студентам 0 12.12.2010 20:22