Множественная связка msgbox в userform

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

Множественная связка msgbox в userform (Макросы/Sub)

gizon

Дата: Четверг, 13.04.2017, 17:20 | Сообщение № 1

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

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

Сообщений: 16

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

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

Excel 2007

Доброго времени суток.
Пытаюсь настроить правильную связку вывода сообщений перед вводом данных на лист.
Получилось так себе, срабатывает только первое прописанное условие, остальные блокируются.
Очень прошу проверить на ошибки.

К сообщению приложен файл: _msgbox.xls (58.0 Kb)

Ответить

RAN

Дата: Четверг, 13.04.2017, 18:43 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

And ComboBox3 = "монтаж" And ComboBox3 = "проектирование"

[/vba]
2 мухи в одной котлете?
Запишите свои условия руским языком, и поглядите, что получилось.
И, до кучи, одно условие из многих - это или

Быть или не быть, вот в чем загвоздка!

Ответить

gizon

Дата: Четверг, 13.04.2017, 19:13 | Сообщение № 3

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

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

Сообщений: 16

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

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

Excel 2007

Так совсем не в том направлении?

К сообщению приложен файл: _msgbox-1-.xls (52.0 Kb)

Ответить

RAN

Дата: Четверг, 13.04.2017, 19:25 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

2 if подряд будут работать только так
[vba]

Код

if... then
.....
end if
if... then
.....
end if

[/vba]
или
[vba]

Код

if... then
.....
elseif... then
.....
end if

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

gizon

Дата: Четверг, 13.04.2017, 19:40 | Сообщение № 5

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

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

Сообщений: 16

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

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

Excel 2007

RAN, преогромное спасибо за подсказку, с elseif работает как надо!

Ответить

krosav4ig

Дата: Четверг, 13.04.2017, 20:20 | Сообщение № 6

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

до кучи
[vba]

Код

Private Sub CommandButton1_Click()
    If TextBox7 <> "" Then
        Select Case True
            Case TextBox1 & ComboBox3 = ""
                MsgBox "Заполните № заявки, либо выберите особую услугу"
            Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование"
                MsgBox "Заполните участок"
            Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _
                 ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс."
                MsgBox "Заполните все поля"
            Case Else
                dodav
        End Select
    Else
        MsgBox "Не указана дата"
    End If
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 20:22

Ответить

Множественная связка msgbox в userform (Макросы/Sub)

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