Четыре сообщения в одном MsgBox, в зависимости от условий.

[segail]

Здравствуйте.
Подскажите, как с одного MsgBox выводить сообщения,

If MsgBox(Условия "Сообщения1", "Сообщения2", "Сообщения3", "Сообщения4"), vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub

в зависимости от условий?

Если TextBox3.Value = "" And TextBox_L.Value = "" то Сообщение1
Если TextBox3.Value <> "" And TextBox_L.Value <> "" то Сообщение2
Если TextBox3.Value <> "" And TextBox_L.Value = "" то Сообщение3
Если TextBox3.Value = "" And TextBox_L.Value<> "" то Сообщение4

[VictorM]

Цитата с сайта Климова П.Ю ака pashulka

Управляющая инструкция Select Case 'End Select
Эта инструкция в зависимости от результатов значения переменной или выражения выполняет один из нескольких фрагментов кода.

Пример :

Sub TestSelectCase()

iNumeric = 15

Select Case iNumeric
Case 1
MsgBox "Это сообщение Вы не должны увидеть"
Case 2, 5
MsgBox "Это сообщение Вы не должны увидеть"
Case 10 To 13
MsgBox "Это сообщение Вы не должны увидеть"
Case Is > 14
MsgBox "Именно это сообщение Вы и должны увидеть"
Case Else
MsgBox "Это сообщение появится, если переменная будет < 1"
End Select

End Sub

[аналитика]

select case true
   case TextBox3.Value = "" And TextBox_L.Value = "" : msg=Сообщение1
   case TextBox3.Value <> "" And TextBox_L.Value <> "" : msg=Сообщение2
   case TextBox3.Value <> "" And TextBox_L.Value = "" : msg=Сообщение3
   case TextBox3.Value = "" And TextBox_L.Value<> "" : msg=Сообщение4
end select
if msgbox (msg, ...)

в браузере чё-то Ctrl+Space не работает (слегка подбешивает), никто не знает?

[segail]

Сообщение от аналитика

select case true
   case TextBox3.Value = "" And TextBox_L.Value = "" : msg=Сообщение1
   case TextBox3.Value <> "" And TextBox_L.Value <> "" : msg=Сообщение2
   case TextBox3.Value <> "" And TextBox_L.Value = "" : msg=Сообщение3
   case TextBox3.Value = "" And TextBox_L.Value<> "" : msg=Сообщение4
end select
if msgbox (msg, ...)

в браузере чё-то Ctrl+Space не работает (слегка подбешивает), никто не знает?

Спасибо.................................... ..........................

[Aent]

Ну если выводить одним оператором MsgBox, то никто не отменял и стандартную функцию switch:

Switch Function

Evaluates a list of expressions and returns a Variant value or an expression associated with the first expression in the list that is True.

Syntax

Switch(expr-1, value-1[, expr-2, value-2 … [, expr-n,value-n]])

The Switch function syntax has these parts:

Part Description
expr Required. Variant expression you want to evaluate.
value Required. Value or expression to be returned if the corresponding expression is True.

Remarks

The Switch function argument list consists of pairs of expressions and values. The expressions are evaluated from left to right, and the value associated with the first expression to evaluate to True is returned. If the parts aren't properly paired, a run-time error occurs. For example, if expr-1 is True, Switch returns value-1. If expr-1 is False, but expr-2 is True, Switch returns value-2, and so on.

Switch returns a Null value if:


None of the expressions is True.
The first True expression has a corresponding value that is Null.

Switch evaluates all of the expressions, even though it returns only one of them. For this reason, you should watch for undesirable side effects. For example, if the evaluation of any expression results in a division by zero error, an error occurs.

Example
This example uses the Switch function to return the name of a language that matches the name of a city.

Function MatchUp (CityName As String)
    Matchup = Switch(CityName = "London", "English", CityName _
                    = "Rome", "Italian", CityName = "Paris", "French")
End Function

[segail]

Здравствуйте.
Посоветоваться.
Правильная ли раскладка Select Case для двух MsgBox ?

    Select Case True
        Case TextBox3.Value <> "" And ComboBox1.Value = "" _
        Or TextBox3.Value <> "" And ComboBox2.Value = "" _
        Or TextBox3.Value <> "" And TextBox4.Value = "": msg1 = " Сообщение1"
        If MsgBox(msg1, 64, "Информационное сообщение") Then Exit Sub
        '-------------------------------------------------------------------
        Case TextBox3.Value = "" And TextBox_L.Value = "": msg2 = "Сообщение2.1"
        Case TextBox3.Value <> "" And TextBox_L.Value <> "": msg2 = "Сообщение2.2"
        Case TextBox3.Value <> "" And TextBox_L.Value = "": msg2 = "Сообщение2.3"
        Case TextBox3.Value = "" And TextBox_L.Value <> "": msg2 = "Сообщение2.4"
    End Select
        If MsgBox(msg2, vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub
        Module2.ost