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調用之后立即運行。