返回列表 上一主題 發帖

combobox 如何增加尋找下一筆的功能

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

可否上傳一下EXCEL檔? 這樣會比較容易理解現有設定...

另一方面,如果想表單顯示時同時可以操作頁面,
可以設定一下這個showmodal的表單屬性為false
twbts20140513vbaShowModal.jpg
2014-5-13 00:22
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

謝謝kimbal大大的指導
我已改好設定了showmodal的表單屬性為false,可以用耶~~好開心哦!!
本以為還要加多複雜的程式,原來只是一個小小屬性的更改就好了>_<
現將檔案附上,先謝謝了
其實還有另一個問題,就是我不知如何讓它去查尋B欄的編號,所以只好多加D欄編號,要怎麼改呢?
申請表.rar (16.61 KB)

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題