درج تاریخ شمسی درheader [بایگانی]

esyoo

2010/07/04, 23:03

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

mrexcel

2010/07/07, 17:54

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

esyoo

2010/07/07, 19:55

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

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

shamsololama

2010/07/08, 15:09

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

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

این کد هم بصور ماکرو می توانید استفاده کنید و هم این که در زیر روال شیت مورد نظر قرار دهید تا هنگام ورود به آن شیت تاریخ سرصفحه به روز شود که در این مثال این کد را در زیر روال 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

2010/07/12, 10:59

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

shamsololama

2010/07/12, 12:13

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

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

لینک :

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

esyoo

2010/08/05, 17:33

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

فقط یک سوال :
اگر بخوام به محض ورود به 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

2010/08/07, 09:30

با درود فراوان
اگر بخواهیم با باز شدن فایل این عمل صورت بگیرد از کد زیر استفاده می کنیم
در این صورت در ابتدا که فایل باز میکنیم سرصفحه با تاریخ جدید تنظیم میشود
و اگر صفحه خاصی را مد نظر داریم بجای َ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

2011/01/11, 23:02

با درود فراوان
اگر بخواهیم با باز شدن فایل این عمل صورت بگیرد از کد زیر استفاده می کنیم
در این صورت در ابتدا که فایل باز میکنیم سرصفحه با تاریخ جدید تنظیم میشود
و اگر صفحه خاصی را مد نظر داریم بجای َ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

2011/01/12, 07:18

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

runmohsen

2011/01/12, 10:54

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

shamsololama

2011/01/12, 11:43

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

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

فایل نمونه:

[attachment=158]

runmohsen

2011/01/23, 10:26

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

mrexcel

2011/01/23, 10:37

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

runmohsen

2011/02/07, 12:50

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

MEYTI

2011/02/08, 13:30

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

سلام دوست عزیز همانطور که mrexcel عزیز فرمودند برای هر سلول که می خواهی قفل شود و هیدن شود چکمارک hide و LOCKED را میزنی. و هر سلولی که نمخوای قفل بشه این دوتا تیکو برمیداری.

razeghi

2011/02/08, 15:57

با سلام وخسته نباشى
اگه بخوايم بجاي تاريخ متن يك سلول در سربرگ حك بشه چكار بكنيو
مرسي

shamsololama

2011/02/08, 17:36

با سلام وخسته نباشى
اگه بخوايم بجاي تاريخ متن يك سلول در سربرگ حك بشه چكار بكنيو
مرسي

با درود فراوان
برای این کار در کدهای بجای تاریخ شمسی آدرس سل مورد نظر را بنویس

runmohsen

2011/02/08, 18:05

با تشكر از شما لطفا مثال بزنيد
آيا اين درسته ؟
LeftHeader = a1

khakzad

2011/02/08, 18:39

(leftheader=range("a1"

runmohsen

2011/02/08, 18:52

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

khakzad

2011/02/08, 19:07

مثال

runmohsen

2011/02/08, 19:14

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

shamsololama

2011/02/09, 07:42

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

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

farshid_mi

2012/01/26, 12:38

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

-

abrobad

2016/10/19, 09:26

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

farasou

2017/05/16, 20:21

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