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

Reda Mohammad · أغسطس 31, 2021

السلام عليكم

حياكم الله

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

image.png.f634f1e350d8d2172372cba5aeacfeb5.png

**lionheart** · أغسطس 31, 2021

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

**د.كاف يار** · أغسطس 31, 2021

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

image.png.2d44ed5321470ec0544ac9a0481e10da.png

image.png.aa504de4cda1cf98817d07a03b1d4207.png

Reda Mohammad · أغسطس 31, 2021

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

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

Thank you

But Can i make it without vba?

**د.كاف يار** · أغسطس 31, 2021

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

image.png.c91ef2bbb980ab86e01a523cd45baf8b.png

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

**lionheart** · أغسطس 31, 2021

No way without using VBA

Reda Mohammad · أغسطس 31, 2021

Okay, Thanks

الردود الموصى بها