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

[µo°Ý] ¦p¦ó¹B¥Î UserFormªí³æ¤è¦¡¿é¥X¦Üexcelªº¤u§@ªíÀx¦s®æ¤¤

[µo°Ý] ¦p¦ó¹B¥Î UserFormªí³æ¤è¦¡¿é¥X¦Üexcelªº¤u§@ªíÀx¦s®æ¤¤

¦p¦ó¹B¥Î UserFormªí³æ¤è¦¡¿é¥X¦Üexcelªº¤u§@ªíÀx¦s®æ¤¤¡A
¥B¨Ì§Ç³vµ§ªº¿é¥X¨ì¤u§@ªí¤¤(¶À¦âÀx¦s®æ¤º)¡Aµ§¼Æ¤£­­
Àµ½Ð¨ó§U   ÁÂÁÂ!!

³øªí.gif (88.44 KB)

³øªí.gif

³øªí1.rar (197.78 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# 7777
¶}±Òªí³æ
  1. Sub ¶}±Òµn¿ýªí³æ()
  2. UserForm1.Show
  3. End Sub
½Æ»s¥N½X
¼g¤J¸ê®Æ
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. Set a = .[D65536].End(xlUp).Offset(1, 0)
  4. a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
  5. End With
  6. End Sub
½Æ»s¥N½X
³øªí1.rar (179.16 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

¥i¥H¤F£®! ·PÁ¤j¤j

¥i§_ ¯à¦A½Ð±Ð¤@¤U¤j¤j

¸ê®Æ´N¿é¤J¨ì (TextBox1, TextBox2, TextBox3)¡A¦Óªí³æ¤º «ö Enter «á¡A

¦p¦ó¯à ²M°£¤º®e«á¡A´å¼Ð¦A°±¯d¦A ±b¸¹ÄæTextBox1¤º¡A¤è«K ¦AÄ~Äò¿é¤J§@·~

ÁÂÁÂ!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# 7777
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. Set a = .[D65536].End(xlUp).Offset(1, 0)
  4. a.Resize(, 3) = Array(TextBox1, TextBox2, TextBox3)
  5. End With
  6. Unload Me  '¨ø¸üªí³æ
  7. UserForm1.Show   '­«±Òªí³æ
  8. End Sub   
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

¥i¥H¤F£®!
¦A½Ð±Ð¤@¤U¤j¤j
¥»¤H ¸Õ³o·Q ¦h¥[¤F¸Ñ »P¬ã¨s¤U
¦Û¥H¬° ¦A¥[¤@Äæ TextBox4
§ï¬°
a.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
¥i¦æ.

¦ý´å¼Ð¦ü¥G ¤£·|¦Û¦æ¶]¨ì TextBox4°Ï ??
¤£À´¤U Àµ½Ð¤j¤j ¸Ñ´b..
·PÁ¤j¤j
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¤£¸Ñ? ¦A½Ð±Ð¤@¤U¤j¤j
ªí³æ¤è¦¡¿é¤Jªº®æ¦¡
¦ü¥G»PÁä½L¿é¤Jªº®æ¦¡ ¤£¤@¼Ë ¦p¹Ï...
ÁÂÁÂ!!

³øªí1.gif (147.22 KB)

³øªí1.gif

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# Hsieh

¤£¸Ñ? ¦A½Ð±Ð¤@¤U¤j¤j
ªí³æ¤è¦¡¿é¤Jªº®æ¦¡
¦ü¥G»PÁä½L¿é¤Jªº®æ¦¡
µn¿ý¶sªº¤è¦¡~~ ¤£¤@¼Ë
µLªk­pºâ£®!!  ¦p¹Ï...ªþÀÉ
·q½Ð¨ó§U~~~~·PÁÂ!!

33.gif (82.69 KB)

33.gif

³øªí1.rar (201.43 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# 7777


½T©w³£¬O¿é¤J¼Æ­È?
  1. Private Sub CommandButton1_Click()
  2. With Sheet2
  3. Set a = .[D65536].End(xlUp).Offset(1, 0)
  4. a.Resize(, 3) = Array(Val(TextBox1), Val(TextBox2), Val(TextBox3))  'Âন¼Æ­È¿é¤J
  5. End With
  6. Unload Me
  7. UserForm1.Show
  8. End Sub
½Æ»s¥N½X
TextBox4µLªk¦Û°Ê°±¾nªº°ÝÃD
ªí³æª«¥ó­n¦Û°Ê¨ú±o¾nÂI¥²¶·«ü©wTabIndex
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh

¥i¥H¤F! ¯uªº «D±`«D±`·PÁ¤j¤j

³Â»¶®a±Ú ¶é¦a¯uªº«Ü´Î¡A
¦³³o»ò¦hªº ¥ý¶i°ª¤â¡A¤ÎÀ°¤H§U¤Hªº¦n¤H
Åý§Ú­Ì¥i¥H¾Ç²ß µo°Ý ¶i¨B

¥H¤U¬O ª¦¤å«á¡A¬ÛÃö©Êªº¸ê®Æ »P¤j®a¤À¨É¤@¤U
http://tw.myblog.yahoo.com/smile-1000miles/article?mid=2495&next=2460&l=f&fid=15
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

½Ð°Ý¦U¦ì¤j¤j 1 §ï 2 ­n¦p¦ó....§ï¼g?? ÁÂÁÂ!!

    '1.¿ï¾Ü°Ó«~(¶g´Á)
    [A1] = InputBox(" ½Ð¿é¤J  # ¶g´Á #", " ¿ï¾Ü¡G°Ó«~(¶g´Á)")
   
    '2.¿ï¾Ü°Ó«~(¶g´Á)
    UserForm3.Show

UserForm ªí³æ


¿ï¾Ü°Ó«~(¶g´Á).gif (179.71 KB)

¿ï¾Ü°Ó«~(¶g´Á).gif

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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