سررسید تاریخ

[fokker]

با سلام سوالی داشتم ممنون میشم کمک بفرمائید.

چطور میشود با سررسید تاریخ نوشته شده در یک سلول (با این فرمت مثلا 970327)، رنگ سلول مثلا قرمز شود

یعنی اگر تاریخ روزهای شمسی به تاریخ مقرر در یک سلول رسید یا از آن عبور کرد رنگ سلول تغییر کند.؟

[rasools13]

سلام
ابتدا با استفاده از افزونه های فارسی برای تاریخ.. در یک سلول مثلا A1 تابع تاریخ روزانه را وارد کنید که همیشه تاریخ روز جاری رو داشته باشید
احتمال زیاد فرمت تاریخ به صورت 1397/03/27 خواهد بود که با استفاده از توابع ترکیبی ذیل میتوانید آن را به فرمتی که استفاده می کنید (970327) تبدیل نمایید
فرمول ذیل را در سلول B1 وارد نمایید

=VALUE(MID(SUBSTITUTE(A1;"/";"");3;LEN(SUBSTITUTE(A1;"/";""))-1)) 

این فرمول کاراکترهای / را همراه با عدد 13 حذف کرده و نتیجه را به فرمت عددی ارایه می کند. نتیجه تابع به صورت 970327 خواهد بود
...
حال سلول هایی که میخواهید رنگ آن ها تغییر کند را انتخاب و با استفاده از ابزار conditional formatting تعیین کنید که اگر مقدارشان کوچکتر یا برابر سلول B1 بود رنگ سلول تعییر کند

[fokker]

سلام
ابتدا با استفاده از افزونه های فارسی برای تاریخ.. در یک سلول مثلا A1 تابع تاریخ روزانه را وارد کنید که همیشه تاریخ روز جاری رو داشته باشید
احتمال زیاد فرمت تاریخ به صورت 1397/03/27 خواهد بود که با استفاده از توابع ترکیبی ذیل میتوانید آن را به فرمتی که استفاده می کنید (970327) تبدیل نمایید
فرمول ذیل را در سلول B1 وارد نمایید

=VALUE(MID(SUBSTITUTE(A1;"/";"");3;LEN(SUBSTITUTE(A1;"/";""))-1)) 

این فرمول کاراکترهای / را همراه با عدد 13 حذف کرده و نتیجه را به فرمت عددی ارایه می کند. نتیجه تابع به صورت 970327 خواهد بود
...
حال سلول هایی که میخواهید رنگ آن ها تغییر کند را انتخاب و با استفاده از ابزار conditional formatting تعیین کنید که اگر مقدارشان کوچکتر یا برابر سلول B1 بود رنگ سلول تعییر کند

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

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

[rasools13]

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

برای انتقال بهتر مطلب این طور بیان کردم... شما میتونید فرمول را در یک تابع IF قرارداده و در conditional formatting در قسمتی که دوستمون iranweld در تصویر نشان دادن کپی نمایید و بجای مقدار A1 تابع تاریخ روز جاری را قرار دهید

[fokker]

با سلام

فایل پیوست را بررسی بفرمایید

[ATTACH=CONFIG]16669[/ATTACH]

خیلی ممنون . فقط یک سوال دیگر با عرض معذرت :

اگر بخواهیم یک شرط اضافه کنیم با این محتوی که :

اگر در ستون کناری (یعنی b) ، اگر false نوشته شده بود آنوقت رنگ سلولی که تاریخ سررسید آن گذشته است قرمز شود به چه صورت باید عمل کرد . ممنون میشم اگر راهنمایی بفرمایید.
یعنی اگر در سلول a2 تاریخی که نوشته شده است سررسید آن گذشته باشد در صورتیکه در سلول b2 کلمه false نوشته شده باشد ، رنگ سلول a2 به قرمز تغییر نماید.

سپاس فراوان

[fokker]

دوستان کمک لطفا

[fokker]

دوستان لطفا در خصوص سوال نقل قول شماره #6 کمک نمایند سپاس

[M_ExceL]

دوستان لطفا در خصوص سوال نقل قول شماره #6 کمک نمایند سپاس

