[已解決][發問]程式簡化-陣列-VBA ，尋找某元素是否存在陣列中。

Baracuda

1. Option Explicit
   
2. Option Base 1
   
3. 
   
4. Dim Input_No  As Integer, Output_No As Integer
   
5. Dim Output_Sht_Name_Ary, Input_Sht_Name_Ary
   
6. 
   
7. Sub initial()
   
8.     Input_Sht_Name_Ary = Array("一", "五", "八")
   
9.     Output_Sht_Name_Ary = Array("一", "二", "三", "四", "五", "六")
   
10. 
    
11.     Input_No = UBound(Input_Sht_Name_Ary)
    
12.     Output_No = UBound(Output_Sht_Name_Ary)
    
13. 
    
14. End Sub
    
15. 
    
16. Sub main()
    
17. 
    
18.    Call initial
    
19.    Call Print_Not_Found
    
20. 
    
21. End Sub
    
22. 
    
23. 
    
24. Sub Print_Not_Found()
    
25. Dim Sht_Cnt As Integer
    
26. Dim Ctr_1 As Integer, Ctr_2 As Integer
    
27. Dim Found_Or_Not As Boolean
    
28.    
    
29.     Found_Or_Not = False
    
30.    
    
31.     For Ctr_1 = 1 To Input_No
    
32.         
    
33.         For Ctr_2 = 1 To Output_No
    
34.             If Input_Sht_Name_Ary(Ctr_1) = Output_Sht_Name_Ary(Ctr_2) Then
    
35.                 Found_Or_Not = True
    
36.                 Exit For
    
37.             End If
    
38.         Next Ctr_2
    
39.         If Not (Found_Or_Not) Then
    
40.             Debug.Print Input_Sht_Name_Ary(Ctr_1)
    
41.         End If
    
42.         
    
43.         Found_Or_Not = False
    
44.     Next Ctr_1
    
45. 
    
46. End Sub

複製代碼

Baracuda

程式的原始碼如上：
現在是用2 個廻圈在尋找是否 Input 的 Element 有存在 Output 的 Array 中。
想請問有無較簡潔的語法可以解決。

依照現在的程式可以找出 "八"是不在 Array Output 之中。

Baracuda

chin15 的方法比我的有效率。
少了一個 Loop 。
這樣的程式也比較簡短。
如果還有別的方式，請各位大哥大姐再幫忙一下。

Baracuda

GBKEE 謝謝。
這個程式 Work
請問一下變數的型態
E & M 各為何種型態。我現在是設成 Variant
E 設成 String 不會work。
請賜教一下。

Baracuda

謝謝 GBKEE，我也是先這樣設定變數型態。
只是我怕太過於耗系統資源(雖然現在的系統資源都還好)，但是為養成好習慣，還是平常就省著點用。

Baracuda

chin15 謝謝。從你回答的問題，覺得你是強手，已經從小學生轉為中學生了，謝謝。程度本來就不應該是小學生。