返回列表 上一主題 發帖

[發問] 如何立即更新combobox資料

xgit0072

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
Win XP 
軟體版本
SP3 
閱讀權限
10 
性別
女 
註冊時間
2012-8-29 
最後登錄
2012-10-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
複製代碼
收藏 分享

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題