不用迴圈，不用Worksheet函數（match等），判斷某element在是否陣列中
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2013-7-1 10:02 編輯
回復 3# sunnyso
判斷完全等於該element在陣列中位置- Sub Ex()
- Dim S As String, alltype(), Aj As String, Ar As String
- S = "," '輔助字串
- alltype = Array("A類", "B類", "DEC類", "EC類", "C類", "F類", "G類", "H類", "I類", "J類")
- Aj = S & "C類" & S
- Ar = S & Join(alltype, S) & S
- If InStr(Ar, Aj) = 0 Then
- Debug.Print "Empty"
- Else
- Ar = Split(Ar, Aj)(0)
- Debug.Print IIf(UBound(Split(Ar, S)) < 0, 0, UBound(Split(Ar, S)))
- End If
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
本帖最後由 GBKEE 於 2013-7-1 10:09 編輯
回復 5# sunnyso
謝謝指正有錯當改 , 4#已修正.
可是如這樣還是有bug 找到 "JJ類"- Sub ss_teswt()
- alltype = Array("A類", "B類", "C類", "D類", "JJ類", "F類", "G類", "H類", "I類", "J類")
- Aj = "J類"
- If UBound(Filter(alltype, Aj)) < 0 Then
- Debug.Print "Empty"
- Else
- Debug.Print UBound(Split(Split(" " & Join(alltype, "|"), Aj)(0), "|"))
- End If
- 'Stop
- End Sub
|
|
|
|
|
|
|
|
發表於 2013-7-1 08:21
| 
