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

[µo°Ý] TEXTBOX«O¯d¿é¤J¹Lªº¦r¤¸

[µo°Ý] TEXTBOX«O¯d¿é¤J¹Lªº¦r¤¸

¦U¦ì¤j¤j¡A§Ú¦bexcel¤W«Ø¥ß¤F¤@­Óuserform¡A¦A«Ø¦ì¤@­Ótextbox¿é¤J¨ì¬Y¤@­Ócell
§Ú·Q°Ý«ç¼Ë¤~¥i«O¯dtextbox©Mcell¤ºªº°O¿ý¡A§Y¤£¥Î¨C¦¸¶}¥X¨Ó³£¤£¥Î¦A¿é¤J©O?
¥ýÁ¤j®aªº¦^ÂÐ

¦^´_ 1# apao2000

§â¿é¤Jªº¤º®e¦s¦b¤u§@ªí¤º´N¥i°O¾Ð¦í¤w¿é¤J¹Lªº¤º®e
¥u¬O¤£²M·¡§A­n³o¨Ç¤º®eªº¥Î³B¦ó¦b?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  apao2000

§â¿é¤Jªº¤º®e¦s¦b¤u§@ªí¤º´N¥i°O¾Ð¦í¤w¿é¤J¹Lªº¤º®e
¥u¬O¤£²M·¡§A­n³o¨Ç¤º®eªº¥Î³B¦ó¦b ...
Hsieh µoªí©ó 2014-3-11 09:03

¦hÁ¦^ÂÐ
¦p¹Ï©Ò¥Ü·Q±Ntextbox©Ò¿é¤Jªº¦rÀx¦s¨ìA1Àx¦s®æ¡A¨ì¤U¦¸°õ¦æ®É·|±NA1ªº°O¿ý¦^¶Ç¨ìtextbox¡A¤£¥Î¨C¦¸³£­n­«Âпé¤J
·Q°Ý¦h¤@ÂI´N¬O¥i§_°õ¦æ¥¨¶°®É¡A¥u¶}±Òuserform¦Ó¤£Åã¥Üworkbook©O?

   

TOP

¦^´_ 3# apao2000
¥i§_°õ¦æ¥¨¶°®É¡A¥u¶}±Òuserform¦Ó¤£Åã¥Üworkbook©O?

¥i¦bForm¤¤³o¼Ë¥[
  1. Private Sub UserForm_Initialize()
  2.   ThisWorkbook.IsAddin = True
  3. End Sub

  4. Private Sub UserForm_Terminate()
  5.   ThisWorkbook.IsAddin = False
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_  apao2000

¥i¦bForm¤¤³o¼Ë¥[
stillfish00 µoªí©ó 2014-3-11 16:39


ÁÂÁ¤j¤j¦^ÂСA
¤£¦n·N«ä§ÚÁ¿±o¤£¤Ó²M·¡¡A¦ý¦pªG¥u¦³¬Y¤@¨â­Ótextbox¥uÁö­n«O¯d°O¿ý¬O«ç¼Ë°µ©O?

TOP

¦^´_ 4# stillfish00
  1. Private Sub TextBox1_Change()
  2.   ThisWorkbook.Sheets(1).[A1].Value = TextBox1.Value
  3. End Sub

  4. Private Sub UserForm_Initialize()
  5.   ThisWorkbook.IsAddin = True
  6.   TextBox1.Value = ThisWorkbook.Sheets(1).[A1].Value
  7. End Sub

  8. Private Sub UserForm_Terminate()
  9.   ThisWorkbook.IsAddin = False
  10.   'Unload Me
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_  stillfish00
stillfish00 µoªí©ó 2014-3-11 19:25


ÁÂÁÂstillfish¤j¤j¡A©ú¤Ñ¦^¤½¤W¸Õ¤U¥ý

TOP

¦^´_  stillfish00
stillfish00 µoªí©ó 2014-3-11 19:25



    stillfish¥S¡A¤w¸Õ¹L¤F¡A¦ý¨S¦³¦^¶Çµ¹textbox1¡A½Ð°ÝtextboxªºÄݩʦ³¨S¦³Ãö«Y©O?

TOP

¦hÁ¦U¦ì¡A§Ú¤w©ó¨ä¥L°Q½×°Ï§ä¨ì¥i¥Îªºµ{¦¡¤F

TOP

¦^´_ 3# apao2000
  1. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ®ÉIJµo
  2. TextBox1 = Sheets(1).[A1] '±NA1ªº­È¼g¤J
  3. End Sub

  4. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'ªí³æÃö³¬®ÉIJµo
  5. Sheets(1).[A1] = TextBox1 '±N¤å¦r¤è¶ô¤º®e¼g¤JA1Àx¦s®æ
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD