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

[esyoo]

سلام
چطور میشه تاریخ شمسی رو در header نمایش داد؟
در اکسل فقط تاریخ میلادی امکان پذیر هست
اگر امکانش هست راهنمایی بفرماید
با تشکر

[mrexcel]

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

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

[esyoo]

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

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

میشه بیشتر راهنمایی بفرمایید؟
یعنی =j-today() رو در هدر قرار بدم؟:huh:

[shamsololama]

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

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

برای گذاشتن تاریخ هجری شمسی در سر صفحه یا پا صفحه می توانید از کد زیر استفاده کنید

این کد هم بصور ماکرو می توانید استفاده کنید و هم این که در زیر روال شیت مورد نظر قرار دهید تا هنگام ورود به آن شیت تاریخ سرصفحه به روز شود که در این مثال این کد را در زیر روال Worksheet_Activate قرار داده ایم که هنگام ورود به صفحه به روز شود

اگر نیازی به فایل ل نمونه بود برایتان میل میکنم


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

End Sub

بدرود

[esyoo]

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

ممنون میشم یک فایل نمونه قرار بدید
با تشکر

[shamsololama]

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

با درود فراوان
لینک دانلود فایل نمونه برای واردکردن تاریخ شمس در سرصفحه اکسل

توجه:
پسورد مورنیاز برای دانلود
exceliran

لینک :

Link: http://quickbigfile.com/file.php?file=6606head.rar

[esyoo]

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

من فایل نمونه شما رو نتونستم دانلود کنم
ولی از دستوری که قرار داده بودید استفاده کردم و نهایت استفاده رو بردم.
بسیار سپاسگزارم

فقط یک سوال :
اگر بخوام به محض ورود به workbook تاریخ درج بشه باید چکار کنم؟
Private Sub Workbook_Activate()
With ActiveWorkbook.PageSetup
.LeftHeader = J_TODAY()
.CenterHeader = TbH(J_TODAY())
.RightHeader = TbH(J_TODAY(), 2)
End With
End Sub

[shamsololama]

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

با درود فراوان
اگر بخواهیم با باز شدن فایل این عمل صورت بگیرد از کد زیر استفاده می کنیم
در این صورت در ابتدا که فایل باز میکنیم سرصفحه با تاریخ جدید تنظیم میشود
و اگر صفحه خاصی را مد نظر داریم بجای َactivesheet نام شیت را می نویسیم مثل
Sheet.1.Pagsetup در غیر اینصورت همیشه شیت که فعال است تنظیم میشود

Private Sub Workbook_Open()
With ActiveSheet.PageSetup
.LeftHeader = J_TODAY()
.CenterHeader = TbH(J_TODAY())
.RightHeader = TbH(J_TODAY(), 2)
End With
End Sub

این کد در زیر روال Activesheet هم میتوان قرار داد ولی برای هر بار وارد شدن به شیت این
کد اجرا می شود که می توان زمانبر باشد چرا که نیازی به این کار نداریم و در این کد فقط تاریخ
قرار داده ایم که در ابتدای روز که فایل رو باز میکنیم تاریخ تنظیم می شود و اگر در سرصفحه ساعت و یا ثانیه قرار داده بودیم نیاز بود در زیر روال Worksheet_Change قرار دهیم
بدرود

[4017]

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

با درود فراوان
اگر بخواهیم با باز شدن فایل این عمل صورت بگیرد از کد زیر استفاده می کنیم
در این صورت در ابتدا که فایل باز میکنیم سرصفحه با تاریخ جدید تنظیم میشود
و اگر صفحه خاصی را مد نظر داریم بجای َactivesheet نام شیت را می نویسیم مثل
Sheet.1.Pagsetup در غیر اینصورت همیشه شیت که فعال است تنظیم میشود

Private Sub Workbook_Open()
With ActiveSheet.PageSetup
.LeftHeader = J_TODAY()
.CenterHeader = TbH(J_TODAY())
.RightHeader = TbH(J_TODAY(), 2)
End With
End Sub

این کد در زیر روال Activesheet هم میتوان قرار داد ولی برای هر بار وارد شدن به شیت این
کد اجرا می شود که می توان زمانبر باشد چرا که نیازی به این کار نداریم و در این کد فقط تاریخ
قرار داده ایم که در ابتدای روز که فایل رو باز میکنیم تاریخ تنظیم می شود و اگر در سرصفحه ساعت و یا ثانیه قرار داده بودیم نیاز بود در زیر روال Worksheet_Change قرار دهیم
بدرود

با سلام

من اين كد بالا رو عينا انجام دادم
با اينكه ماژول تاريخ شمسي رو هم دارم باز ارور ميده
انگار با J_TODAY() مشكل داره
اشكال كارم كجاست؟

[shamsololama]

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

با درود فراوان
برای اطمینان از اینکه تابع شمی در دست رس این تابع قرار می گیرد تابع شمسی را به همین فایل انتقال بده تا بشه جزء همین فایل اکسل

[runmohsen]

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

جواب نداد تابع فارسی رو هم مجدد add کردم

[shamsololama]

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

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

درج تاریخ به سر صفحه با کد نویسی


فایل نمونه:

[attachment=158]

[runmohsen]

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

سلام دوستان چطور میتوان فرمول را در داخل یک سلول مخفی ( هاید ) کرد در صورتی که با کلیک کردن بروی آن سلول قابل رویت نباشد

[mrexcel]

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

بر روی سلول کلیک راست کرده و در قسمت format cell بر روی گزینه protection چکمارک hide را میزنیم سپس از منوی rview گزینه protectsheet را میزنیم .

[runmohsen]

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

ممنون
اما من فقط ميخواهم اون سلول يا محدوده اي سلكت كردم فرمولش هايد شود و امكان تغيير نداشته باشد وساير قسمتهاي شست ( ساير سلولها) قفل نشود وامكان تغيير داشته باشد