sunnyso

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-6-30 23:02 | 只看該作者

不用迴圈，不用Worksheet函數（match等），判斷某element在是否陣列中

例如

Sub ss_test1()
alltype = Array("A類", "B類", "C類", "D類", "E類", "F類", "G類", "H類", "I類", "J類")
aj = "1D類"
If UBound(Filter(alltype, aj)) < 0 Then Debug.Print "Empty"
Stop
End Sub

複製代碼

樓主熱帖

ss

a5007185

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2017-9-15 12:23 | 只看該作者

回復 8# sunnyso

雖然這個討論串歷史已久，(4年前...
但仍然對我有很大的幫助，
謝謝各位先進的幫助！

但 05. 中「Aj = S & "DA類" & S」有點小疑問，
若此時搜尋對象變成J類的時候，
便會無法找到，
原因在於，
Aj 經 05. 處理後，變成「,J類,」
但 Ar 字串在 06. 處理後，變成「 ,DA類,B類,DEC類,EC類,C類,F類,G類,H類,I類,J類」
此時用InStr(Ar, Aj)，絕對會等於 0

試問，
05. 中，後面的&S原本立意為何？
是不是利用兩個","來決定字串的頭與尾？
若是如此，如果在「Ar = " " & S & Join(alltype, S)」後面追加 & S，會更完美？:P

最後，還是感謝各位大大，
居然可以活用Join再配合InStr達到判定是否存在的目的，
最後再連續利用Split並配合UBound來指出該項目的位置，
實在厲害！XD

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

10^#

發表於 2013-7-1 11:26 | 只看該作者

回復 9# GBKEE

6樓的code適合以關鍵字來判斷element的位置

ss

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-7-1 10:51 | 只看該作者

回復 8# sunnyso
在此討論區就是要有如此的交流精神,謝謝你

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

8^#

發表於 2013-7-1 10:44 | 只看該作者

回復 4# GBKEE

這樣可以少一IF判斷

Sub Ex()
Dim S As String, alltype(), Aj As String, Ar As String
S = "," '輔助字串
alltype = Array("DA類", "B類", "DEC類", "EC類", "C類", "F類", "G類", "H類", "I類", "J類")
Aj = S & "DA類" & S
Ar = " " & S & Join(alltype, S)
If InStr(Ar, Aj) = 0 Then
Debug.Print "Empty"
Else
Ar = Split(Ar, Aj)(0)
Debug.Print UBound(Split(Ar, S))
End If
End Sub

複製代碼

1 評分人數

GBKEE: 精品文章金錢 + 4

ss

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

7^#

發表於 2013-7-1 10:21 | 只看該作者

回復 6# GBKEE

的確，再想想有沒有更好的方法

ss

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-7-1 10:04 | 只看該作者

本帖最後由 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

5^#

發表於 2013-7-1 09:36 | 只看該作者

本帖最後由 sunnyso 於 2013-7-1 09:41 編輯

回復 4# GBKEE

版大你的code有bug，跟我第一次的code（2樓）一樣的bug。就是第一element（即: "A類") 回傳 -1
應該像我3樓的改動（或者看我另一帖子）才可以，在Join 後的 AllType前面加上一個任意非 S（輔助字串）的字串，例如“<space>", 不然第一個emement會回傳-1，還有在Join 後的 AllType後面並不需要串輔助字串

改動後如下