Question

我正在自学VBA并尝试编写一个小程序执行以下操作

1.要求用户在文本框中输入10到20之间的数字 2.单击一个按钮时，代码将检查在文本框中输入的数字。如果它在10到20之间，则会显示一条消息。如果输入的数字不在10到20之间，则将邀请用户尝试增益，并且将删除在文本框中输入的内容。

Private Sub Command0_Click()
Me.Text3.SetFocus
inumber = Val(Text3.Text)
If inumber >= 10 & inumber <= 20 Then
MsgBox ("The number you entered is: ") & inumber
Else
Text3.Text = ""
MsgBox ("Please try again")
End If

End Sub

但是，我不认为我的代码的其他部分是有效的。如果我输入5，它将显示5而不是消息框。如果我遗漏任何东西，有谁能告诉我。

提前致谢。节日快乐。

Answer 1

If Form_customer_test >= 10 & inumber <= 20 Then

应该是：

If inumber >= 10 & inumber <= 20 Then

Answer 2

请尝试以下操作。 &用于VB中的字符串连接。 And应该在VB中使用

Private Sub Command0_Click()
    Me.Text3.SetFocus
    inumber = Val(Text3.Text)
    If inumber >= 10 And inumber <= 20 Then
        MsgBox ("The number you entered is: ") & inumber
    Else
        Text3.Text = ""
        MsgBox ("Please try again")
    End If
End Sub

Answer 3

确认：使用＆＃34;和＆＃34;或＆＃34;或＆＃34;对于逻辑运算符

IF声明不适用于VBA

3 个答案: