[發問] 如何讓自訂表單的TextBox記憶經常輸入的資料?

av8d

TextBox經常輸入大同小異的資料~該如何讓它記錄~就像網頁的搜尋TextBox一樣?

kevin681024

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

av8d

回復 2# kevin681024


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

由於常輸入的資料是非固定的幾個~所以應該無法使用ListBox

GBKEE

回復 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

回復 4# GBKEE


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

GBKEE

回復 5# av8d
傳上檔案試試

av8d

回復 6# GBKEE


    ComboBox.rar (338.31 KB)

下載次數: 9

2012-6-7 11:10

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

想把UserForm1,UserForm2,UserForm1,UserFormInstallment內的

TextBox都換成ComboBox~但是出了點問題@@~感謝大大!

GBKEE

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

av8d

回復 8# GBKEE

請問上傳哪個檔案?
    是的~記憶會消失~請問如何讓他不會消失呢?還是說有其他方法? G大謝謝!

GBKEE

回復 9# av8d
7# 檔案中  3個UserForm都看不到 ComboBox 控制項