محاسبه خودکار اختلاف تاریخ

[ali.b]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 5) = "" Then
c.Offset(0, 5) = Now()
Exit Sub
End If
Next
End Sub

با این کد جواب نمیگیرم
اما اگه به جای diff از j_today استفاده کنم جواب میده ولی واسه اون ارورو میده

[khakzad]

اقای ابسرخی نمیشه اینطوری
الان تو این کد diff ندارید اصلا که بجاش today استفاده کنید.
سوالتون خیلی مبهمه.
لطفا روی فایل، کد رو اجرا کنید و حد اقل یک داده بزنید و بگید هدف چی هست

[ali.b]

میخوام وقتی در 2 تا ستون تاریخ وارد کردم به محض اینکه تاریخ دوموارد شد اختلاف دوتا تاریخ رو محاسبه کنه

[mokaram]

دوست عزیز شما اول ماژولهای توابع شمسی را تو فایل وارد کن بعد از کد زیر استفاده کن

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c, d As Range
For Each c In Sheet1.Range("b2:b10")
    If c = "" Or c.Offset(0, 1).Value = "" Then
        c.Offset(0, 2).Value = Empty
    End If
    If c <> "" Then
        If c.Offset(0, 1).Value <> "" Then
            c.Offset(0, 2).Value = J_DIFF(c.Value, c.Offset(0, 1))
        End If
    End If
Next c
End Sub 

[ali.b]

ممنونم عالی بود