Excel: проверить содержимое нескольких ComboBox одновременно - PullRequest
0 голосов
/ 31 января 2020

У меня есть пользовательская форма с CombBox1 через ComboBox5, и я пытаюсь определить код, чтобы проверить, все ли они пустые или все они заполнены. Оба эти варианта подходят для моего кода. Но я хочу, чтобы либо отображался MsgBox и End Sub, либо не вставлялись поля, в которых есть данные, в случае, если все поля не содержат данных. Приведенный ниже код проверяет первые два поля, но это кажется громоздким.

If ComboBox1 = vbNullString And ComboBox2 <> vbNullString Then
    ComboBox1.SetFocus
    MsgBox ("Either insert Name, or clear all boxes on row.")
    Exit Sub

Else

Sheet1.Range("A6") = ComboBox1.Text
Sheet1.Range("B6") = ComboBox2.Text
Sheet1.Range("C6") = ComboBox3.Text
Sheet1.Range("D6") = ComboBox4.Text
Sheet1.Range("E6") = ComboBox5.Text
End If

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...