標題: 下拉可有此奇效功能的 [打印本頁]

---

作者: hong912    時間: 2013-5-4 22:26     標題: 下拉可有此奇效功能的

請教大大們一個下拉奇想問題, 現把檔案上傳, 申請表檔案內有說明, 先謝過大大們.
[attach]14889[/attach][attach]14888[/attach]

---

作者: Hsieh    時間: 2013-5-5 15:06

回復 1# hong912

兩檔案置於同一資料夾內
下拉選單所在的工作表模組程式碼

1. Private Sub ComboBox1_Change()
   
2. With ComboBox1
   
3. i = .ListIndex
   
4. If i = -1 Then Exit Sub
   
5. ar = Array(Month(Date), Date, .List(i, 1), .List(i, 2), .List(i, 3), .List(i, 4), "", .List(i, 5))
   
6. Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = ar
   
7. End With
   
8. End Sub
   
9. 
   
10. Private Sub ComboBox1_DropButtonClick()
    
11. Application.ScreenUpdating = False
    
12. fs = ThisWorkbook.Path & "\資料庫.xlsx"
    
13. With Workbooks.Open(fs)
    
14.    With .Sheets("工作表1")
    
15.       ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
    
16.       With ComboBox1
    
17.       .ColumnCount = 3
    
18.       .List = ar
    
19.       .ColumnWidths = "0,30,40"
    
20.       End With
    
21.     End With
    
22. .Close 0
    
23. End With
    
24. Application.ScreenUpdating = True
    
25. End Sub

複製代碼

---

作者: hong912    時間: 2013-5-5 17:42

回復 2# Hsieh

謝謝版大回應,
VBA真的可以做到, 但都要有版大這等高手才能運動, 謝謝!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)