返回列表 上一主題 發帖

一個下拉程式

本帖最後由 Hsieh 於 2011-3-31 19:33 編輯

回復 11# GBKEE

月份內容又變動時又要一個Change事件囉
Sheet1模組
  1. Private Sub ComboBox1_Change()
  2. [C3] = ComboBox1
  3. End Sub

  4. Private Sub ComboBox1_DropButtonClick()
  5. With Sheets("月份")
  6. Set rng = .Range(.[D2], .[E65536].End(xlUp))
  7. With ComboBox1
  8. .List = rng.Value
  9. .ColumnCount = 2
  10. End With
  11. End With
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 14# FAlonso
這樣只能把2欄文字結合後顯示
就不能看做2個資料
  1. Private Sub ComboBox1_Change()
  2. With ComboBox1
  3. If .ListIndex <> -1 Then
  4. .Text = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
  5. [C3] = .Text
  6. End If
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題