将值写入Userform - VBA中的文本框

Question

我正在尝试在Textbox中动态写入一个值，该文本框放在Userform上。这是我的代码，我在最后一行收到错误。它说需要对象。

Sub Userform1_Display()

TotalSelected = 0

With Sheets("Main").Ent_ListBox

    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
          Count = 1
          TotalSelected = TotalSelected + Count
        End If
    Next i

End With

'Useform'
Questionaire.Show

'TextBox placed in Userform'
N_Ent_TextBox.Value = TotalSelected


End Sub

请分享您的想法

Answer 1

看起来你的代码实际上并不在userform的类模块中 - 所以你需要完全限定对象：

Questionaire.N_Ent_TextBox.Value = TotalSelected

Answer 2

N_Ent_TextBox.Text = TotalSelected 试着用这个