用户表单组合框列表项 + 将用户表单值保存为 VBA Excel 中的变体

Question

我是第一次使用 Excel 用户表单，但遇到了一些麻烦。本质上，我想向我的用户询问三个值，然后将这些值作为变体保存在我的 vba 代码中以供以后使用。我最初设置我的 VBA 代码以使用三个单独的输入框来获取这三个值，但我发现这种拼写错误经常发生。相反，我希望用户只从值列表中进行选择。

这是盒子的样子：

我只希望那里的两个组合框每个都有两个选项，并且它们将始终是相同的选项，所以我不想将它们放在工作表上的列表中，我希望它成为VBA 代码。我的用户窗体名为 UserFormPYBTMT，组合框名为 cboxlBT 和 cboxlMT，文本框为 tbxxlPY。 这是我尝试过的：

Public Sub UserFormPYBTMT_Initialize()

'fill combobox for BT
    userformPYBTMT.cboxlBT.AddItem ("BTChoice1")
    userformPYBTMT.cboxlBT.AddItem ("BTChoice2")

'fill combobox for MT
    userformPYBTMT.cboxlMT.AddItem ("MTChoice1")
    userformPYBTMT.cboxlMT.AddItem ("MTChoice2")

End Sub

---------------------

Public Sub btnxlOK_Click()

End Sub

显然我那里也有 OK 按钮（我还没有编写任何代码），此时我希望 VBA 将组合框值保存为我的变体并关闭用户窗体。我要使用这些值的宏如下所示：

Sub SATV5()

Dim IBPYSAT As Variant
Dim IBMTSAT As Variant
Dim IBBTSAT As Variant

'Show the user form where we get the inputs for PY, MT, BT
userformPYBTMT.Show    

IBPYSAT = userformPYBTMT.tbxxlPY.Value
IBMTSAT = userformPYBTMT.cboxlMT.Value
IBBTSAT = userformPYBTMT.cboxlBT.Value

如果有人对用户表单和组合框有一定的了解，可以给我一些指点，我将非常感激。谢谢。

Answer 1

您应该将您的变量声明为公共变量，并且您应该hide 用户表单而不是关闭它。见下例：

Public IBPYSAT As String, IBMTSAT As String, IBBTSAT As String

Private Sub btnxlOK_Click()

'Show the user form where we get the inputs for PY, MT, BT

IBPYSAT = userformPYBTMT.tbxxlPY.Value
IBMTSAT = userformPYBTMT.cboxlMT.Value
IBBTSAT = userformPYBTMT.cboxlBT.Value

userformPYBTMT.Hide

Call MyMacroAfterClosingUserform

End Sub

Sub MyMacroAfterClosingUserform()
    MsgBox IBPYSAT & " is my Textbox value and " & IBMTSAT & " and " & IBBTSAT & " are my combobox values!"
    Unload userformPYBTMT 'now you can close userform after you are done with the variables!
End Sub