قرار دادن تاریخ روز در Page Header

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • 2011/02/06
    • 1805
    • 74.00

    قرار دادن تاریخ روز در Page Header

    با سلام چطور میشه که برای شیت کاری راهی پیدا بشه که تاریخ روز به صورت شمسی در پیج هدر قرار بگیره
    ممنون
    [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
    [/CENTER]
  • امين اسماعيلي
    مدير تالار ويژوال بيسيك

    • 2013/01/17
    • 1198
    • 84.00

    #2
    با درود
    راه ها متفاوت هست

    1- دستور زیر در ایونت workbook
    کد:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
       ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
    
    End Sub
    این دستور قبل از پرینت محتویات سل A1 رو توی footer میزاره سمت چپ بالا . حالا اگر مازول توابع شمسی رو هم به فایلتون اظافه کنین به جای آدرس سل از تابع فکر کنم J_today() به راحتی به نتیجه میرسین
    در پناه خداوندگار ایران زمین باشید و پیروز

    کامنت

    • Amin_D

      • 2010/12/22
      • 399

      #3
      با سلام
      راهکارهایی که در تاپیک دوستان راهنمایی کردند امتحان کردم ولی جواب نگرفتم (یعنی توی هدر محدوده سلکت شده برا پرینت چیزی نیومد)

      تاپیک های دیگه هم متاسفانه جواب نگرفتم ف هر چند مثال هایی که ضمیمه شده بود با تاپیک مرتبط نبود(فکر میکنم بخاط قدیمی بودن مطلب)
      از جمله:

      کد HTML:
      http://forum.exceliran.com/showthread.php/184-%D8%AF%D8%B1%D8%AC-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B4%D9%85%D8%B3%DB%8C-%D8%AF%D8%B1header
      با تشکر
      Last edited by Amin_D; 2015/05/05, 11:05. دلیل: اصلاح
      [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

      کامنت

      چند لحظه..