12
返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-6-6 12:40 | 只看該作者

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

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
11#
發表於 2012-6-8 13:39 | 只看該作者
回復 10# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2012-6-7 18:02 | 只看該作者
回復 9# av8d
7# 檔案中  3個UserForm都看不到 ComboBox 控制項

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
9#
發表於 2012-6-7 16:38 | 只看該作者
本帖最後由 av8d 於 2012-6-7 16:40 編輯

回復 8# GBKEE

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2012-6-7 13:37 | 只看該作者
回復 7# av8d
5# 說 可以成功記憶~但是關閉"自訂表單"視窗後~ 再重新開啟~原來的記憶就沒了
請傳上這個檔案

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
7#
發表於 2012-6-7 11:16 | 只看該作者
回復 6# GBKEE


    ComboBox.rar (338.31 KB)

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

想把UserForm1,UserForm2,UserForm1,UserFormInstallment內的

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-6-7 11:01 | 只看該作者
回復 5# av8d
傳上檔案試試

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
5#
發表於 2012-6-7 10:18 | 只看該作者
回復 4# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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
複製代碼

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2012-6-6 23:09 | 只看該作者
本帖最後由 av8d 於 2012-6-6 23:14 編輯

回復 2# kevin681024


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

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

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
12
返回列表 上一主題