以下代码失败（Excel VBA）x = 1如果Textbox.Value = x则...

Posted 2021-04-20

TextBox中的值为1

运行下面的代码后，MsgBox显示0。

但是当我将第四个代码行中的x1更改为1时，MsgBox成功显示1。

或者，如果我将“TextBox.value”更改为“Range（”A1“）。值”，MsgBox在将1放入Range（“A1”）后成功显示1。

结果，细胞似乎理解变量，但TextBoxes不？

问题：我想知道如何让Excel VBA了解x1是1吗？

Dim x1, x3 As Integer
x1 = 1
x3 = 1
If TextBox.value = x1 Then
CT1 = x3
End If
MsgBox CT1

任何建议将受到高度赞赏。谢谢

答案

我找到了答案。

TextBox包含字符串，而不是整数。

所以，我需要使用转换代码：

CInt(TextBox.value)

将字符串值从TextBox转换为我的整数变量。

希望我解释得对。