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

[µo°Ý] ¦³ÃöVBAªí³æ ·s¼W­×§ï¸ü¤J¸ê®Æªº°ÝÃD

[µ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¦æ­×§ï

¦^´_ 1# mark761222

¤£ª¾¹D¬O¤£¬O§A­nªº ¦³ªÅ¸Õ¸Õ¬Ý§a

°ÝÃD.rar (36.96 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD