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

apao2000

各位大大，我在excel上建立了一個userform，再建位一個textbox輸入到某一個cell
我想問怎樣才可保留textbox和cell內的記錄，即不用每次開出來都不用再輸入呢?
先謝大家的回覆

Hsieh

回復 1# apao2000

把輸入的內容存在工作表內就可記憶住已輸入過的內容
只是不清楚你要這些內容的用處何在?

apao2000

回復  apao2000

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

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

   

下載 (79.41 KB)
TextBox

2014-3-11 10:04

stillfish00

回復 3# apao2000

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

可在Form中這樣加

1. Private Sub UserForm_Initialize()
   
2.   ThisWorkbook.IsAddin = True
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Terminate()
   
6.   ThisWorkbook.IsAddin = False
   
7. End Sub

複製代碼

apao2000

回復  apao2000

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

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

stillfish00

回復 4# stillfish00

1. Private Sub TextBox1_Change()
   
2.   ThisWorkbook.Sheets(1).[A1].Value = TextBox1.Value
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6.   ThisWorkbook.IsAddin = True
   
7.   TextBox1.Value = ThisWorkbook.Sheets(1).[A1].Value
   
8. End Sub
   
9. 
   
10. Private Sub UserForm_Terminate()
    
11.   ThisWorkbook.IsAddin = False
    
12.   'Unload Me
    
13. End Sub

複製代碼

apao2000

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

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

apao2000

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

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

apao2000

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

Hsieh

回復 3# apao2000

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

複製代碼