دالة if

[mmm83]

 

السلام عليكم

اريد ان استخدم دالة if بين تاريخين معينين

مثلا الفترة المحصورة بين 4/11 و 20/12 "الموظف يستحق"

الفترة المحصورة بين 21/12 و 8/1 الموظف لايستحق

مع شكري

[أبوعيد]

وعليكم السلام

اخي حياك الله حتي تجد استجابة قم بعمل ملف اكسل وضع فيه بياناتك وارفقه هنا حتي توفر الوقت علي الاعضاء

تحياتي

[mmm83]

شكرا لكم استاذ 

هو ليس ملف انما طريقة تعامل الدالة if مع التاريخ اذا كان محصور بين فترتين يعني شي عام 

وهذا ملف لعلي اوفق في توصيل الفكرة

دالة if.xlsx

[حسين مامون]

السلام عليكم

بعد ادن الاستاد ابو عيد

طريقة اخرى قريبة من طلبك ب VBA

اتمنى ان يفيدك

Option Explicit

Sub test1()
Dim lr
Dim x, r
Dim dt1, dt2
dt1 = CDate(Range("b4"))
dt2 = CDate(Range("b5"))
If dt1 = 0 Then MsgBox "ادخل التاريخ من", vbInformation: Exit Sub
If dt2 = 0 Then MsgBox "ادخل التاريخ الى", vbInformation: Exit Sub
r = 9
Range("f9:h1000").ClearContents
lr = Cells(Rows.Count, 1).End(3).Row
For x = 9 To lr
Select Case Cells(x, 2).Value2: Case dt1 To dt2
Cells(x, 1).Resize(, 3).Copy Range("f" & r)
r = r + 1
End Select
Next x
End Sub

 

دالة if.xlsm

تم تعديل نوفمبر 8, 2021 بواسطه حسين مامون

[mmm83]

شكرا جزيلا لكم استاذ على مبادرتكم الطيبة

لكن المطلوب هو استعمال الدالة  if والتاريخ يمثل تاريخ اليوم الحالي ويتغير اوتوماتك 

مثلا لدينا موظف هذا على سبيل التوضيح وليس برنامج لشؤون الموظفين 

لدينا موظف من تاريخ اليوم 8/11 الى 10/12 يسجل مناوب يعني بعتبير ادق اذا كانت التاريخ في G3 محصور بين 8/11 - 10/12 يظهر مناوب 

يعني ..  

=IF(g3=التاريخ الحصور بين ..8/11-10/12;"مناوب";"")

ولو المعادلة ظهرت معكوسة ولكن ارجو ان تكون مفهومه 

المطلوب طريقة كتابة الامر باللون الاخضر باستخدام الدالة  if

[حسين مامون]

تجربة ربما تفيدك

نفس الكود السابق مع بعض التغييرات

انظر الملف

Option Explicit

Sub test1()
Dim lr
Dim x, r
Dim dt1, dt2
dt1 = Date
lr = Cells(Rows.Count, "h").End(3).Row
Range("i5:i1000").ClearContents
For x = 5 To lr
dt2 = CDate(Cells(x, "h"))
Cells(x, "i").Value = "no"
Select Case Cells(x, "h").Value2: Case dt1 To dt2
Cells(x, "i").Value = "ok"
End Select
Next x
End Sub

 

test مياوم.xlsm

[أ / محمد صالح]

حسب فهمي للمطلوب 

فلا تحتاج لكتابة today في خلية وإنما تحتاج لكتابة تاريخ البداية مثلا A1 وتاريخ النهاية B1

ونستعمل هذه المعادلة

=IF(AND(TODAY()>A1,TODAY()<B1),"yes","no")

مع تغيير yes و no إلى النص المراد في الحالتين

بالتوفيق 

[mmm83]

اساتذتي الافاضل ...الاستاذ حسين مامون والاستاذ محمد صالح 

باجمل عبارات الشكر والامتنان انثر هذه الكلمات على اناملكم الطيبة