Кнопки параметров формы Excel VBA User Form

Question

Я создал пользовательскую форму, которая потребует, чтобы была выбрана кнопка опции (таким образом, отправляя электронное письмо предполагаемому получателю), в противном случае она будет отображать msgbox .

У меня проблема с утверждениями If And Then Else . Мне нужно, чтобы код продолжался, если выбрана одна из опциональных кнопок, отображать msgbox , только если не выбраны опциональные кнопки.

Я уверен, что это ошибка новичка. Любая помощь будет принята с благодарностью.

Private Sub cmdSend_Click()

If optbeasley.Value = False _
And optmaney.Value = False _
And optmessana.Value = False _
And opttimmerman.Value = False _
And opttrotter.Value = False _
Then MsgBox "Please Select a Contact"
Else:

Next i
Call Important_relocate_reformat

    If Me.optbeasley.Value = True Then
    Call Module4.Email_beasley
    Unload Me
    End If
        If Me.optmaney.Value = True Then
        Call Module4.Email_maney
        Unload Me
        End If
            If Me.optmessana.Value = True Then
            Call Module4.Email_messana
            Unload Me
            End If
                If Me.opttimmerman.Value = True Then
                Call Module4.Email_timmerman
                Unload Me
                End If
                    If Me.opttrotter.Value = True Then
                    Call Module4.Email_trotter
                    Unload Me
                    End If
                        If Me.chkMattBeasley.Value = True Then
                        Call Email_beasley
                        End If
If Me.chkRickLeshane.Value = True Then
Call Email_Important_Leshane
End If
        If Me.chkTimRuppert.Value = True Then
        Call Email_Important_Ruppert
        End If



End Sub
Private Sub optbeasley_Click()
If optbeasley.Value = True Then
        chkMattBeasley.Enabled = False
    Else
        chkMattBeasley.Enabled = True
    End If
End Sub

Private Sub optmaney_Click()
Call optbeasley_Click
End Sub
Private Sub opttimmerman_Click()
Call optbeasley_Click
End Sub
Private Sub opttrotter_Click()
Call optbeasley_Click
End Sub
Private Sub optmessana_Click()
Call optbeasley_Click
End Sub

Я отредактировал, чтобы показать использование вашего кода:

Private Sub cmdSend_Click()

If optbeasley = 0 And optmaney = 0 And optmessana = 0 And opttimmerman = 0 And opttrotter = 0 Then
MsgBox "Please Select a Contact"
Else: Call cmdSend_Click2
End If

End Sub

Answer 1

Это форматирование, по-видимому. Это работает -

Sub example()
Dim optbeasley As Range
Dim optmaney As Range
Dim optmessana As Range
Dim opttimmerman As Range
Dim optrotter As Range

Set optbeasley = Range("A1")
Set optmaney = Range("A2")
Set optmessana = Range("A3")
Set opttimmerman = Range("A4")
Set optrotter = Range("A5")

If optbeasley = False _
And optmaney = False _
And optmessana = False _
And opttimmerman = False _
And opttrotter = False Then
MsgBox "Please Select a Contact"
Else: MsgBox ("hi")
End If
End Sub