Ошибка кнопки выбора - выбор перед отправкой - PullRequest
Новая
       54

Ошибка кнопки выбора - выбор перед отправкой

0 голосов
/ 27 мая 2020

В моей пользовательской форме я хотел, чтобы все поля были заполнены перед отправкой формы. С помощью кода ниже мне удалось получить все красное и зеленое, как я хотел, и я не могу отправить, пока все не будет заполнено (моя цель этого кода), однако у меня проблема с кнопкой выбора. У меня есть кнопки выбора, и он просит меня нажать на них обе. Ниже приведены 2 кнопки выбора, которые у меня есть, и мне нужно выбрать только одну. 

Private Sub OptionButton1_Click()
If OptionButton1.value = True Then
    Range("J4").value = "MONTHLY CHECK"
    End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.value = True Then
    Range("J4").value = "OPERATIONAL DAY"
    End If
End Sub

И это код, который у меня есть для заполнения всех полей перед отправкой формы. 

Dim sh As Worksheet, lastRow As Long
    For Each ctrl In Me.Controls
        Select Case True
            Case TypeOf ctrl Is msforms.CheckBox, TypeOf ctrl Is msforms.OptionButton
                Select Case ctrl.value
                    Case True
                        ctrl.BackColor = vbGreen
                    Case Else
                        ctrl.BackColor = vbRed: ans = ans + 1
                End Select
            Case TypeOf ctrl Is msforms.TextBox, TypeOf ctrl Is msforms.ComboBox
                Select Case ctrl.value
                    Case vbNullString
                        ctrl.BackColor = vbRed: ans = ans + 1
                    Case Else
                        ctrl.BackColor = vbGreen
                End Select
        End Select

Любая помощь с этой проблемой?

Спасибо за аванс,

...