OptionButton决定在macros中使用的值

一个基本的简单的VBA问题，我还没有能够解决，即使有很多关于它的教程。

我想要一个用户窗体popup，给你两个选项（OptionButton1和OptionButton2）。 你select一个，点击确定。 并根据select什么选项使用某个值（在一个电子邮件，我DID完成macros）。 为了简化目的，我现在只想在单元格A1中打印variables“内容”。

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

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 

有多个问题：variables不显示在单元格A1中，当我按下发送电子邮件时，表单未closures。 我可能做了很多错误的东西，但它是第一次使用用户窗体。 泰非常

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