سلام
از آنجایی که عبارت false جزو کلمات رزرو شده هست، در این مورد نمی توان از ان استفاده کرد، می تونید بجای false از کلمات دیگری مانند "نادرست"
استفاده کنید.
فایل پیوست رو ببینید از فرمول زیر جهت conditional formatting استفاده شده :

=AND(A1>=TEXT(NOW(),"[$-fa-ir,16]yyyy/mm/dd"), B1="نادرست")

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

Sub test()
On Error Resume Next

lastrow = Range("a" & Rows.Count).End(xlUp).Row
ts = Application.WorksheetFunction.Text(Now(), "[$-fa-ir,16]yyyy/mm/dd")
For i = 1 To lastrow
If Range("a" & i) >= ts And Range("b" & i) = "نادرست" Then
Range("a" & i).Interior.ColorIndex = 3
End If
Next i
End Sub

موفق باشید.

[fokker]

سلام
از آنجایی که عبارت false جزو کلمات رزرو شده هست، در این مورد نمی توان از ان استفاده کرد، می تونید بجای false از کلمات دیگری مانند "نادرست"
استفاده کنید.
فایل پیوست رو ببینید از فرمول زیر جهت conditional formatting استفاده شده :

=AND(A1>=TEXT(NOW(),"[$-fa-ir,16]yyyy/mm/dd"), B1="نادرست")

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

Sub test()
On Error Resume Next

lastrow = Range("a" & Rows.Count).End(xlUp).Row
ts = Application.WorksheetFunction.Text(Now(), "[$-fa-ir,16]yyyy/mm/dd")
For i = 1 To lastrow
If Range("a" & i) >= ts And Range("b" & i) = "نادرست" Then
Range("a" & i).Interior.ColorIndex = 3
End If
Next i
End Sub

موفق باشید.

ممنون . اما فکر کنم باید راهی باشه . دوستان کمک کنند لطفا

[M_ExceL]

ممنون . اما فکر کنم باید راهی باشه .

سلام
البته ستون B رو اگر از نوع text تعریف کنید احتمالا مشکل حل خواهد شد.
فرمول رو هم به این صورت تغییر بدید :

=AND(A1>=TEXT(NOW(),"[$-fa-ir,16]yyyy/mm/dd"), B1="false")

[iranweld]

با سلام

فرمول را بصورت ذیل اصلاح کنید

=if(and(substitute(b1;"F";"F_")="F_ALSE";j_diff(j_today();left(a1;2)&"/"&mid(a1;3;2)&"/"&right(a1;2))<0);1;0) 

[fokker]

سلام مجدد ممنون از همه دوستان بزرگوار بابت راهنمایاشون

یک سوال اگر همین فرمول رو که دوست عزیز iranweld نوشته است و درست هم می باشد رو بخواهیم به این ترتیب عملیاتی کنیم . که در صورت یک هفته مانده به سررسید مقرر و همچنین با توجه به FALSE بودن سلول ردیف B متناظر آن به رنگ قرمز درآید چه باید کرد

[fokker]

کمک مجدد مهندسان عزیز.

[M_ExceL]

سلام مجدد ممنون از همه دوستان بزرگوار بابت راهنمایاشون

یک سوال اگر همین فرمول رو که دوست عزیز iranweld نوشته است و درست هم می باشد رو بخواهیم به این ترتیب عملیاتی کنیم . که در صورت یک هفته مانده به سررسید مقرر و همچنین با توجه به FALSE بودن سلول ردیف B متناظر آن به رنگ قرمز درآید چه باید کرد

سلام
بفرمایید :

  =IF(AND(SUBSTITUTE(B1,"F","F_")="F_ALSE",IF(AND(j_diff(j_today(),LEFT(A1,2)&"/"&MID(A1,3,2)&"/"&RIGHT(A1,2))>=0),j_diff(j_today(),LEFT(A1,2)&"/"&MID(A1,3,2)&"/"&RIGHT(A1,2))<=7)),1,0)

و یا به این صورت :

=IF(AND(SUBSTITUTE(B1,"F","F_")="F_ALSE",j_diff(j_today(),LEFT(A1,2)&"/"&MID(A1,3,2)&"/"&RIGHT(A1,2))<=7),1,0)