Question

一个基本的简单VBA问题，即使有很多关于它的教程，我也无法解决这个问题。

我希望弹出一个Userform，给你两个选项（OptionButton1和OptionButton2）。你选择一个，点击确定。并且根据选择的选项使用某个值（在电子邮件中，我DID完成宏）。为了简化目的，我现在只想要变量＆＃39;内容＆＃39;在单元格A1中打印。

到目前为止我有这些部分：

Sub MailOption()
UserForm1.Show
End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Var1 = "Text example 1"
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Var1 = "Text example 2"
End Sub

Private Sub SendEmail_Click()
Cells(1, 1).Value = Var1
End Sub

存在多个问题：单元格A1中未显示变量，当按下发送电子邮件时，表单未关闭。我可能做了很多错误，但它第一次使用userform。 Ty非常

Answer 1

我只是在没有处理OptionButton_Click的情况下使用这个：

Private Sub SendEmail_Click()
    Dim res As String
    If OptionButton1.Value Then
        res = "Text example 1"
    ElseIf OptionButton2.Value Then
        res = "Text example 2"
    Else
        res = "Nothing is selected"
    End If
    'write result in cell
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = res
    'close form
    Unload Me
End Sub

OptionButton确定值然后在宏中使用

1 个答案: