[حل شده] تاریخ شمسی در هدر

[bahman_220]

سروران گرامی سلام روز خوش
چطور میتوان تاریخ شمسی رو در هدر اضافه کرد ؟
با تشکر
نصیری

[iranweld]

با یک ماکرو ساده تاریخ شمسی را به هدر انتقال بدید.

Sub Macro1()

    ActiveWindow.View = xlPageLayoutView
    
    With ActiveSheet.PageSetup
        
        .CenterHeader = J_TODAY(1) & " " & J_WEEKDAY(J_TODAY(1), 1)
        
    End With
   
End Sub 

[bahman_220]

با تشکر فراوان