Question

EXCEL VBA中，怎样判定由用户输入的值，不包括在指定的几个值之中？

例如用INPUTBOX得到用户输入的变量A，判定A是否等于45，46，57，51中的一个。谢谢。

Answer 1

Sub x()
a = InputBox("请您输入一个数值")
Dim v As Variant
Dim x As String
x = "45，46，57，51"
v = Split(x, "，")
For i = 0 To UBound(v)
If a = v(i) Then
MsgBox "find"
Exit For
End If
Next
End Sub

Answer 2

a = InputBox("请您输入一个数值")
If a = 45 Or a = 46 Or a = 51 Or a = 57 Then MsgBox "您输入的数是" & a

Answer 3

if a=45 or a=46 or a=57 or a=51 then msgbox "有其中一个数:" & a