VBA将文本框条目转换为整数

Question

我正在尝试将文本框条目转换为整数：

 Dim cplayers() As Variant: cplayers = Array ("Danny", "Freddy", "Billy", "Tommy")
 Dim i As Integer
 i = CInt(TextBox3)
 MsgBox (cplayers(i) & " is on first base.")

当我现在运行时，消息框始终显示＆＃34; Danny位于一垒。＆＃34;所以它必须将文本框读为空，并假设条目为0。我应该改变什么？

Answer 1

保存文本框实际条目的字段似乎是＆＃34; TextBox3.text＆＃34;

Dim cplayers() As Variant: cplayers = Array ("Danny", "Freddy", "Billy", "Tommy")
Dim i As Integer
i = CInt(TextBox3.text)
MsgBox (cplayers(i) & " is on first base.")

还有一个检查可以帮助您防止计算中的错误输入。您可以使用isNumeric()确定输入的值是否为有效数字If IsNumeric(TextBox3.text) Then

Answer 2

您可以使用ActiveX文本框导入值。

  

要插入：开发人员标签＆gt;插入＆gt; ActiveX控件＆gt;文本框（ActiveX控件）

然后您可以提取您的价值：

Option Explicit
Sub Test()

Dim cplayers() As Variant: cplayers = Array("Danny", "Freddy", "Billy", "Tommy")
Dim i As Integer

i = TextBox1.Value
MsgBox cplayers(i) & " is on first base."

End Sub

你也可以参考这个对象，但这里有点矫枉过正。