標題:
[發問]
如何讓自訂表單的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事件
Private Sub ComboBox1_LostFocus()
'LostFocus 事件 ActiveX 控制項失去輸入焦點時即發生此事件
If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
End Sub
複製代碼
2在表單使用ComboBox事件可任選一種
Option Explicit
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'離開控制項後: 發生在控制項中的資料有所改變時。的事件
If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Enter、Exit 事件
'Enter 主要發生在一個控制項,從同一表單上的另一個控制項取得駐點之前
'Exit 會在一個控制項失去駐點時發生。
If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 & "AA"
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/)