El_Desouky قام بنشر فبراير 24, 2024 قام بنشر فبراير 24, 2024 السلام عليكم اخوانى هل يمكن تنسيق فورمات التاريخ داخل المعادلة حتى لا يتغير وهل يمكن اضافه هذه المعادله من خلال اكواد vba بدلا من كتابتها داخل الخليه مرفق صوره توضح المعادله
El_Desouky قام بنشر فبراير 24, 2024 الكاتب قام بنشر فبراير 24, 2024 (معدل) 6 دقائق مضت, abouelhassan said: الصورة لا تظهر عندى اكتب المعادلة =if(D2="";"";if(E2="";Now();E2)) تم تعديل فبراير 24, 2024 بواسطه El_Desouky
abouelhassan قام بنشر فبراير 24, 2024 قام بنشر فبراير 24, 2024 لإضافة تنسيق للتاريخ في المعادلة، يمكنك استخدام الدالة 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" بالخلية التي ترغب في وضع المعادلة فيها.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.