麻辣家族討論版版 » Excel程式區 » 如何儲存多個 Textbox 上一次 keyin 的值

返回列表下一主題上一主題發帖

[發問] 如何儲存多個 Textbox 上一次 keyin 的值

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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 抓值出來！

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-7-17 17:57 | 只看該作者

回復 1# bowwow1975
試試看

Option Explicit
Dim Sh As Worksheet
Private Sub UserForm_Initialize()
Dim X As Integer
Set Sh = Sheets(1)
For X = 1 To 4
Controls("Textbox" & X) = Sh.Cells(X + 4, "a")
'依序Textbox1....Textbox的內容為第一個工作表的A欄第5-第9 列內容
Next
End Sub
Private Sub TextBox1_Change()
儲存textbox 1
End Sub
Private Sub TextBox2_Change()
儲存textbox 2
End Sub
Private Sub TextBox3_Change()
儲存textbox 3
End Sub
Private Sub TextBox4_Change()
儲存textbox 4
End Sub
Private Sub 儲存textbox(X As Integer)
Sh.Cells(X + 4, "a") = Controls("Textbox" & X)
End Sub

複製代碼

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

3^#

發表於 2012-7-18 09:48 | 只看該作者

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

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

4^#

發表於 2012-7-18 10:19 | 只看該作者

回復 2# GBKEE

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

感謝大大教學！

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-7-18 13:11 | 只看該作者

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

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

返回列表下一主題上一主題