[發問] TEXTBOX保留輸入過的字元

帖子: 21
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-3-6
最後登錄: 2020-7-24

3^#

發表於 2014-3-11 10:16 | 只看該作者

回復 apao2000

把輸入的內容存在工作表內就可記憶住已輸入過的內容
只是不清楚你要這些內容的用處何在 ...
Hsieh 發表於 2014-3-11 09:03

多謝回覆
如圖所示想將textbox所輸入的字儲存到A1儲存格，到下次執行時會將A1的記錄回傳到textbox，不用每次都要重覆輸入
想問多一點就是可否執行巨集時，只開啟userform而不顯示workbook呢?

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2014-3-11 16:39 | 只看該作者

回復 3# apao2000

可否執行巨集時，只開啟userform而不顯示workbook呢?

可在Form中這樣加
Private Sub UserForm_Initialize()

ThisWorkbook.IsAddin = True

End Sub

Private Sub UserForm_Terminate()

ThisWorkbook.IsAddin = False

End Sub
複製代碼

帖子: 21
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-3-6
最後登錄: 2020-7-24

5^#

發表於 2014-3-11 18:33 | 只看該作者

回復 apao2000

可在Form中這樣加
stillfish00 發表於 2014-3-11 16:39

謝謝大大回覆，
不好意思我講得不太清楚，但如果只有某一兩個textbox只雖要保留記錄是怎樣做呢?

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2014-3-11 19:25 | 只看該作者

回復 4# stillfish00

Private Sub TextBox1_Change()
ThisWorkbook.Sheets(1).[A1].Value = TextBox1.Value
End Sub
Private Sub UserForm_Initialize()
ThisWorkbook.IsAddin = True
TextBox1.Value = ThisWorkbook.Sheets(1).[A1].Value
End Sub
Private Sub UserForm_Terminate()
ThisWorkbook.IsAddin = False
'Unload Me
End Sub

複製代碼

帖子: 21
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-3-6
最後登錄: 2020-7-24

7^#

發表於 2014-3-11 21:53 | 只看該作者

回復 stillfish00
stillfish00 發表於 2014-3-11 19:25

謝謝stillfish大大，明天回公上試下先

帖子: 21
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-3-6
最後登錄: 2020-7-24

8^#

發表於 2014-3-12 19:02 | 只看該作者

回復 stillfish00
stillfish00 發表於 2014-3-11 19:25

stillfish兄，已試過了，但沒有回傳給textbox1，請問textbox的屬性有沒有關係呢?

帖子: 21
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-3-6
最後登錄: 2020-7-24

9^#

發表於 2014-3-12 23:53 | 只看該作者

多謝各位，我已於其他討論區找到可用的程式了

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2014-3-13 15:54 | 只看該作者

回復 3# apao2000

Private Sub UserForm_Initialize() '表單初始化時觸發
TextBox1 = Sheets(1).[A1] '將A1的值寫入
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '表單關閉時觸發
Sheets(1).[A1] = TextBox1 '將文字方塊內容寫入A1儲存格
End Sub

複製代碼

學海無涯_不恥下問