Несколько условий в условии

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Несколько условий в условии (Макросы/Sub)

televnoy

Дата: Вторник, 18.04.2017, 12:27 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Доброго времени суток, УВАЖАЕМЫЕ =)
В общем помогите создать условие с условиями...

Часть работает корректно отдельно
[vba]

Код

Sub _______

Dim st As String
         st = ""
         For Each con In Me.Controls
         If con.Name Like "txt*" Or con.Name Like "cb*" Then
         If con.Text = "" Then st = st & vbCr & con.Tag
         End If
        Next
         If st <> "" Then
             MsgBox "Не заполнены следующие поля:" & st
         Else
         MsgBox "Здесь продолжается выполнеия условия1"
         End If

End sub

[/vba]

Задача у меня создать условие, при котором вышеупомянутое условие выполнялось.

[vba]

Код

Private Sub CommandButton1_Click()

'Условие при включенном чек боксе

If CheckBox1.Value = True Then
'__________________________
         Dim st As String
         st = ""
         For Each con In Me.Controls
         If con.Name Like "txt*" Or con.Name Like "cb*" Then
         If con.Text = "" Then st = st & vbCr & con.Tag
         End If
        Next
         If st <> "" Then
             MsgBox "Не заполнены следующие поля:" & st
         Else
         MsgBox "Здесь продолжается выполнение условия 1"
         End If
'Условие при выключенном чекбоксе
    Next
        Else
        CheckBox1.Value = False
'__________________________
        Dim st As String
         st = ""
         For Each con In Me.Controls
         If con.Name Like "txt1*" Or con.Name Like "cb1*" Then
         If con.Text = "" Then st = st & vbCr & con.Tag
         End If
        Next
        If st <> "" Then
        MsgBox "Не заполнены следующие поля:" & st
        Else
        MsgBox "Здесь продолжается выполнение условия я"
        End If

End Sub

[/vba]

Наверняка куча ошибок, может ранее и удалось написать более менее корректное действие но оно все ровно не выполнялось, это уже последний способ был который выложил.

Для включения формы кнопка на листе

P.S. Поясню задачу при первом условии проверяются ТextBox-ы (с началом txt) и если они пусты, то выводиться в сообщении список тэгов ТextBox-ов, при
втором условии ТextBox-ы (с началом txt1) и если они пусты, то выводиться в сообщении список тэгов ТextBox-ов

Код

[/vba]

Задача у меня создать условие, при котором вышеупомянутое условие выполнялось.

[vba]

Код

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

О-па! 0_o

Сообщение отредактировал televnoy - Вторник, 18.04.2017, 12:45

Ответить

СообщениеДоброго времени суток, УВАЖАЕМЫЕ =)
В общем помогите создать условие с условиями...

Часть работает корректно отдельно
[vba]

Код

[/vba]

Задача у меня создать условие, при котором вышеупомянутое условие выполнялось.

[vba]

Код

Автор - televnoy
Дата добавления - 18.04.2017 в 12:27

_Boroda_

Дата: Вторник, 18.04.2017, 13:14 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Если честно, я не очень понял Ваше пожелание. Может, вот так?
[vba]

Код

Private Sub CommandButton1_Click()
    Dim st As String
    If CheckBox1.Value = True Then
        For Each con In Me.Controls
            If con.Name Like "txt*" Or con.Name Like "cb*" Then
                If con.Text = "" Then st = st & vbCr & con.Tag
            End If
        Next
        If st <> "" Then
            MsgBox "Не заполнены следующие поля:" & st
        Else
            MsgBox "Здесь продолжается выполнеия условия1"
        End If
    Else
        st = ""
        For Each con In Me.Controls
            If con.Name Like "txt1*" Or con.Name Like "cb1*" Then
                If con.Text = "" Then st = st & vbCr & con.Tag
            End If
        Next
        If st <> "" Then
            MsgBox "Не заполнены следующие поля:" & st
        Else
            MsgBox "Здесь продолжается выполнеия условия2"
        End If
    End If
End Sub

[/vba]

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995