اضافة فورمات التاريخ داخل المعادله

[El_Desouky]

السلام عليكم اخوانى

هل يمكن تنسيق فورمات التاريخ داخل المعادلة حتى لا يتغير 

وهل يمكن اضافه هذه المعادله من خلال اكواد vba بدلا من كتابتها داخل الخليه 

مرفق صوره توضح المعادله

[abouelhassan]

الصورة لا تظهر عندى اكتب المعادلة 

[El_Desouky]

 

6 دقائق مضت, abouelhassan said:

الصورة لا تظهر عندى اكتب المعادلة 

=if(D2="";"";if(E2="";Now();E2))

تم تعديل فبراير 24 بواسطه El_Desouky

[abouelhassan]

لإضافة تنسيق للتاريخ في المعادلة، يمكنك استخدام الدالة TEXT لتحويل القيمة إلى نص بتنسيق التاريخ المطلوب. اليك الصيغة المعدلة:
```
=IF(D2="", "", IF(E2="", TEXT(NOW(), "dd/mm/yyyy"), TEXT(E2, "dd/mm/yyyy")))
```
هذه المعادلة تقوم بفحص قيمة في الخلية D2، إذا كانت فارغة، فإنها تعيد قيمة فارغة، وإذا لم تكن فارغة، فإنها تفحص قيمة في الخلية E2، إذا كانت فارغة، فإنها تعيد التاريخ الحالي بتنسيق "dd/mm/yyyy"، وإذا لم تكن فارغة، فإنها تعيد قيمة في الخلية E2 بتنسيق التاريخ "dd/mm/yyyy".

يمكن تنسيق تاريخ الخلية داخل المعادلة باستخدام الدالة TEXT لتحويل التاريخ إلى نص بالتنسيق المطلوب. وبالنسبة لإضافة المعادلة باستخدام VBA، يمكنك استخدام الكود التالي:
Sub AddFormulaWithDateFormat()
    Dim ws As Worksheet
    Dim formula As String
    
    ' افتح ورقة العمل المراد العمل عليها
    Set ws = ThisWorkbook.Sheets("Sheet1") ' تغيير Sheet1 بالاسم الصحيح
    
    ' تحديد الصيغة المراد إضافتها بالتنسيق المطلوب
    formula = "=IF(D2="""", """", IF(E2="""", TEXT(NOW(), ""dd/mm/yyyy""), TEXT(E2, ""dd/mm/yyyy"")))"
    
    ' إضافة الصيغة إلى الخلية المرادة
    ws.Range("F2").Formula = formula ' تغيير F2 بالخلية المطلوبة
End Sub
يرجى تغيير "Sheet1" بالاسم الصحيح لورقة العمل التي ترغب في إضافة المعادلة إليها، وتغيير "F2" بالخلية التي ترغب في وضع المعادلة فيها.