我有一个Userform,这是我的控制按钮的代码。尝试使用以下代码将文本框传递给函数
Private Sub pdclear_Click()
Dim textinput As TextBox
Set textinput = frmBigInputBox
Call clear(textinput)
End Sub
调试模式中以黄色突出显示的行是
Set textinput = frmBigInputBox
为什么会导致“13类型不匹配”错误?我做错了什么?
答案 0 :(得分:2)
尝试使用MSForms.TextBox。如在
Dim textinput As MSForms.TextBox
适合我。
答案 1 :(得分:1)
我可以重现错误并找到:http://forums.devx.com/showthread.php?168758-Excel-VBA-Using-TypeOf
所以你必须将其定义为MSForms.TextBox
,似乎。