register313

¦^´_ 1# ©P¤j°¶

¤u§@ªí¼Ò²Õ

1. Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = [B65536].End(xlUp).Offset(1, 0).Address Then
   
3.    Target.Value = Now
   
4.    Cells(Target.Row, 1) = Target.Row - 1
   
5.    Yearc = Application.CountIf(Range([C2], [C65536].End(xlUp)), "*" & Year(Now))
   
6.    Cells(Target.Row, 3) = Format(Yearc + 1, "000") & "/aaa/" & Year(Now)
   
7. End If
   
8. End Sub

½Æ»s¥N½X