12
返回列表 上一主題 發帖

[發問] 利用下拉式選單選取資料，並進行進階篩選

Duck

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
w8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-17 
最後登錄
2014-10-5 
5# 跳轉到 »
發表於 2014-7-28 19:29 | 只看該作者
回復 2# Hsieh


    Hsieh 您好:

不知我的問題是否描述有讓你不清楚的地方嗎? 哪個部分不瞭解，我可以再加以說明，希望你能幫幫我這個vba初學者~ 萬分感激 :)

TOP

Duck

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
w8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-17 
最後登錄
2014-10-5 
4#
發表於 2014-7-27 22:34 | 只看該作者
回復 2# Hsieh

抱歉~由於忘記案回覆，故在重新發一篇~


感謝高手的襄助，但不好意思我沒把問題說清楚，我是希望第B欄位選取不重復至G欄位，第E欄位選取不重復至J欄位，是它們各自選取不重複，抱歉~ 語意沒說好....


另外，我想再請教一下，不知道語法是否可以執行說，我想先在A欄位選取不重複至L欄位，則M欄位可以去自動計算出，L欄位的每個一項目他們在B欄位不重複出現的次數是幾次?!

如下圖所示，我可以在L欄位裡的"19168"這個項目中計算出他分別有2013061011226和2013061011470這兩筆紀錄，故是在M欄位計算出現了2次，不知是否可以執行?



煩請高手能解救在下...感激不盡~~

未命名.png (23.23 KB)

未命名.png

TOP

Duck

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
w8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-17 
最後登錄
2014-10-5 
3#
發表於 2014-7-25 23:43 | 只看該作者
感謝高手的襄助，但不好意思我沒把問題說清楚，我是希望第B欄位選取不重復至G欄位，第E欄位選取不重復至J欄位，是它們各自選取不重複，抱歉~ 語意沒說好....

另外，我想再請教一下，不知道語法是否可以執行說，我想先在A欄位選取不重複至L欄位，則M欄位可以去自動計算出，L欄位的每個一項目他們在B欄位不重複出現的次數是幾次?!

如下圖所示，我可以在L欄位裡的"19168"這個項目中計算出他分別有2013061011226和2013061011470這兩筆紀錄，故是在M欄位計算出現了2次，不知是否可以執行?



煩請高手能解救在下...感激不盡~~

未命名.png (23.23 KB)

未命名.png

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-7-25 10:55 | 只看該作者
本帖最後由 Hsieh 於 2014-7-25 10:59 編輯

回復 1# Duck

不重複定義是否B&D不重複?
play.gif
如果是的話
插入自訂表單，布置一個下拉清單
表單模組中程式碼如下
  1. Private Sub ComboBox1_Change()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With 工作表2
  4. Set Rng = 工作表2.[A1]
  5. .[A:E].Clear
  6. With 工作表1
  7.    With .Range("A1").CurrentRegion
  8.       .AutoFilter 4, ComboBox1
  9.       .SpecialCells(xlCellTypeVisible).Copy Rng
  10.       .AutoFilter
  11.    End With
  12. End With
  13. mystr = "=COUNTIF(C5,RC9)/(COUNTA(C7)-1)"
  14. For Each a In .Range(.[B2], .[B1].End(xlDown))
  15.     d(a & a.Offset(, 3)) = Array(a, "", a.Offset(, 3))
  16. Next
  17. .Range("G1").CurrentRegion.Offset(1).ClearContents
  18. .[G2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
  19. .[J2].Resize(d.Count, 1).FormulaR1C1 = mystr
  20. .[H2] = d.Count
  21. End With
  22. Unload Me
  23. End Sub

  25. Private Sub UserForm_Initialize()
  26. Set d = CreateObject("Scripting.Dictionary")
  27. With 工作表1
  28.    For Each a In .Range(.[D2], .[D2].End(xlDown))
  29.       d(a.Text) = ""
  30.    Next
  31. End With
  32. ComboBox1.List = d.keys
  33. End Sub
複製代碼
上傳用.zip (28.34 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
12
返回列表 上一主題