返回列表 上一主題 發帖

下拉可有此奇效功能的

下拉可有此奇效功能的

請教大大們一個下拉奇想問題, 現把檔案上傳, 申請表檔案內有說明, 先謝過大大們.
資料庫.rar (16.91 KB) 申請表.rar (13.43 KB)
hong912

回復 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. Private Sub ComboBox1_DropButtonClick()
  10. Application.ScreenUpdating = False
  11. fs = ThisWorkbook.Path & "\資料庫.xlsx"
  12. With Workbooks.Open(fs)
  13.    With .Sheets("工作表1")
  14.       ar = .Range(.[A4], .[A3].End(xlDown).Offset(, 5))
  15.       With ComboBox1
  16.       .ColumnCount = 3
  17.       .List = ar
  18.       .ColumnWidths = "0,30,40"
  19.       End With
  20.     End With
  21. .Close 0
  22. End With
  23. Application.ScreenUpdating = True
  24. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh

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

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題