Board logo

標題: [發問] 如何讓自訂表單的TextBox記憶經常輸入的資料? [打印本頁]

作者: av8d    時間: 2012-6-6 12:40     標題: 如何讓自訂表單的TextBox記憶經常輸入的資料?

TextBox經常輸入大同小異的資料~該如何讓它記錄~就像網頁的搜尋TextBox一樣?
作者: kevin681024    時間: 2012-6-6 19:11

我的想法是增加一個工作表記錄曾經出現過的文字
Textbox則用ListBox取代
每次啟動的時候就將常用的文字Add到ListBox裡..
作者: av8d    時間: 2012-6-6 23:09

本帖最後由 av8d 於 2012-6-6 23:14 編輯

回復 2# kevin681024


    非常感謝大大~我剛查詢了一下 ListBox
請問是否有參考範例呢? 謝謝大大!

由於常輸入的資料是非固定的幾個~所以應該無法使用ListBox
作者: GBKEE    時間: 2012-6-7 07:32

本帖最後由 GBKEE 於 2012-6-7 07:34 編輯

回復 3# av8d
改用 ComboBox
1在工作表 使用控制工具箱的ComboBox事件
  1. Private Sub ComboBox1_LostFocus()
  2.     'LostFocus 事件 ActiveX 控制項失去輸入焦點時即發生此事件
  3.    If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
  4. End Sub
複製代碼
2在表單使用ComboBox事件可任選一種
  1. Option Explicit
  2. Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  3.     '離開控制項後: 發生在控制項中的資料有所改變時。的事件
  4. If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
  5. End Sub
  6. Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  7. 'Enter、Exit 事件
  8. 'Enter 主要發生在一個控制項,從同一表單上的另一個控制項取得駐點之前
  9. 'Exit 會在一個控制項失去駐點時發生。
  10. If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 & "AA"
  11. End Sub
複製代碼

作者: av8d    時間: 2012-6-7 10:18

回復 4# GBKEE


大大謝謝~我使用第2個~可以成功記憶~但是關閉"自訂表單"視窗後~
再重新開啟~原來的記憶就沒了~請問是否有辦法讓他持續記憶下去呢?
作者: GBKEE    時間: 2012-6-7 11:01

回復 5# av8d
傳上檔案試試
作者: av8d    時間: 2012-6-7 11:16

回復 6# GBKEE


    [attach]11297[/attach]

因為輸入的部分大同小異~但是畢竟還是有差異~並非固定~

想把UserForm1,UserForm2,UserForm1,UserFormInstallment內的

TextBox都換成ComboBox~但是出了點問題@@~感謝大大!
作者: GBKEE    時間: 2012-6-7 13:37

回復 7# av8d
5# 說 可以成功記憶~但是關閉"自訂表單"視窗後~ 再重新開啟~原來的記憶就沒了
請傳上這個檔案
作者: av8d    時間: 2012-6-7 16:38

本帖最後由 av8d 於 2012-6-7 16:40 編輯

回復 8# GBKEE

請問上傳哪個檔案?
    是的~記憶會消失~請問如何讓他不會消失呢?還是說有其他方法? G大謝謝!
作者: GBKEE    時間: 2012-6-7 18:02

回復 9# av8d
7# 檔案中  3個UserForm都看不到 ComboBox 控制項
作者: av8d    時間: 2012-6-8 13:39

回復 10# GBKEE


    請問關於ComboBox是否有字數限制~輸入過多字體他不會自動換行~?




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