Пара вопросов о TextBox

[Mrsqler]

Спасибо большое,всё работает)

[Mrsqler]

Еще было бы неплохо найти количество незаполненных ячеек,всего их 12,и если хотя бы одна из них не заполнена,то выводилось сообщение об ошибке.Вот что у меня получилось,но это не работает.

For i = 1 To 12
     If TextBox(i).Value = IsNothing Then
        Next i
      MsgBox("Введите значения!")

Ошибка появляется такая Sub or Function not defined и ругается именно на TextBox

[IgorGO]

for each c in ???.controls
  if c.name like "textbox*" then
    if c.value = "" then msgbox "есть пустые ТЕКСТБОКСЫ!!1"...
  end if
next

примера нет. не знаю, где расположены Ваши ТекстБоксы... поэтому вместо ??? надо вписать владельца ТекстБоксов.

[Mrsqler]

Тоже не работает

 For Each c In UserForm1.Controls
  If c.Name Like "TextBox" Then
    If c.Value = "" Then MsgBox "есть пустые ТЕКСТБОКСЫ!!1"
  End If
Next c

Вылазит ошибка Type mismatch

[VictorM]

так работает

Dim iControl As MSForms.Control
For Each iControl In Me.Controls
    If TypeName(iControl) = "TextBox" Then
    If iControl.Value = "" Then MsgBox "есть пустые ТЕКСТБОКСЫ!!1"
    End If
Next

[Mrsqler]

Ваш код не совсем как хотелось бы работает)Там еще 13 раз выводится сообщение "введите значения".Я попытался вытащить его из цикла,но опять пошли ошибки(

For Each iControl In Me.Controls
    If TypeName(iControl) = "TextBox" Then
    If iControl.Value = "" Then
    Next iControl
     MsgBox "Введите значения"
    End If

Еще вот вариант

If TextBox7.Text = IsNothing Then
MsgBox "Введите значения"

Если в текстбоксе7 значение не ввести,то появится сообщение "введите значения")А вот если в текстбоксе7 ввести,а в остальных нет,то ошибка появится)
Вообще не знаю...Можно же сделать так? Это не очень грубой ошибкой будет?

[IgorGO]

пример выложите, а то тема будет закрыта ввиду бессмысленности

[Mrsqler]

Почему же бессмысленности?Короче вот мой код.
Я пытался написать решение систем линейных уравнений методом Крамера.
В принципе всё получилось,не могу только нормально проверку сделать,на пустые ячейки.

[VictorM]

Ваш код не совсем как хотелось бы работает

Код работает так, как было задано выше.
Вот так просто выведет кол-во пустых

Dim iControl As MSForms.Control
    s = 0
    For Each iControl In Me.Controls
        If TypeName(iControl) = "TextBox" Then
            If iControl.Value = "" Then s = s + 1
        End If
    Next
    MsgBox "На форме " & s & " пустых ТЕКСТБОКСОВ. Введите значения!"

Похоже, собственно то, что нужно

[VictorM]

Проверил в файле.
Все работает.
Только нужно добавить выход при наличии пустых.
Иначе в ошибку выпадет.

s = 0
    For Each iControl In Me.Controls
        If TypeName(iControl) = "TextBox" Then
            If iControl.Value = "" Then s = s + 1
        End If
    Next
    MsgBox "На форме " & s & " пустых ТЕКСТБОКСОВ. Введите значения!"
   Exit Sub