標題: [發問] 如何立即更新combobox資料 [打印本頁]

---

作者: xgit0072    時間: 2012-10-23 10:35     標題: 如何立即更新combobox資料

各位大大，我想請問一下，要怎麼樣可以即時更新combobox內的資料，不用重新執行macro才看的到新增的欄位????

我希望我點了新增按鈕後，輸入我要新增的選項，然後直接按下拉式選單就可以看的到我剛新增的內容，不需要把視窗關掉重新再執行…

=====這個是點新增按鈕===========

1. Private Sub CommandButton2_Click()
   
2.     board_add = InputBox("輸入要新增的版號")
   
3.                         
   
4.     ThisWorkbook.Worksheets("sheet2").Range("b2").End(xlDown).Offset(1, 0).Select
   
5.     ActiveCell.Value = board_add
   
6. End Sub

複製代碼

============這是combobox的內容========

1. Private Sub UserForm_Initialize()
   
2. With Application.Names.Add _
   
3.          ("tmp", ThisWorkbook.Worksheets("sheet2").Range("b2", Range("b2").End(xlDown)))
   
4.          board_sel = .RefersTo
   
5.          .Delete
   
6.     End With
   
7. With board
   
8.         .RowSource = board_sel
   
9.         .SetFocus
   
10.     End With

複製代碼

---

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