تعديل صيغة التاريخ في الـ Footer

[Reda Mohammad]

السلام عليكم

حياكم الله

هل يمكن تعديل صيغة التاريخ في ال footer او ال header

 

[lionheart]

Sub Test()
    With ActiveSheet
        .PageSetup.CenterFooter = Format(Date, "dd-mm-yyyy")
        .PrintPreview
    End With
End Sub

 

[د.كاف يار]

تفضل هذه الطريقة

 

[Reda Mohammad]

جزاك الله خيرا

لكن السؤال عن تعديل الصيغة وليس اضافة التاريخ

Thank you

 But Can i make it without vba?

[د.كاف يار]

استخدم الكود التالي

 

ActiveSheet.PageSetup.CenterHeader = Format(Date, "yyyy-mm-dd")
ActiveSheet.PrintPreview

 

[lionheart]

No way without using VBA

[Reda Mohammad]

Okay, Thanks