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

[µo°Ý] TextBox ¤W­±¿é¤J¼Æ­È,¦p¦ó¥i¥H¦Û°Ê¹Bºâ­×¥¿

[µo°Ý] TextBox ¤W­±¿é¤J¼Æ­È,¦p¦ó¥i¥H¦Û°Ê¹Bºâ­×¥¿

§Ú·Q­n¦btextbox ¤º®e¡A¨Ò¦p¿é¤J +50+30+20+70
·í«ö¤UEnterÁä«á¡A·|¦Û°Ê­×¥¿¦¨170

´N¸ò¦bexcel Àx¦s®æ¤W¥´¿é¤J  +50+30+20+70   ·í«ö¤UEnterÁä«á  ¡A¤]¬O·|¦Û°Ê¹Bºâ¤@¼Ë
·P®¦

¦^´_ 1# foodgame11
­É¥ÎA1Àx¦s®æ·í¸ê®Æ¥æ´«¤u¨ã¡C

Private Sub TextBox1_AfterUpdate()
    [A1].Value = "=" & TextBox1.Value
    TextBox1.Value = [A1].Value
End Sub

TOP

¦^´_ 2# Kubi


·P®¦¡A±ßÂI¨Ó¸Õ¬Ý¬Ý¡A:$

TOP

¦^´_ 3# foodgame11

¥HEnter¬°¿é¤JÁä
  1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2.   If KeyCode = 13 Then TextBox1 = Application.Evaluate(TextBox1.Text)
  3. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    «D±`·P®¦~~^^
    ¤w¸Ñ¨M¡Kbow

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD