今天再說一個跨工作表提出數據的案例
問題如下:
解決的思路如下:
利用字典,就可以查字典來獲取向對應的數據。
代碼運行的結果如下:
代碼如下:
有效性設置代碼:
數據查詢代碼:
代碼解析
一、有效性設置代碼:
1:dim定義數據變量
2:後期綁定字典
3:把數據寫入數組
4:用字典達到去重的效果
5:有效性的代碼,具體可以之前的專門寫數據有效性的文章。
二、數據查詢代碼:
1:dim 定義相關的變量
2:後期綁定字典
3:把A表的相關數據放入數組
4:把去向與時間作為key 放入字典的key,並把列數i,放入item
5:讀取B表的最後一個非空單元格,並把B表數據放入數組
6:根據B表的去向及日期,查字典的item值,並返回列數 j (此處加了一個判斷)
7:讀取相應的數據
8:在B列相應的區域,寫入數組,並設置相關的格式。
點擊關注,可以閱讀更多與VBA 相關的文章
私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件
閱讀更多 浮雲Excel分享 的文章