標題: [發問] 如何儲存多個 Textbox 上一次 keyin 的值 [打印本頁]

---

作者: bowwow1975    時間: 2012-7-17 15:49     標題: 如何儲存多個 Textbox 上一次 keyin 的值

本帖最後由 bowwow1975 於 2012-7-17 15:53 編輯

請教版上的高手！

網路上有很多儲存 textbox 上一次值的方法！但是好像沒有多個的！
意思是說如果我有 A.text 和 B.text，把值輸入進去後，可以同時儲存在 1.txt 裡！
下一次執行程式的時候，預設值就跟上次輸入的一樣！也就是 A.text, B.text 從 1.txt 抓值出來！

我覺得我問的都太簡單......以致於網路上都找不到！

---

作者: GBKEE    時間: 2012-7-17 17:57

回復 1# bowwow1975
試試看

1. Option Explicit
   
2. Dim Sh As Worksheet
   
3. Private Sub UserForm_Initialize()
   
4.     Dim X As Integer
   
5.     Set Sh = Sheets(1)
   
6.     For X = 1 To 4
   
7.         Controls("Textbox" & X) = Sh.Cells(X + 4, "a")
   
8.         '依序Textbox1....Textbox的內容 為第一個工作表的A欄 第5-第9 列內容
   
9.     Next
   
10. End Sub
    
11. Private Sub TextBox1_Change()
    
12.         儲存textbox 1
    
13. End Sub
    
14. Private Sub TextBox2_Change()
    
15.         儲存textbox 2
    
16. End Sub
    
17. Private Sub TextBox3_Change()
    
18.         儲存textbox 3
    
19. End Sub
    
20. Private Sub TextBox4_Change()
    
21.         儲存textbox 4
    
22. End Sub
    
23. Private Sub 儲存textbox(X As Integer)
    
24.         Sh.Cells(X + 4, "a") = Controls("Textbox" & X)
    
25. End Sub

複製代碼

---

作者: bowwow1975    時間: 2012-7-18 09:48

版大
Private Sub TextBox1_Change()
        儲存textbox 1
End Sub
裡，；"儲存 textbox" 是什麼意思？
儲存是指令？
還是 "儲存textbox" 是一個 textbox 的 name?

---

作者: bowwow1975    時間: 2012-7-18 10:19

回復 2# GBKEE

我發現我的 textbox 有連結到 Excel，所以也算是儲存在 Excel 裡了！
依照版大的 controls 那一串敘述，其實就可以抓出初始值了！
不用在另外的 txt 檔！

感謝大大教學！

---

作者: GBKEE    時間: 2012-7-18 13:11

回復 3# bowwow1975
Sub 儲存textbox(X As Integer)  這程序  接收  X 變數 型態是整數
Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存

---

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