[حل شده] ثبت تاریخ بدون تغییر

[narmaki]

با سلام
من میخوام در ستون a اگر اطلاعاتی وارد کردم در ستون b تاریخ کامپیوتر ثبت بشه بدون تغییر ..یعنی روز بعد که اکسل باز شد تاریخ دیروز خورده باشه..نمونه اکسل رو گذاشتم ممنون پاسخگو باشیدsabt tarikh.xlsx

[generalsamad]

با سلام

این لینک رو ببینید

http://forum.exceliran.com/showthread.php/8011-%D8%AB%D8%A8%D8%AA-%D8%AE%D9%88%D8%AF%DA%A9%D8%A7%D8%B1-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%DA%A9%D8%A7%D9%85%D9%BE%DB%8C%D9%88%D8%AA%D8%B1-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%B3%D8%AA%D9%88%D9%86

[iranweld]

با سلام

با استفاده از قابلیت رویدادها در اکسل ماکرویی تهیه گردید که در صورت ورود شماره ردیف در ستون A، در سلول مجاور آن تاریخ روز به شمسی درج میگردد

کد رویداد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next  'skip all run-time errorsگ'


Application.EnableEvents = False

    If Not Intersect(Target, Me.Range("A2:b50000")) Is Nothing Then data
    
    Application.EnableEvents = True

On Error GoTo 0
   
End Sub 

کد ماکرو

Sub data()
Dim i, J As Integer

Dim rowNumberValue As Integer, columnNumberValue As Integer

rowNumberValue = ActiveCell.Row

columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 1) <> "" And Cells(rowNumberValue, 2) = "" Then

  Cells(rowNumberValue, 2) = J_TODAY(1)
  
  ElseIf Cells(rowNumberValue - 1, 1) <> "" And Cells(rowNumberValue, 2) = "" Then
  
  Cells(rowNumberValue - 1, 2) = J_TODAY(1)
   
End If

End Sub 

[narmaki]

با سلام

با استفاده از قابلیت رویدادها در اکسل ماکرویی تهیه گردید که در صورت ورود شماره ردیف در ستون A، در سلول مجاور آن تاریخ روز به شمسی درج میگردد

کد رویداد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next  'skip all run-time errorsگ'


Application.EnableEvents = False

    If Not Intersect(Target, Me.Range("A2:b50000")) Is Nothing Then data
    
    Application.EnableEvents = True

On Error GoTo 0
   
End Sub 

کد ماکرو

Sub data()
Dim i, J As Integer

Dim rowNumberValue As Integer, columnNumberValue As Integer

rowNumberValue = ActiveCell.Row

columnNumberValue = ActiveCell.Column

If Cells(rowNumberValue, 1) <> "" And Cells(rowNumberValue, 2) = "" Then

  Cells(rowNumberValue, 2) = J_TODAY(1)
  
  ElseIf Cells(rowNumberValue - 1, 1) <> "" And Cells(rowNumberValue, 2) = "" Then
  
  Cells(rowNumberValue - 1, 2) = J_TODAY(1)
   
End If

End Sub 

تشکر از شما..
حالا فرض کنید من بخوام بجای ستون b ستون e تاریخ ثبت بشه چه تغییراتی باید بدم تو فرمول ؟و این ماکرو رو باید کجا کپی کنم؟؟؟

[iranweld]

با سلام

هر کجا عدد 2 مشاهده میکنید به عدد 3 تغییر بدید

در ضمن یک فایل جدید ضمیمه شده است

If Cells(rowNumberValue, 1) <> "" And Cells(rowNumberValue, 2) = "" Then

  Cells(rowNumberValue, 2) = J_TODAY(1)
  
  ElseIf Cells(rowNumberValue - 1, 1) <> "" And Cells(rowNumberValue, 2) = "" Then
  
  Cells(rowNumberValue - 1, 2) = J_TODAY(1)