owen06

¦^´_ 7# lichang


    ¹ï¤F¡A¦pªG§Aªºoffice¬O2003ªº¡A¨º
    Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
    ­n§ï¦¨
    Range(Cells(1, 2), Cells(3, [iv3].End(1).Column)).Select
    ¤~¤£·|¶W¥X½d³ò

lichang

ÁÂÁ¦U¦ì¤j¤jÀ°¦£¡A§Ú´ú¸Õ¤@¤U

owen06

¦^´_ 4# lichang


    À°¸É¦Û°Ê±Æ§Ç

1. Private Sub CommandButton1_Click()
   
2. Dim Col As Integer
   
3. Col = Sheets("¤u§@ªí1").[a1].End(xlToRight).Column + 1
   
4. Cells(1, Col) = TextBox1.Value
   
5. Cells(2, Col) = TextBox2.Value
   
6. Cells(3, Col) = TextBox3.Value
   
7. Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
   
8. Selection.Sort Key1:=Range("B1"), Order1:=xlAscending
   
9. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 4# lichang

¸Õ¸Õ¡I

1. Private Sub CommandButton1_Click()
   
2. Dim Col As Integer
   
3. Col = Sheets("¤u§@ªí1").[a1].End(xlToRight).Column + 1
   
4. Cells(1, Col) = TextBox1.Value
   
5. Cells(2, Col) = TextBox2.Value
   
6. Cells(3, Col) = TextBox3.Value
   
7. End Sub

½Æ»s¥N½X

lichang

¤£¦n·N«ä¡A¥i¯à¤§«eÀɮצ³°ÝÃD¡A§Ú­«·s©ñ¸mÀÉ®×»P¥Î¹Ï¥Ü¤è¦¡¸ÑÄÀ¦n¤F

¤U¸ü (205.48 KB)

2015-11-4 00:11

  ­ì©l¸ê®Æ

¤U¸ü (12.65 KB)

2015-11-4 00:10

  ¶}±Ò¹ï¸Üµøµ¡¡A¨Ã¿é¤J¸ê®Æ

¤U¸ü (207.42 KB)

2015-11-4 00:12

  ¬d¸ß¦³ªÅ®æ¡A¶ñ¤J¸ê®Æ

¤U¸ü (207.28 KB)

2015-11-4 00:13

  ¦]°¨¹F½s¸¹¤j¤p¤£¤@¡A­«·s¦w±Æ¤@¦¸!!µ²§ô


·s¼W Microsoft Excel ¤u§@ªí.rar (17.14 KB)

¤U¸ü¦¸¼Æ: 11

2015-11-4 00:19

owen06

¦^´_ 2# lichang


    §A¦pªG¯à°÷±Ô­zªº§ó©ú½T¤@ÂI¡A¬Æ©ÎÁ|¥X§¹¾ãªº¨Ò¤l¨Ó¡A¤j®a·|¤ñ¸û¦nÀ°¦£§A¡A
    ¦]¬°§A»¡©úªº¤Ó¤Ö¤F¡AÅý¤HºN¤£µÛÀYºü¡A¤£ª¾¹D¸Ó¦p¦óÀ°¦£¡C

lichang

¦Û³»¤@¤U!!³Â·Ð¤j¤j´eªºÀ°¦£!!