GBKEE

¦^´_ 1# av8d

1. Private Sub CommandButton1_Click()
   
2.     'Dim T1 As Date, T2 As String, T3 As String, T4 As String
   
3.     'T1 = TextBox1.Value
   
4.     'Sheets("Data").[A65536].End(3)(2, 1) = T1
   
5.     Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
   
6.     'Sheets("Data").Cells(Rows.Count, "A").End(3).Offset(1).Resize(1, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
   
7.     'Rows.Count=> ¤u§@ªí ¦CªºÁ`¼Æ 2003ª©->65536 , 2007ª©¥H¤W ???
   
8.     'Resize(1, 4)  ¸Óª«¥ó¥Nªí½Õ¾ã«áªº½d³ò¡C  ­ì¥»¬°1¦C1Äæ ½Õ¾ã¬°1¦C4Äæ
   
9.     Unload Me
   
10. End Sub

½Æ»s¥N½X