VBA Vlookup内循环不工作

如果我在Vlookup上输入数字5065544，那么我的代码工作得很好，但是如果我输入“5065544”，那么代码就不工作，对于我的控件也是如此，即使它们包含数字5065544。我认为，这是文本格式的问题，为了解决这个问题，我在控件之前尝试了CInt、Int、CLng、Val（）等，但仍然不起作用

---

我能修好它。函数Int工作正常。似乎是我的错误。

在循环之前写下这些，以查看

UserForm1.Controls上是否有一些值，以及您是否得到了它：

For i = 2 To countSeca  
totalSeca = totalSeca + Application.WorksheetFunction.VLookup(UserForm1.Controls("TextBox" & (i + 6)).Value, rngSeca, 2, False)  
Next i

最后一行显示了
rngSeca的地址及其工作表名称。
您收到了什么错误消息？您确定查找值存在吗？如果找不到无法添加的错误值，您将得到一个错误值。您是否尝试过UserForm1.Controls（“TextBox”和（i+6））.Value*1？当UserForm1.Controls（“TextBox”&（i+6））.value失败时，它的值是多少？
MsgBox UserForm1.Controls("TextBox" & (2 + 6)).Value
MsgBox UserForm1.Controls("TextBox" & (3 + 6)).Value
MsgBox UserForm1.Controls("TextBox" & (4 + 6)).Value
MsgBox UserForm1.Controls("TextBox" & (5 + 6)).Value
MsgBox rngSeca.Address & rngSeca.Parent.Name