با سلام
در فایل پیوست در صورت ورود دیتا در سلول ستون A تاریخ در سلول مجاور در ستون B درج میگردد و با باز کردن مجدد در روزهای آتی تاریخ تغییر نمیابد
کد PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
On Error Resume Next 'skip all run-time errors
Application.EnableEvents = False
If Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = J_TODAY(1)
End If
Application.EnableEvents = True
On Error GoTo 0 'Turn off error trapping and re-allow run time errors
End If
End Sub
علاقه مندی ها (Bookmarks)