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

Вход

Регистрация

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

 

= Мир MS Excel/оператор выбора для значений двух переменных - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » оператор выбора для значений двух переменных (Макросы/Sub)
оператор выбора для значений двух переменных
baatr Дата: Вторник, 09.08.2016, 16:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
добрый день,

такой вопрос:

есть две переменных а и b, которые могут быть равны нулю либо больше нуля.

т.е. возможно 4 варианта:

1) а = 0, b = 0
2) a > 0, b = 0
3) a > 0, b > 0
4) a = 0, b > 0

вроде бы можно и так:

[vba]
Код
Select Case True
Case a = 0 And b = 0
MsgBox ("a=0 and b =0")
Case a > 0 And b > 0
MsgBox ("a>0 and b>0")
Case a > 0 And b = 0
MsgBox ("a>0 and b=0")
Case a = 0 And b > 0
MsgBox ("a=0 and b > 0")

End Select
[/vba]

но сомневаюсь.

Есть ли др. вариант?


Сообщение отредактировал Manyasha - Вторник, 09.08.2016, 17:20
 
Ответить
Сообщениедобрый день,

такой вопрос:

есть две переменных а и b, которые могут быть равны нулю либо больше нуля.

т.е. возможно 4 варианта:

1) а = 0, b = 0
2) a > 0, b = 0
3) a > 0, b > 0
4) a = 0, b > 0

вроде бы можно и так:

[vba]
Код
Select Case True
Case a = 0 And b = 0
MsgBox ("a=0 and b =0")
Case a > 0 And b > 0
MsgBox ("a>0 and b>0")
Case a > 0 And b = 0
MsgBox ("a>0 and b=0")
Case a = 0 And b > 0
MsgBox ("a=0 and b > 0")

End Select
[/vba]

но сомневаюсь.

Есть ли др. вариант?

Автор - baatr
Дата добавления - 09.08.2016 в 16:20
Udik Дата: Вторник, 09.08.2016, 17:06 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1218
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
так точно работает
[vba]
Код

Public Sub test()
Dim a As Integer, b%

a = 1
b = 0

Select Case Abs((a > 0) + 2 * (b > 0))
Case 0
MsgBox ("a=0 and b =0")
Case 1
MsgBox ("a>0 and b=0")
Case 2
MsgBox ("a=0 and b > 0")
Case 3
MsgBox ("a>0 and b>0")
End Select
End Sub

[/vba]


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщениетак точно работает
[vba]
Код

Public Sub test()
Dim a As Integer, b%

a = 1
b = 0

Select Case Abs((a > 0) + 2 * (b > 0))
Case 0
MsgBox ("a=0 and b =0")
Case 1
MsgBox ("a>0 and b=0")
Case 2
MsgBox ("a=0 and b > 0")
Case 3
MsgBox ("a>0 and b>0")
End Select
End Sub

[/vba]

Автор - Udik
Дата добавления - 09.08.2016 в 17:06
Karataev Дата: Вторник, 09.08.2016, 20:43 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 227 ±
Замечаний: 0% ±

Excel
baatr, почему сомневаетесь, ведь работает. Я проверил - работает Ваш вариант.


 
Ответить
Сообщениеbaatr, почему сомневаетесь, ведь работает. Я проверил - работает Ваш вариант.

Автор - Karataev
Дата добавления - 09.08.2016 в 20:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » оператор выбора для значений двух переменных (Макросы/Sub)
Страница 1 из 11
Поиск:

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