[已解决]如何判断一个值在数组当中

sjggsjgg

Private Sub CommandButton1_Click()

Dim arr
arr = Sheets("用户").Range("E2:E6")
a = Val(TextBox1.Value)

If UBound(Filter(arr, a)) < 0 Then
MsgBox "密码错误，你无编辑权限"
' Application.Visible = True
'ActiveSheet.Select
Unload UserForm12
End
End If
Range("F65536") = val(TextBox1.value)
Unload UserForm12
End Sub

我想判断输入的textbox1的值在 Sheets("用户").Range("E2:E6")这个范围内，这样写完代码后，老提示我“类型不匹配”
Range("E2:E6")里面是数字，输入TEXTBOX1里也是数字，为什么

最佳答案

月排行榜 / 总排行榜

冠军欧洲2010

2014-8-8 11:54

加上这一句。
If UBound(Filter(Application.Transpose(arr), a)) < 0 Then
因为，你这个数组是一个二维数组。
而Fiter只能处理一维数组。

跳转到最佳答案楼层

冠军欧洲2010

加上这一句。
If UBound(Filter(Application.Transpose(arr), a)) < 0 Then
因为，你这个数组是一个二维数组。
而Fiter只能处理一维数组。