7777

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

Hsieh

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

7777

¦^´_ 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§@·~

ÁÂÁÂ!!

Hsieh

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

¤U¸ü¦¸¼Æ: 18

2013-2-17 21:58