ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ bowwow1975 ©ó 2012-7-17 15:53 ½s¿è

½Ð±Ðª©¤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

¦^´_ 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

TOP

ª©¤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?

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD