返回列表 上一主題 發帖

[發問] 如何利用VBA對另個檔案的資料庫進行篩選，然後將選出的值存入表格中

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
102  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-3 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2016-4-29 23:43 | 顯示全部帖子
本帖最後由 Hsieh 於 2016-4-29 23:56 編輯

回復 2# colinyang

直覺是Combobox3清單會依據Combobox1，Combobox2內容變動
選定後按下按鈕依序輸入
  1. Public d2

  3. Private Sub ComboBox1_Change()
  4. ex
  5. End Sub

  7. Private Sub ComboBox2_Change()
  8. ex
  9. End Sub

  11. Private Sub ComboBox4_Change()
  12. Set d = CreateObject("Scripting.Dictionary")
  13. Set d1 = CreateObject("Scripting.Dictionary")
  14. Set d2 = CreateObject("Scripting.Dictionary")
  15. fs = ThisWorkbook.Path & "\data.xlsx" '請將2檔案放在同一目錄
  16. Set databook = Workbooks.Open(fs)
  17. With databook.Sheets(ComboBox4.Text)
  18. For Each a In .Range(.[A2], .[A2].End(xlDown))
  19.    d(a.Value) = "" 'A欄不重複清單
  20.    d1(a.Offset(, 1).Value) = "" 'B欄不重複清單
  21.    d2(a & a.Offset(, 1)) = IIf(d2(a & a.Offset(, 1)) = "", a.Offset(, 2), d2(a & a.Offset(, 1)) & "," & a.Offset(, 2)) 'A&B欄清單內容
  22. Next
  23. ComboBox1.List = d.keys
  24. ComboBox2.List = d1.keys
  25. End With
  26. databook.Close 0

  28. End Sub

  30. Private Sub CommandButton1_Click()
  31. Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 3) = Array(ComboBox1, ComboBox2, ComboBox3) '輸入資料
  32. End Sub

  34. Private Sub UserForm_Initialize()
  35. fs = ThisWorkbook.Path & "\data.xlsx" '請將2檔案放在同一目錄
  36. Set databook = Workbooks.Open(fs)
  37. For Each sh In databook.Sheets
  38.    ComboBox4.AddItem sh.Name
  39. Next
  40. databook.Close 0
  41. End Sub
  42. Sub ex()
  43. mystr = ComboBox1 & ComboBox2
  44. If d2(mystr) <> "" Then ComboBox3.List = Split(d2(mystr), ",") 'Combobox3的清單
  45. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題