IF语句不VBA

工作我是自学的VBA，并试图写一个小程序执行以下操作IF语句不VBA

1.asks用户在文本框
2.当进入10之间的号码20按钮被点击，代码将检查输入到文本框中的数字。如果它在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而不是消息框。任何人都可以让我知道，如果我错过了什么。

在此先感谢。节日快乐。

来源

2016-12-27 Noah Xu

'某处，那么'If'应该是'如果Form_customer_test> = 10并且数字<= 20然后'。但我认为你的意思是，如果inumber> = 10并且数字<= 20 Then' –

下面尝试。 &用于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

来源

2016-12-27 16:18:00

非常感谢！就是这样！谢谢，它现在有效。 :) –

If Form_customer_test >= 10 & inumber <= 20 Then

应该是：

If inumber >= 10 & inumber <= 20 Then

来源

2016-12-27 16:12:11

谢谢指出。我很抱歉，那是一个错字，我实际上是以数字而不是form_customer_test。我不知道那是怎么回事。谢谢 –

确认：如果要定义`Form_customer_test使用 “和” 或 “或” 逻辑运算符

来源

2016-12-30 15:00:47 Marco

IF语句不VBA

回答

相关问题