Страницы: 1
RSS
Макрос Excel для проверки полей на значения и вывода сообщения про ошибку или ее отсутствие в этом поле, Макрос Excel
 
И так... У меня есть задание на создания макроса, который будет проверять значения полей на их правильность и выводить сообщение если в нем есть ошибка, или ошибки нет. У меня есть вопрос по поводу того как соединить эти две задачи.. Этот макрос дает возможность увидеть есть ли ошибка в данных полях, но мне нужно еще что бы оно показывала если нет ошибки.

После запуска макроса если есть ошибка в нескольких полях, то он выводит только крайнюю ошибку, а все сразу не выводит. Подскажите пожалуйста:
1)как мне лучше сделать, что бы выводило ошибку во всех полях сразу
2) выводило сообщение про отсутствие ошибок
Заранее спасибо за помощь
Код
Sub Макрос1()
'
    Range("A5").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    If Range("A6") <> "№" Then
    Range("A5") = " False A6"
    End If
    If Range("B6") <> "Фамилия" Then
    Range("A5") = "False B6"
    End If
    If Range("C6") <> "Имя" Then
    Range("A5") = "False C6"
    End If
End Sub
 
Код
   dim s$
   s = "На листе нет необходимых данных:"
   If Range("A6") <> "№" Then s = s & vblf & "A6 - нет №"
   If Range("B6") <> "Фамилия" Then s = s & vblf & "В6 - нет Фамилия"
   If Range("C6") <> "Имя" Then s = s & vblf & "С6 - нет Имя"
   End If
   if s <> "На листе нет необходимых данных:" then msgbox s, , vbcritical
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх