VBA：将 arguments 传递给用户表单时出现问题

Question

我已经搜索并尝试了 6 个小时，但我无法解决问题。

我的想法：我想在 Excel-VBA 中显示一个用户表单，其中包含一些单选按钮、一个列表元素和一个文本字段。 我想将一些 arguments 传递给用户表单以使用它，因为我不想在用户表单代码（有效）内部进行计算，我也不想声明全局变量。

我尝试了以下方法：

• 直接在用户表单中计算

• 全局变量

这没有奏效：

• 将 userform 声明为变量并使用该变量

• [Public|Private|Friend] Property Let (ByRef|ByVal)的所有可能组合

• Property Set在任何情况下都不起作用

我的主要（模块）中的代码

Option Explicit

Sub main()
    With New usr_mainInput
        .counter = 3
        .Show
    End With
End Sub

我在用户表单中的代码

Option Explicit

Private miCounter As Integer

Property Get counter() As Integer
    counter = miCounter
End Property
Property Let counter(c As Integer)
    Set miCounter = c
End Property

Private Sub userform_initialize()
    Dim i As Integer
    For i = 1 To counter           'miCounter don't work as well
        Debug.Print i
    Next i
End Sub

Private Sub btn_ok_Click()
    Me.Hide
End Sub

Object 变量或未设置块变量

如果涉及到Property Let counter()它会抛出一个编译错误：

需要 Object（错误 424）

Answer 1

Property Let counter(c As Integer) Set miCounter = c End Property

一个object 是必需的，只是因为Set关键字。 这不是引用赋值，而是值赋值。

像这样查看它：

Property Let counter(c As Integer)
    Let miCounter = c
End Property

只是不要真正输入Let关键字（虽然它会起作用），它已经过时了:)

另请注意， Property Let/Set过程参数的隐式修饰符始终为 Byval - 这与Byval中的其他任何内容不同，其中隐式修饰符为ByRef ； 考虑使ByVal修饰符显式。

---

 Private Sub userform_initialize() Dim i As Integer For i = 1 To counter 'miCounter don't work as well Debug.Print i Next i End Sub

该循环将永远不会迭代任何内容，因为Initialize处理程序在这里运行：

 With New usr_mainInput

我的意思是，它在New usr_mainInput指令返回时运行，但在 object 引用被提供给With块之前（请注意，这对于任何 class 都是如此，而不仅仅是表单） - 这远远早于.counter = 3分配，规则拇指，您想在该处理程序中初始化实例 state，而不是使用它。

请考虑改用Activate处理程序。 那个将在.Show调用之后立即运行。