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

[µo°Ý] ½Ð°Ý¤@¤U¤j¯«³o­Ó»yªk¦p¦ó­×¥¿¦³ªþÀÉ®×

[µo°Ý] ½Ð°Ý¤@¤U¤j¯«³o­Ó»yªk¦p¦ó­×¥¿¦³ªþÀÉ®×

Private Sub B1_Click()
    r = Range("A1").End(xlDown).Row + 1
    Cells(r, "A") = myA.Text
    Cells(r, "B") = myB.Text
    Cells(r, "C") = myC.Text
    Cells(r, "D") = myD.Text
    Cells(r, "E") = myE.Text
    Cells(r, "F") = myF.Text
    Cells(r, "G") = myG.Text
    Cells(r, "H") = myH.Text
    Cells(r, "I") = myI.Text
    Cells(r, "J") = myJ.Text
    Cells(r, "M") = myM.Text
    Cells(r, "N") = myN.Text
    Cells(r, "O") = myO.Text
End Sub
¦pªGA2¦æ¦³¸ê®Æ´N¨S°ÝÃD¡A¦ý¦pªGA2¦æµL¨S¸ê®Æ´N·|¥d¦bCells(r, "A") = myA.Text³o¦æ¡A¬O¤£¬O­þ¸Ì¤U¿ù¤F©O¡H·Ð½Ð«ü¾É¡AÁÂÁ¡C

«Ø¥ß¸ê®Æ.rar (41.01 KB)

¦^´_ 2# Kubi

·PÁ¤j¯«¡A°ÝÃD¸Ñ¨M¤F¡A¤Ó·PÁ¤F

TOP

¦^´_ 1# spensers
­ì¡G
r = Range("A1").End(xlDown).Row + 1

§ï¦¨©³¤Uªº¸Õ¸Õ¬Ý¡G
r = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD