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

[ali.b]

سلام دوستان عزیز
تو این فایل نمونه وقتی در ستون مربوط به تاریخ دوم تاریخ رو نوشتم خودکار در ستون بعدی اختلاف تاریخ رو حساب کنه و همنیجنور تا هر ردیفی ایجاد میکنم عمل کنه
من هرکاری کردم فقط تونستم برای ردیف اول انجام بدیم و برای ردیف های بعدی موفق نشدم
البته به صورت شمسی تاریخ ها وارد میشن.

[elam]

شما با استفاده از توابع شمسی می خواید این کار انجام بشه ؟
اگه پاسخ مثبته در سل اختلاف فرمول زیر را بنویسید

=j_diff(b2,c2) 

[nerski]

salam doostane aziz

[khakzad]

سلام دوست عزیز
خوش اومدید
اینجا سوالات مطرح میشن
سوالی دارید بفرمایید

[ali.b]

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

کدی که من نوشتم فقط برای یک ردیف جواب میده و نیاز دارم به ازای هر ردیف ایجاد کنه
ممنون میشم . چون میخوام وقتی در یک سلول تاریخ رو وارد کردم در سلول موردنظر اختلاف رو حساب کنه مانند توابع j_diff در توابع شمسی

[khakzad]

سلام
فایلتون کد نداره

[ali.b]

درسته اما کد من فقط برای یک ردیف هست میخوام ببنیم دوستان برای هر ردیف چه کدی مینویسن

[elam]

این موردی که بنده گفتم هم از طریق vba انجام پذیره شما می تونید تو ایونت ورک شیت بگید اگه ستون آ ردیف خورد سل متناظرش برابر با تابع مذکور باشه

[khakzad]

یعنی منظورتون غیر از حلقه for هست؟؟؟؟؟
با یک حلقه تا هرجا که می خواید محاسبه میشه دیگه

غیرا ز این ؟

[khakzad]

شما اخرین سل پر شده (ردیف ایجاد شده) رو پیدا میکندی
بعد داخل حلقه ادرس سل رو میدید در هر ردیف و اختلاف تاریخ ثبت شده با تاریخ اول رو حساب م یکنه که میتونه طبق گفته دوستمون همون استفاده از تابع j_diff باشه

[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]

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