- ©«¤l
- 57
- ¥DÃD
- 21
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-9-18
- ³Ì«áµn¿ý
- 2022-9-13
|
[µo°Ý] ¦³ÃöVBAªí³æ ·s¼Wקï¸ü¤J¸ê®Æªº°ÝÃD
°ÝÃD.zip (12.91 KB)
¤£¦n·N«äè¤JªùVBA,·Q½Ð«e½ú±Ð¾Ç¤@¤UªíªºVBAªº¬ÛÃö¥Îªk
·s¼W¸ê®Æ§Ú¤w¸g¾Ç·|
Private Sub CommandButton7_Click()
nRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1
Cells(nRow, 1) = TextBox1.Text
Cells(nRow, 2) = TextBox2.Text
Cells(nRow, 3) = TextBox3.Text
Cells(nRow, 4) = TextBox4.Text
Cells(nRow, 5) = TextBox5.Text
End Sub
°ÝÃD¤@
·s¼W¸ê®Æ¥i¥H«ü©w¤u§@ªí¶Ü?
°²³]§Ún§â¹q¸Ü ¹}¥D Ãdª«¦WºÙ ¥Í¤é ¦~ÄÖ °O¿ý©ñ¨ì¤u§@ªí1
°O¿ý©ñ¨ì¤u§@ªí2
n¦p¦ó¼gVBA
°ÝÃD¤G
¸ê®Æ¤w°O¿ý¶i¥hEXCEL ¦p¦ó³z¹L¹q¸Ü§â¨ä¥L¸ê®Æ¸ü¤J¶i¨Ó
°ÝÃD¤T
°²³]¦P¤@Ó¹}¥D¦³¦h°¦Ãdª«,¬O§_¯à¿ï¾ÜÃdª«¦b¸ü¤J¨ä¥L¸ê®Æ
°ÝÃD¥|
¸ü¤Jªº¸ê®Æ¯à¤£¯à¦b¤W±×§ï«á,ÂIÀ»×§ï,´N¥i¥H¶i¦æקï |
|