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

[µo°Ý] ¿é¤J5Äæ«á¸õ¤U¤@¦C

[µo°Ý] ¿é¤J5Äæ«á¸õ¤U¤@¦C

VBA¦³¿ìªk¿é¤J¤­­ÓÄæ¦ì«á¡A¦Û°Ê¸õ¤U¤@¦C¶Ü?
¨Ò¦p: A1¡BB1¡BC1¡BD1¡BE1¿é¤J§¹«á¸õ¤U¤@¦C-->A2¡BB2¡BC2¡BD2¡BE2

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Column <> 5 Then Exit Sub
     If .Value <> "" Then Cells(.Row + 1, 1).Select
End With
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL
­ã¤j§Ú·Q½Ð°Ý¤@¤U
Target . Count > 1
¬O¤°»ò·N«ä???

TOP

¦^´_ 3# s13030029


Àx¦s®æªº¼Æ¶q, ­Y¥Î¦h®æ¶K¤W, ¤£§@°Ê(³æ®æ¤~¦³®Ä)~~

TOP

¦^´_ 4# ­ã´£³¡ªL

ÁA¸Ñ~ÁA¸Ñ~ÁÂÁÂ~~~

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD