تنسيق قيمة صيغة

[نايف - م]

السلام عليكم
 
الصيغة التالية أدرجها في خلية بواسطة زر أمر (كود)

ActiveCell.FormulaR1C1 = "=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")"

و هي تعطيني قيمة تاريخ

أريد أن أنسق التاريخ

كتبت الكود على الشكل التالي

ActiveCell.FormulaR1C1 = Format("=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")", "dddd/dd/mm")

لم يعمل

ممكن المساعدة

تم تعديل ديسمبر 23, 2014 بواسطه نايف - م

[ياسر خليل أبو البراء]

أولاً ارفق ملف أخي الغالي ..

ثانيا هل يمكنك وضع الأكواد أو المعادلات في الأمر كود ليظهر بشكل ملائم أخي الحبيب هكذا <>

هنا يتم وضع الكود أو المعادلة

تم تعديل ديسمبر 23, 2014 بواسطه YasserKhalil

[ابو تراب]

هل هذا يفي بالغرض؟؟؟

ActiveCell.FormulaR1C1 = Format("=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")", "yyyy/dd/mm")

[ياسر خليل أبو البراء]

جرب الكود بالشكل التالي :

With ActiveCell
    .FormulaR1C1 = "=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")"
    .NumberFormat = "yyyy/mm/dd"
End With

[نايف - م]

شكرا لك أخي الكريم

 

YasserKhalil

 

غمرتني بلطفك الغير محدود

[ياسر خليل أبو البراء]

الكود للأخ الغالي والأستاذ المتمكن أبو تراب ..

أنا مجرد أضفت لمسة بسيطة .. الشكر كل الشكر للأخ أبو تراب على مشاركاته الفوق رائعة 

تقبلوا تحياتي

[ابو تراب]

 

الكود للأخ الغالي والأستاذ المتمكن أبو تراب ..

أنا مجرد أضفت لمسة بسيطة .. الشكر كل الشكر للأخ أبو تراب على مشاركاته الفوق رائعة 

تقبلوا تحياتي

 

 

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