GBKEE

回復 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

複製代碼

GBKEE

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