標題: combobox 如何增加尋找下一筆的功能 [打印本頁]

---

作者: liling81    時間: 2014-5-12 15:08     標題: 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

---

作者: kimbal    時間: 2014-5-13 00:22

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

另一方面,如果想表單顯示時同時可以操作頁面,
可以設定一下這個showmodal的表單屬性為false
[attach]18267[/attach]

---

作者: liling81    時間: 2014-5-13 14:40

謝謝kimbal大大的指導
我已改好設定了showmodal的表單屬性為false,可以用耶~~好開心哦!!
本以為還要加多複雜的程式，原來只是一個小小屬性的更改就好了＞＿＜
現將檔案附上，先謝謝了
其實還有另一個問題，就是我不知如何讓它去查尋Ｂ欄的編號，所以只好多加Ｄ欄編號，要怎麼改呢？
[attach]18272[/attach]

---

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