صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 13

موضوع: درج حاصل جمع هر ستون در پایین هر صفحه

  1. #1


    آخرین بازدید
    2021/07/11
    تاریخ عضویت
    November 2010
    نوشته ها
    16
    امتیاز
    6
    سپاس
    9
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

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

    فرض کنید در در 3 ستون اکسل مجموعه‌ای عدد داریم مثلا در هر ستون 200 سطر عدد داریم حالا می‌خوایم از کل این اعداد پرینت بگیریم. آیا تابعی یا توابعی در اکسل هست که به تنهایی و یا با ترکیب با توابع دیگه، بتونه در موقع چاپ در پایین هر صفحه‌ای که چاپ می‌کنه، حاصل جمع هر ستون رو بنویسه؟

    مرسی - رامین
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2012/08/25
    تاریخ عضویت
    September 2010
    نوشته ها
    35
    امتیاز
    5
    سپاس
    0
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    با سلام
    برای انجام این کار بهترین راه اینه که مقادیر حاصل رو در قسمت footer براتون درج کنه.
    که البته برای انجام این کار بایستی یک ماکرو بنویسید که حاصل اعداد موجود در ستون در یک صفحه رو محاسبه نموده و سپس اون مقدار رو بهمراه یک متن (دلخواه. مثلا عبارت "حاصل جمع") در قسمت Footer بنویسید.

  4. #3


    آخرین بازدید
    2020/08/07
    تاریخ عضویت
    November 2010
    نوشته ها
    24
    امتیاز
    3
    سپاس
    1
    سپاس شده
    2 در 1 پست
    سطح اکسل
    58.00 %

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    نقل قول نوشته اصلی توسط ariyo
    با سلام
    برای انجام این کار بهترین راه اینه که مقادیر حاصل رو در قسمت footer براتون درج کنه.
    که البته برای انجام این کار بایستی یک ماکرو بنویسید که حاصل اعداد موجود در ستون در یک صفحه رو محاسبه نموده و سپس اون مقدار رو بهمراه یک متن (دلخواه. مثلا عبارت "حاصل جمع") در قسمت Footer بنویسید.
    اگه میشه لطف کنید و یک مثال بزنید.
    خیلی ممنون

  5. #4


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

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

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

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


    با این ماکرو آخر هر صفحه را پیدا کرده و جمع آن را می نویسید
    در این ماکرو اعدادی که قرار است برای ما جمع بشود ستون B است و یک ستون کمکی نیز داریم که آن را ستون A قرار داد ه ایم




    Sub Sumofpage()
    Dim c
    Dim n
    For Each c In Range("A3:A1000")
    If c = "Total Page" Then
    n = c.Row
    Rows(n).Select
    Selection.Delete Shift:=xlUp
    End If
    Next



    Dim ws As Worksheet
    Dim rng As Range
    Dim pb As Variant
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Set ws = ThisWorkbook.Worksheets("Sheet2")
    ws.Activate
    ActiveWindow.View = xlPageBreakPreview
    For Each pb In ws.HPageBreaks
    Set rng = ws.Range("b" & pb.Location.Row)

    rng.Offset(-1, 0).EntireRow.Insert

    With rng.Offset(-2, 0).Interior
    .ColorIndex = 36
    .Pattern = xlSolid
    End With

    rng.Offset(-2, -1) = "Total Page"

    Next pb

    Dim c1
    Dim m As Integer
    For Each c1 In Range("A3:A1000")

    If c1 <> "Total Page" Then
    m = m + c1.Offset(0, 1)
    Else
    c1.Offset(0, 1) = m
    m = 0
    End If
    Next
    ActiveWindow.View = xlNormalView

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    End Sub



    فایل نمونه:

    [attachment=109]


    اگر برای اجرای آن مشکلی بود در خدمتم
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book2.xls اطلاعات (28.5 کیلو بایت, 402 نمایش)

  6. #5


    آخرین بازدید
    2021/07/11
    تاریخ عضویت
    November 2010
    نوشته ها
    16
    امتیاز
    6
    سپاس
    9
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    نقل قول نوشته اصلی توسط shamsololama
    با درود فراوان

    با این ماکرو آخر هر صفحه را پیدا کرده و جمع آن را می نویسید
    در این ماکرو اعدادی که قرار است برای ما جمع بشود ستون B است و یک ستون کمکی نیز داریم که آن را ستون A قرار داد ه ایم




    اگر برای اجرای آن مشکلی بود در خدمتم

    مرسی، دستت درد نکنه، اینکاره!!! :D

  7. #6


    آخرین بازدید
    22 ساعت پیش
    تاریخ عضویت
    April 2012
    نوشته ها
    86
    امتیاز
    12
    سپاس
    78
    سپاس شده
    20 در 14 پست
    تعیین سطح نشده است

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    باسلام ؛ استاد اگه تعداد ستونهایی که بایستن جمعشان در پائین هرصفحه جمع بسته بشند 4 یا 5 تا بود هم راهنمائی بفرمائید.برای نمونه در فایل پیوستی بایستی جمع 4 ستون در پائین هرصفحه و همچنین در آخرین صفحه بیاید.
    http://s4.picofile.com/file/7810596020/karkard.xls.html

  8. #7


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

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

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    نقل قول نوشته اصلی توسط sakka
    باسلام ؛ استاد اگه تعداد ستونهایی که بایستن جمعشان در پائین هرصفحه جمع بسته بشند 4 یا 5 تا بود هم راهنمائی بفرمائید.برای نمونه در فایل پیوستی بایستی جمع 4 ستون در پائین هرصفحه و همچنین در آخرین صفحه بیاید.
    http://s4.picofile.com/file/7810596020/karkard.xls.html
    با درود فراوان

    برای این کار کافیه در این کد تغییرات رو انجام بدین

    If c1 <> "Total Page" Then
    m = m + c1.Offset(0, 1)
    n1 = n1 + c1.Offset(0, 2)
    n2 = n2 + c1.Offset(0, 3)
    n3 = n3 + c1.Offset(0, 4)
    n4 = n4 + c1.Offset(0, 5)
    n5 = n5 + c1.Offset(0, 6)


    Else
    c1.Offset(0, 1) = m
    c1.Offset(0, 2) = n1
    c1.Offset(0, 3) = n2
    c1.Offset(0, 4) = n3
    c1.Offset(0, 5) = n4
    c1.Offset(0, 6) = n5


    m = 0
    n1 = 0
    n2 = 0
    n3 = 0
    n4 = 0
    n5 = 0
    End If
    Next


    نمونه فایل:
    [attachment=1252]
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book2.xls اطلاعات (28.5 کیلو بایت, 190 نمایش)

  9. #8


    آخرین بازدید
    22 ساعت پیش
    تاریخ عضویت
    April 2012
    نوشته ها
    86
    امتیاز
    12
    سپاس
    78
    سپاس شده
    20 در 14 پست
    تعیین سطح نشده است

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    باسلام و تقدیر و تشکر از استاد گرامی ، درصورت امکان درفایل ارسالی بنده این عملیات را انجام بفرمائید یکدنیاممنون میشوم عصبانی نشید ازناشی گری و مبتدی بودن حقیر است ولی اگه عمرباشد انشاءا... سعی می کنیم ازمحضردوستان استفاده بهینه نموده ویاد بگیریم.

  10. #9


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

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

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    نقل قول نوشته اصلی توسط sakka
    باسلام و تقدیر و تشکر از استاد گرامی ، درصورت امکان درفایل ارسالی بنده این عملیات را انجام بفرمائید یکدنیاممنون میشوم عصبانی نشید ازناشی گری و مبتدی بودن حقیر است ولی اگه عمرباشد انشاءا... سعی می کنیم ازمحضردوستان استفاده بهینه نموده ویاد بگیریم.

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

    [attachment=1253]
    فايل هاي پيوست شده فايل هاي پيوست شده

  11. #10


    آخرین بازدید
    2024/02/06
    تاریخ عضویت
    January 2012
    محل سکونت
    کاشان
    نوشته ها
    170
    امتیاز
    602
    سپاس
    7
    سپاس شده
    372 در 125 پست
    تعیین سطح نشده است

    smartman به  ICQ ارسال پیام smartman به MSN ارسال پیام smartman به Yahoo ارسال پیام

    RE: درج حاصل جمع هر ستون در پایین هر صفحه

    Add or Remove Subtotal 4Each Pages

    با ماکروی AddSubtotal صفحه بندی خود را سفارشی و جایگزین صفحه بندی موجود کنید.(Ctrl+M)
    و با ماکروی RemoveSubtotal صفحه بندی موجود را حذف کنید. (Ctrl+R)

    شماره ستونهایی را که میخواهید حاصل جمعشان محاسبه شود، در قطعه کد زیر تغییر دهید.
    کد:
        Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(36, 37, 38 _
            , 39), Replace:=True, pagebreaks:=True, SummaryBelowData:=True


صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

  1. عدم همخواني اندازه ستونها با يك ستون
    توسط hamidreza313 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/03/02, 21:30
  2. کپی خانه‌های انتخابی از ستونی به ستون دیگر
    توسط eppagh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2012/07/04, 14:31
  3. تعداد در يك ستون به شرط ستون ديگر
    توسط karbar در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 2012/05/24, 22:56
  4. پاسخ ها: 0
    آخرين نوشته: 2011/03/18, 09:53
  5. پاسخ ها: 1
    آخرين نوشته: 2010/12/30, 08:29

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

جمع هر صفحه در اکسل

محاسبه مجموع اعداد در هر صفحه در اکس

جمع هر صفحه دراکسل

اوردن حاص جمع ستون در تمام صفحات اکسل

جمع هر

حاصل جمع یک ستون در اکسل

جمع در پايان هر صفحه اكسل

جمع صفحه در اکسل

نمایش حاصل جمع در اکسل

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

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

جمع یک ستون در پایین آن ستون

حاصل جمع در اکسل

نمایش حاصل جمع در textbox اکسل

جمع ستون هنگام پرینت اكسل

روش جمع زدن هر صفحه در اکسل

مجموع ستون در اکسل

جمع صقحه اکسل

محاسبه جمع ستون vb

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

جمع سطر و ستون با توتال در اکسلجمع کردن هر صفحه در اکسلنحوه جمع زدن ستون های اکسل در هر صفحهجمع کل و جمع صفحه در اکسل 2010جمع زدن در پایین هر صفحه در اکسل

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

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

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