12
返回列表 上一主題 發帖

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

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-3-28 18:18 | 只看該作者

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

本帖最後由 Baracuda 於 2011-4-7 09:24 編輯
  1. Option Explicit
  2. Option Base 1

  4. Dim Input_No  As Integer, Output_No As Integer
  5. Dim Output_Sht_Name_Ary, Input_Sht_Name_Ary

  7. Sub initial()
  8.     Input_Sht_Name_Ary = Array("一", "五", "八")
  9.     Output_Sht_Name_Ary = Array("一", "二", "三", "四", "五", "六")

  11.     Input_No = UBound(Input_Sht_Name_Ary)
  12.     Output_No = UBound(Output_Sht_Name_Ary)

  14. End Sub

  16. Sub main()

  18.    Call initial
  19.    Call Print_Not_Found

  21. End Sub


  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

  46. End Sub
複製代碼
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
18#
發表於 2020-8-13 10:16 | 只看該作者
回復 16# ssooi


可以使用 APPLICATION.MATCH
陣列數量大  字典--ITEM記錄位置

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
17#
發表於 2020-8-12 20:00 | 只看該作者
本帖最後由 軒云熊 於 2020-8-12 20:10 編輯

這樣好像也可以
  1. Sub 練習顯示陣列位置()

  3. Dim A, B, i, k

  5. A = Array("一", "五", "八")
  6. B = Array("一", "二", "三", "四", "五", "六")

  8.     For i = 0 To UBound(B)
  9.         If A(k) = B(i) Then
  10.            MsgBox " A的 " & A(k) & " 在 B 的 第 " & i & " 個"
  11.            If k <= UBound(A) Then k = k + 1
  12.         Else
  13.            MsgBox " B 的 第 " & i & " 個" & " 是 " & B(i)
  14.         End If
  15.     Next i
  16.    
  17. End Sub
複製代碼

TOP

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
16#
發表於 2020-8-12 16:16 | 只看該作者
回復 3# chin15
  1. a = Array("一", "五", "八")
  2.    b = Array("一", "二", "三", "四", "五", "六")
  3. For i = 0 To UBound(a)
  4. If UBound(Filter(b, a(i))) = -1 Then
  5. MsgBox "不 包含" & a(i)
  6. Else
  7. MsgBox "包含" & a(i)
  8. End If
  9. Next
複製代碼
請問該怎麼樣做才能進一步顯示A是存在B陣列的第幾個索引值呢?
謝謝

TOP

greetingsfromtw

帖子
45 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-2-6 
最後登錄
2019-6-22 

論壇贊助勳章
15#
發表於 2016-10-27 14:04 | 只看該作者
回復 14# GBKEE

非常感謝GBKEE前輩詳細解說,
原來問題出在一維陣列,小弟再研究看看.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2016-10-27 04:53 | 只看該作者
回復 13# greetingsfromtw
  1. '討論區網址:http://forum.twbts.com/index.php
  2. Option Explicit
  3. Sub Ex()
  4.     Dim M As Variant, A(), B()
  5.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)  '二維陣列
  6.     B = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) '二維陣列
  7.     B = Application.WorksheetFunction.Transpose(B)                '轉至為一維陣列
  8.     For Each E In A
  9.         M = Application.Match(E, B, 0)
  10.         MsgBox E & IIf(IsNumeric(M), "存在於 ", " 不存在於 ") & Join(B, ",")
  11.         'Join 函數 傳回一個字串，該字串是透過連結某個陣列中的多個子字串而建立的。
  12.         '******** 某個陣列 ,必須是一維陣列********************
  13.     Next
  14. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

greetingsfromtw

帖子
45 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-2-6 
最後登錄
2019-6-22 

論壇贊助勳章
13#
發表於 2016-10-26 23:50 | 只看該作者
回復 5# GBKEE

GBKEE前輩好,冒昧打擾,

感謝提供程式碼,
小弟有試著修改前輩的程式碼,
試圖將儲存格內的值做為元素儲至陣列中,但是會出現錯誤,不知如何解決,

小弟斗膽,是否能夠麻煩前輩指點迷津,十分感謝.

附上檔案及修改自前輩所寫程式碼:
  1. '此程式碼修改自麻辣家族討論區excel高手GBKEE前輩所寫,非我自創.
  2. '討論區網址:http://forum.twbts.com/index.php
  3. Sub Ex()
  4.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
  5.     b = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
  6.     For Each E In A
  7.         M = Application.Match(E, b, 0)
  8.         MsgBox E & IIf(IsNumeric(M), "存在於 ", " 不存在於 ") & Join(b, ",")
  9.     Next
  10. End Sub
複製代碼
20161026-陣列搜尋特定字串問題.zip (9.06 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2011-4-6 18:26 | 只看該作者
回復 12# Baracuda
要按下 如圖的代碼 將程式碼貼上 後按提交


TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
11#
發表於 2011-3-31 09:23 | 只看該作者
chin15 謝謝。從你回答的問題，覺得你是強手，已經從小學生轉為中學生了，謝謝。程度本來就不應該是小學生。

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
10#
發表於 2011-3-31 09:22 | 只看該作者
謝謝 GBKEE，我也是先這樣設定變數型態。
只是我怕太過於耗系統資源(雖然現在的系統資源都還好)，但是為養成好習慣，還是平常就省著點用。

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
12
返回列表 上一主題