توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : درج تاریخ شمسی درheader
سلام
چطور میشه تاریخ شمسی رو در header نمایش داد؟
در اکسل فقط تاریخ میلادی امکان پذیر هست
اگر امکانش هست راهنمایی بفرماید
با تشکر
مطمئنا براي اين موضوع بايد از كد تاريخ جلالي شمسي استفاده كرد و خروجي ان را در هدر قرار داد
مطمئنا براي اين موضوع بايد از كد تاريخ جلالي شمسي استفاده كرد و خروجي ان را در هد قرار داد
میشه بیشتر راهنمایی بفرمایید؟
یعنی =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
بدرود
ممنون میشم یک فایل نمونه قرار بدید
با تشکر
shamsololama
2010/07/12, 12:13
با درود فراوان
لینک دانلود فایل نمونه برای واردکردن تاریخ شمس در سرصفحه اکسل
توجه:
پسورد مورنیاز برای دانلود
exceliran
لینک :
Link: http://quickbigfile.com/file.php?file=6606head.rar
من فایل نمونه شما رو نتونستم دانلود کنم
ولی از دستوری که قرار داده بودید استفاده کردم و نهایت استفاده رو بردم.
بسیار سپاسگزارم
فقط یک سوال :
اگر بخوام به محض ورود به 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 قرار دهیم
بدرود
با درود فراوان
اگر بخواهیم با باز شدن فایل این عمل صورت بگیرد از کد زیر استفاده می کنیم
در این صورت در ابتدا که فایل باز میکنیم سرصفحه با تاریخ جدید تنظیم میشود
و اگر صفحه خاصی را مد نظر داریم بجای َ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
سلام دوستان چطور میتوان فرمول را در داخل یک سلول مخفی ( هاید ) کرد در صورتی که با کلیک کردن بروی آن سلول قابل رویت نباشد
بر روی سلول کلیک راست کرده و در قسمت format cell بر روی گزینه protection چکمارک hide را میزنیم سپس از منوی rview گزینه protectsheet را میزنیم .
runmohsen
2011/02/07, 12:50
ممنون
اما من فقط ميخواهم اون سلول يا محدوده اي سلكت كردم فرمولش هايد شود و امكان تغيير نداشته باشد وساير قسمتهاي شست ( ساير سلولها) قفل نشود وامكان تغيير داشته باشد
ممنون
اما من فقط ميخواهم اون سلول يا محدوده اي سلكت كردم فرمولش هايد شود و امكان تغيير نداشته باشد وساير قسمتهاي شست ( ساير سلولها) قفل نشود وامكان تغيير داشته باشد
سلام دوست عزیز همانطور که mrexcel عزیز فرمودند برای هر سلول که می خواهی قفل شود و هیدن شود چکمارک hide و LOCKED را میزنی. و هر سلولی که نمخوای قفل بشه این دوتا تیکو برمیداری.
با سلام وخسته نباشى
اگه بخوايم بجاي تاريخ متن يك سلول در سربرگ حك بشه چكار بكنيو
مرسي
shamsololama
2011/02/08, 17:36
با سلام وخسته نباشى
اگه بخوايم بجاي تاريخ متن يك سلول در سربرگ حك بشه چكار بكنيو
مرسي
با درود فراوان
برای این کار در کدهای بجای تاریخ شمسی آدرس سل مورد نظر را بنویس
runmohsen
2011/02/08, 18:05
با تشكر از شما لطفا مثال بزنيد
آيا اين درسته ؟
LeftHeader = a1
runmohsen
2011/02/08, 18:52
دوست من لطفا مثال بزنيد
چون تست كردم جواب نداد
ممنونم
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/
-
سلام من تمام کارهایی که گفتید رو انجام دادم ولی نشد،زیر روال شیت مورد نظر یعنی چی؟
فایل اکسل رو ضمیمه کردم
من میخوام هر دیتایی تو هر روز که تو شیت وارد میشه تاریخ سربرگ اون ،تاریخ همون روز باشه،و شمسی باشه
ممنون میشم کمک کنید
با سلام
وقت شما بخیر
یه سؤال؛ البته جواب های داده شده رو خوندم ولی چیزی متوجه نشدم
من یکسری برنامه برای تغییر تاریخ میلادی به شمسی از اینترنت گرفتم ولی این کافی نیست و فقط میشه برای تغییر تاریخ یک سلول ازشون استفاده کرد.
کدی که شما معرفی کردین رو دقیقاً باید کجا کپی کنم؟
قسمت شیت مورد نظر و عبارت view code و ایجاد یک ماژول و بقیه رو نمی دونم ؟؟؟؟
سؤال مهم دیگه من اینه که می خوام تاریخ در سربرگ نمایش داده بشه یعنی قسمت page layout بعد قسمت print titles بعد قسمت Header/Footer بعد قسمت custom header در اینجا می خوام تاریخ بصورت شمسی درج بشه
به جای عبارت &[Date] آیا باید چیزی بذارم؟
لطفاً و خواهشاً راهنمایی کنین. با تشکر
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.