صفحه بندی در اکسل و بررسی چاپ جمع یک تعداد رکورد های ستون مورد نظر در پایین و بالای صفحه

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • jefmas

    • 2014/10/31
    • 7

    پرسش صفحه بندی در اکسل و بررسی چاپ جمع یک تعداد رکورد های ستون مورد نظر در پایین و بالای صفحه

    با سلام خدمت شما سروران عزیز
    برای محاسبه اضافه کاری پرسنل سندی رو اماده کردم که می بایست به هنگام چاپ جمع ستون مبلغ اضافه کاری در انتهای هر صفحه و ابتدای صفحه بعد چاپ شود
    این کار را با قرار دادن جمع در جلوی رکورد انتهای / ابتدای صفحه می توان انجام داد ولی می خوام بدونم میشه بطور اتوماتیک و با نوشتن کد یا دستوری در پرینت انجام شود؟
    منظورم اینه که وقتی فونت/سایز فونت تغییر می کنه نمیشه تکیه کرد بر اون چیزی که گفتم میخوام طوری باشه همیشه و باهرنوع فونت و سایزی اینکار انجام بشه

    ممنون از شما
    Last edited by jefmas; 2016/11/04, 21:08.
  • jefmas

    • 2014/10/31
    • 7

    #2
    نوشته اصلی توسط jefmas
    با سلام خدمت شما سروران عزیز
    برای محاسبه اضافه کاری پرسنل سندی رو اماده کردم که می بایست به هنگام چاپ جمع ستون مبلغ اضافه کاری در انتهای هر صفحه و ابتدای صفحه بعد چاپ شود
    این کار را با قرار دادن جمع در جلوی رکورد انتهای / ابتدای صفحه می توان انجام داد ولی می خوام بدونم میشه بطور اتوماتیک و با نوشتن کد یا دستوری در پرینت انجام شود؟
    منظورم اینه که وقتی فونت/سایز فونت تغییر می کنه نمیشه تکیه کرد بر اون چیزی که گفتم میخوام طوری باشه همیشه و باهرنوع فونت و سایزی اینکار انجام بشه

    ممنون از شما


    چرا کسی جواب سوال منو نمیده؟؟؟؟؟؟؟؟؟؟؟

    کامنت

    • iranweld

      • 2015/03/29
      • 3341

      #3
      با سلام

      در فایل پیوست با استفاده از insert break page و با مشخص کردن تعداد سطر در ماکرو صفحات در پرینت تقسیم بندی میگردد و جمع ستون A هر صفحه در گوشه سمت چپ درج میگردد

      برای مشخص کردن تعداد سطر در یک صفحه مقدار X را در ماکرو تغییر دهید

      کد PHP:
      Private Sub CommandButton1_Click()

      ActiveSheet.ResetAllPageBreaks
          
          Columns
      ("M:M").ClearContents
          
          z1 
      Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row
          
          x 
      27
          
          
      For x To z1 Step x
          
          Range
      ("n" i).Select
          
          ActiveWindow
      .SelectedSheets.HPageBreaks.Add Before:=ActiveCell
          
          ActiveWindow
      .SelectedSheets.VPageBreaks.Add Before:=ActiveCell
        
        
        
      If x Then
        
       Range
      ("m" 1) = "=sum(a" - (1) & ":a" ")"
       
        
      Else
        
        
      Range("m" 1) = "=sum(a" ":a" ")"
        
        
      End If
        
         
      Next
          
      End Sub 
      فایل های پیوست شده

      کامنت

      • rjfri

        • 2016/08/16
        • 236
        • 44.00

        #4
        با درود
        و با کسب اجازه از استاد عزیز iranweld
        فایل پیوست را ملاحظه کنید. در ستون h کلیدی قرار داده شده تا تعداد ردیف هر صفحه مشخص گردد. در b1 شما تعداد ردیفی را که میخواهید در هر صفحه تکرار شود را مشخص نمایید
        فایل های پیوست شده

        کامنت

        • rjfri

          • 2016/08/16
          • 236
          • 44.00

          #5
          چنانچه انباشته صفحات مد نظر شماست فایل پیوست را ملاحظه کنید
          فایل های پیوست شده

          کامنت

          چند لحظه..