оператор выбора для значений двух переменных

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » оператор выбора для значений двух переменных (Макросы/Sub)

оператор выбора для значений двух переменных

baatr

Дата: Вторник, 09.08.2016, 16:20 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 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

Ответить

Udik

Дата: Вторник, 09.08.2016, 17:06 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

так точно работает
[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

Ответить

Karataev

Дата: Вторник, 09.08.2016, 20:43 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » оператор выбора для значений двух переменных (Макросы/Sub)

Страница 1 из 1
1