درج تاریخ شمسی درheader

[runmohsen]

دوست من لطفا مثال بزنيد
چون تست كردم جواب نداد
ممنونم

[khakzad]

مثال

[runmohsen]

خيلي خوب بودممنون
تشكر از وقتي كه گذاشتين

[shamsololama]

با درودفراوان

Private Sub Worksheet_Activate()
With ActiveSheet.PageSetup
.LeftHeader = Range("A1")
.CenterHeader = TbH(J_TODAY())
.RightHeader = TbH(J_TODAY(), 2)
End With

[farshid_mi]

لینک توابع زبان فارسی در اکسل که به روز شده اند : نسخه 3 - بهمن 1390
http://www.farsaran.ir/node/10/

-

[abrobad]

سلام من تمام کارهایی که گفتید رو انجام دادم ولی نشد،زیر روال شیت مورد نظر یعنی چی؟
فایل اکسل رو ضمیمه کردم
من میخوام هر دیتایی تو هر روز که تو شیت وارد میشه تاریخ سربرگ اون ،تاریخ همون روز باشه،و شمسی باشه
ممنون میشم کمک کنید

[farasou]

با سلام
وقت شما بخیر
یه سؤال؛ البته جواب های داده شده رو خوندم ولی چیزی متوجه نشدم
من یکسری برنامه برای تغییر تاریخ میلادی به شمسی از اینترنت گرفتم ولی این کافی نیست و فقط میشه برای تغییر تاریخ یک سلول ازشون استفاده کرد.
کدی که شما معرفی کردین رو دقیقاً باید کجا کپی کنم؟
قسمت شیت مورد نظر و عبارت view code و ایجاد یک ماژول و بقیه رو نمی دونم ؟؟؟؟
سؤال مهم دیگه من اینه که می خوام تاریخ در سربرگ نمایش داده بشه یعنی قسمت page layout بعد قسمت print titles بعد قسمت Header/Footer بعد قسمت custom header در اینجا می خوام تاریخ بصورت شمسی درج بشه
به جای عبارت &[Date] آیا باید چیزی بذارم؟
لطفاً و خواهشاً راهنمایی کنین. با تشکر