- 帖子
- 11
- 主題
- 4
- 精華
- 0
- 積分
- 41
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2014-4-27
- 最後登錄
- 2021-5-22
|
combobox 如何增加尋找下一筆的功能
小妹初學vba，上網搜尋了一些高手的程式，寫了一個查詢的combobox
但我想增加一些類似ctrl+F的功能
(1) 比如查詢姓”林”的，假設有5個，可不可以按Enter，cust.Text及num.Text會自動顯示下一筆的資料
(2) 假設輸入的關鍵字找不到符合的，在num.text顯示“查無此人”，或是做一個msqbos
(3) 因查尋到編號是要填入資料表中的，目前的作法是查到編號，要先結束combobox，游標才能回到資料表中key入編號及資料，可否不要結束combobox，游標就可以直接回到資料表中key編號
Private Sub commandbutton1_click()
numsearch.Show
End Sub
Private Sub cust_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("編號").Select
Cells.Find(what:=cust.Text).Activate
cust.Text = ActiveCell.Offset(0, 0).Range("a1").Text
num.Text = ActiveCell.Offset(0, 0).Range("b1").Text
Sheets("資料表").Select
End Sub
Private Sub exit1_Click()
End
End Sub
Private Sub reentry_Click()
cust.Text = ""
num.Text = ""
End Sub |
|
發表於 2014-5-12 15:08
| 
發表於 2014-5-13 00:22
| 
