数组判断的VBA？

ke3088

数组如下：
       arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
       For i = 0 To UBound(arr)
文本框右边的字符是： Right(TextBox2, Len(Mid(arr(i), 1)))
以上是从网上搜来的
如果 Right(TextBox2, Len(Mid(arr(i), 1)))不等于 arr其中的一个，则，显示”没有找见“
该语句怎么写？谢谢      
      

kqbt

1.   Dim Arr(), i As Integer
   
2.   Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
   
3.   For i = 0 To UBound(Arr)
   
4.     If InStr(Arr(i), Right(TextBox2, Len(Mid(Arr(i), 1)))) Then MsgBox "第" & i + 1 & "项被找到！": Exit Sub
   
5.   Next
   
6.   MsgBox "没有找见！"

复制代码

1.   Dim Arr()
   
2.   Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
   
3.   MsgBox IIf(InStr("," & Join(Arr(), ",") & ",", "," & TextBox2 & ","), "找到！", "没有找到！")

复制代码

ke3088

kqbt 发表于 2015-11-28 18:49

kqbt版主，不行呀。
If InStr(Arr(i), Right(TextBox2, Len(Mid(Arr(i), 1))))<>? Then
……'要进行其他操作   
End If要把问号处改一改才行。
我进行MsgBox InStr(Arr(i), Right(TextBox2, Len(Mid(Arr(i), 1))))j时，都是=0　
谢谢！

kqbt

ke3088 发表于 2015-11-28 22:08
kqbt版主，不行呀。
If InStr(Arr(i), Right(TextBox2, Len(Mid(Arr(i), 1))))? Then
……'要进行其他 ...

不知道你的TextBox具体什么情况，代入字符串测试如下：

1.   Dim Arr(), i As Integer
   
2.   Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
   
3.   For i = 0 To UBound(Arr)
   
4.     If InStr(Arr(i), Right("移动硬盘", Len(Mid(Arr(i), 1)))) <> 0 Then
   
5.        MsgBox "第" & i + 1 & "项被找到！": Exit Sub
   
6.     End If
   
7.   Next
   
8.   MsgBox "没有找见！"

复制代码

kqbt

另外：Mid(Arr(i), 1) 这个有何用意？
len(Mid(Arr(i), 1)) <> len(Arr(i)) ?

ke3088

kqbt 发表于 2015-11-29 09:03
另外：Mid(Arr(i), 1) 这个有何用意？
len(Mid(Arr(i), 1))  len(Arr(i)) ?

原代码是：
　　 arr =Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
       For i = 0 To UBound(arr)
       If Right(TextBox2, Len(Mid(arr(i), 1))) = arr(i) Then         
          库存.Hide '窗体，显示：Show，隐藏：Hide
          支出.Show '窗体，显示：Show，隐藏：Hide
          Exit Sub
       End If
       Next
上面的代码是TextBox2右边字符（取出右边的长度根据arr判断）包含有arr里的字符，就如何
我现在想改成，TextBox2右边字符（取出右边的长度根据arr判断）与arr比较，如果不包含arr里的字符，就如何。
再请您看看，谢谢
另外，TextBox2里的字符有若干个，不定，多时有几十个，少则一个

ke3088

4楼的语句，成立：
  Dim Arr(), i As Integer
  Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
  For i = 0 To UBound(Arr)
    If InStr(Arr(i), Right("移动硬盘", Len(Mid(Arr(i), 1)))) <> 0 Then
       MsgBox "第" & i + 1 & "项被找到！": Exit Sub
    End If
  Next
  MsgBox "没有找见！"
但是，稍作改动，就不行了：
  Dim Arr(), i As Integer
  Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
  For i = 0 To UBound(Arr)
    If InStr(Arr(i), Right("移动硬盘", Len(Mid(Arr(i), 1)))) <> 0 Then         
         MsgBox "找到了-----" : Exit Sub
      Else
        MsgBox "没有+++++++": Exit Sub
      End If
  Next
请大家，帮看看是怎么回事？谢谢

ke3088

6楼的代码，测试时没有问题：
Sub aa()
  Dim Arr(), i As Integer
  Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
  mnText = "从字符串右边取出的字符是--路由器"
  For i = 0 To UBound(Arr)
      If Right(mnText, Len(Mid(Arr(i), 1))) = Arr(i) Then
         MsgBox "从字符串右边取出的字符是-----" & Right(mnText, Len(Mid(Arr(i), 1)))
         MsgBox "找到了++++" & Arr(i): Exit Sub
      End If
  Next
End Sub
一旦加上Else，和4楼的代码一样，就不行了：Sub aa()
  Dim Arr(), i As Integer
  Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
  mnText = "从字符串右边取出的字符是--路由器"
  For i = 0 To UBound(Arr)
      If Right(mnText, Len(Mid(Arr(i), 1))) = Arr(i) Then
         MsgBox "从字符串右边取出的字符是-----" & Right(mnText, Len(Mid(Arr(i), 1)))
         MsgBox "找到了++++" & Arr(i): Exit Sub
      Else
         MsgBox "没有呀": Exit Sub
      End If
  Next
End Sub
请大家看看问题出在什么地方？谢谢

kqbt

ke3088 发表于 2015-11-30 16:32
6楼的代码，测试时没有问题：
Sub aa()
  Dim Arr(), i As Integer

为何要在这个位置加入 else ？

ke3088

Sub aa()
  Dim Arr(), i As Integer
  Arr = Array("手机", "U盘", "耳机", "硬盘", "主板", "机箱", "电源", "路由器", "内存卡")
  mnText = "从字符串右边取出的字符是--路由器"
  For i = 0 To UBound(Arr)
      If Right(mnText, Len(Mid(Arr(i), 1))) = Arr(i) Then
         MsgBox "从字符串右边取出的字符是-----" & Right(mnText, Len(Mid(Arr(i), 1)))
         MsgBox "找到了++++" & Arr(i): Exit Sub
      End If
  Next
End Sub
我想改成，mnText右边字符（取出右边的长度根据arr判断）与arr比较，如果不包含arr里的字符，就如何。
不过，已解决