VBA userform 2 commandbuttons +属性值到变量答案

【问题标题】：VBA userform 2 commandbuttons + attribute value to variableVBA userform 2 commandbuttons +属性值到变量
【发布时间】：2017-12-31 13:33:16
【问题描述】：

我只有基本的 VBA 知识。试图找到一种方法让用户在“内部”或“外部”两个值之间进行选择，然后根据结果运行代码的一部分或另一部分。

实现这一目标的最佳方法是什么？

我已经开始创建一个用户表单，但是如何将值 type_trade 返回到 sub 中，然后将其用于 if then 语句？

Private Sub External_Click()
    Dim type_trade As String
    type_trade = "external" 
End Sub

Private Sub Internal_B2B_Click()
    Dim type_trade As String
    type_trade = "Internal_B2B"
End Sub


Private Sub UserForm_Click()

End Sub

【问题讨论】：

标签： vba userform commandbutton

【解决方案1】：

实现此目的的一种方法如下：

Private type_trade As String

Private Sub External_Click()
   type_trade = "external"
End Sub

Private Sub Internal_B2B_Click()
   type_trade = "Internal_B2B"
End Sub

Private Sub SomeOtherPoint()
   If type_trade = "Internal_B2B" Then
      'do something
   End If
End Sub

【讨论】：

谢谢布赖恩，它帮助我弄清楚了。