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

[µo°Ý] ¦p¦óÅV¥Ü·í¤U¿é¤J®É¶¡

¦^´_ 1# kkooo15
¥Î¤½¦¡¨S¿ìªk§a¡AVBA¥Î¸Ó¤u§@ªíªº Change ¨Æ¥ó
²Ä¤@¦¸¶ñ¤JBÄæ®É¬ö¿ý®É¶¡
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Column = 2 And Len(Cells(Target.Row, 1).Text) = 0 And Len(Target.Cells(1).Text) > 0 Then
  3.         Cells(Target.Row, 1).Value = Now
  4.     End If
  5. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD