صفحه 1 از 3 123 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 27

موضوع: درج تاریخ شمسی درheader

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2016/07/05
    تاریخ عضویت
    March 2010
    نوشته ها
    151
    امتیاز
    41
    سپاس
    9
    سپاس شده
    28 در 15 پست
    تعیین سطح نشده است

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

    سلام
    چطور میشه تاریخ شمسی رو در header نمایش داد؟
    در اکسل فقط تاریخ میلادی امکان پذیر هست
    اگر امکانش هست راهنمایی بفرماید
    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February 2010
    محل سکونت
    مشهد
    نوشته ها
    435
    امتیاز
    950
    سپاس
    294
    سپاس شده
    881 در 210 پست
    سطح اکسل
    81.00 %

    mrexcel به Yahoo ارسال پیام

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

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

  3. #3


    آخرین بازدید
    2016/07/05
    تاریخ عضویت
    March 2010
    نوشته ها
    151
    امتیاز
    41
    سپاس
    9
    سپاس شده
    28 در 15 پست
    تعیین سطح نشده است

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

    نقل قول نوشته اصلی توسط mrexcel
    مطمئنا براي اين موضوع بايد از كد تاريخ جلالي شمسي استفاده كرد و خروجي ان را در هد قرار داد
    میشه بیشتر راهنمایی بفرمایید؟
    یعنی =j-today() رو در هدر قرار بدم؟

  4. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    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

    بدرود

  5. سپاس ها (1)


  6. #5

    آخرین بازدید
    2016/12/19
    تاریخ عضویت
    October 2016
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  7. #6


    آخرین بازدید
    2016/07/05
    تاریخ عضویت
    March 2010
    نوشته ها
    151
    امتیاز
    41
    سپاس
    9
    سپاس شده
    28 در 15 پست
    تعیین سطح نشده است

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

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

  8. #7


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

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

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

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

    لینک :

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

  9. سپاس ها (1)


  10. #8


    آخرین بازدید
    2016/07/05
    تاریخ عضویت
    March 2010
    نوشته ها
    151
    امتیاز
    41
    سپاس
    9
    سپاس شده
    28 در 15 پست
    تعیین سطح نشده است

    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

  11. #9


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    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 قرار دهیم
    بدرود

  12. #10


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

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

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


صفحه 1 از 3 123 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. header &footer
    توسط jasmin در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 0
    آخرين نوشته: 2012/11/23, 16:41
  2. header در listbox
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/06/27, 12:19

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

گذاشتن تاریخ شمسی در اکسل

درج تاریخ شمسی در فوتر در اکسل

j-today در سر صفحه اکسل

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

کد تاریخ شمسی در vba در ورد

تقویم شمسی به روز در ورد

تاریخ شمسی گزاشتن در فوتر

دراکسل تاریخ خورشیدی در سربرگ

ثبت تاریخ شمسی درفاکتوراکسل

درج تاريخ شمسي در اكسل با صفحه كليد

شمسی exceliran.com

کلید میانبر j-today در اکسل

درج تاریخ شمسی در اکسل 2010

درج تاریخ شمسی در فوتر اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است