[µo°Ý] ¦p¦óÀx¦s¦h­Ó Textbox ¤W¤@¦¸ keyin ªº­È

bowwow1975

½Ð±Ðª©¤Wªº°ª¤â¡I

ºô¸ô¤W¦³«Ü¦hÀx¦s textbox ¤W¤@¦¸­Èªº¤èªk¡I¦ý¬O¦n¹³¨S¦³¦h­Óªº¡I
·N«ä¬O»¡¦pªG§Ú¦³ A.text ©M B.text¡A§â­È¿é¤J¶i¥h«á¡A¥i¥H¦P®ÉÀx¦s¦b 1.txt ¸Ì¡I
¤U¤@¦¸°õ¦æµ{¦¡ªº®É­Ô¡A¹w³]­È´N¸ò¤W¦¸¿é¤Jªº¤@¼Ë¡I¤]´N¬O A.text, B.text ±q 1.txt §ì­È¥X¨Ó¡I

§Úı±o§Ú°Ýªº³£¤Ó²³æ......¥H­P©óºô¸ô¤W³£§ä¤£¨ì¡I

GBKEE

¦^´_ 3# bowwow1975
Sub Àx¦stextbox(X As Integer)  ³oµ{§Ç  ±µ¦¬  X ÅÜ¼Æ «¬ºA¬O¾ã¼Æ
Integer ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s

bowwow1975

¦^´_ 2# GBKEE

§Úµo²{§Úªº textbox ¦³³sµ²¨ì Excel¡A©Ò¥H¤]ºâ¬OÀx¦s¦b Excel ¸Ì¤F¡I
¨Ì·Óª©¤jªº controls ¨º¤@¦ê±Ô­z¡A¨ä¹ê´N¥i¥H§ì¥Xªì©l­È¤F¡I
¤£¥Î¦b¥t¥~ªº txt ÀÉ¡I

·PÁ¤j¤j±Ð¾Ç¡I

bowwow1975

ª©¤j
Private Sub TextBox1_Change()
        Àx¦stextbox 1
End Sub
¸Ì¡A¡F"Àx¦s textbox" ¬O¤°»ò·N«ä¡H
Àx¦s¬O«ü¥O¡H
ÁÙ¬O "Àx¦stextbox" ¬O¤@­Ó textbox ªº name?

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ªº¤º®e ¬°²Ä¤@­Ó¤u§@ªíªºAÄæ ²Ä5-²Ä9 ¦C¤º®e
   
9.     Next
   
10. End Sub
    
11. Private Sub TextBox1_Change()
    
12.         Àx¦stextbox 1
    
13. End Sub
    
14. Private Sub TextBox2_Change()
    
15.         Àx¦stextbox 2
    
16. End Sub
    
17. Private Sub TextBox3_Change()
    
18.         Àx¦stextbox 3
    
19. End Sub
    
20. Private Sub TextBox4_Change()
    
21.         Àx¦stextbox 4
    
22. End Sub
    
23. Private Sub Àx¦stextbox(X As Integer)
    
24.         Sh.Cells(X + 4, "a") = Controls("Textbox" & X)
    
25. End Sub

½Æ»s¥N½X