پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

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

  1. #1


    آخرین بازدید
    10 _ 04 _ 2017
    تاریخ عضویت
    November_2010
    نوشته ها
    16
    امتیاز
    5
    سپاس
    9
    سپاس شده
    4 در 3 پست

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

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

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

  2.  

  3. #2


    آخرین بازدید
    25 _ 08 _ 2012
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    3
    سپاس
    0
    سپاس شده
    1 در 1 پست

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

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

  4. #3


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    November_2010
    نوشته ها
    24
    امتیاز
    3
    سپاس
    1
    سپاس شده
    2 در 1 پست

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

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

  5. #4


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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 کیلو بایت, 229 نمایش)

  6. #5


    آخرین بازدید
    10 _ 04 _ 2017
    تاریخ عضویت
    November_2010
    نوشته ها
    16
    امتیاز
    5
    سپاس
    9
    سپاس شده
    4 در 3 پست

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

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

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




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

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

  7. #6


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    April_2012
    نوشته ها
    83
    امتیاز
    10
    سپاس
    79
    سپاس شده
    18 در 13 پست

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

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

  8. #7


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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 کیلو بایت, 109 نمایش)

  9. #8


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    April_2012
    نوشته ها
    83
    امتیاز
    10
    سپاس
    79
    سپاس شده
    18 در 13 پست

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

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

  10. #9


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

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

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

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

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

  11. #10


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    کاشان
    نوشته ها
    97
    امتیاز
    376
    سپاس
    5
    سپاس شده
    176 در 50 پست

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

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

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

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

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

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

جمع هر

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

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

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

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

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

جمع صقحه اکسل

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

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

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

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

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

بستن صفحه اکسل با ماکرو

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

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

طيقه تغيير يك عدد درهرستون در اكسل

اکسس جمع پایانی

چگونه از یک ستون در صفحه گزارش اکسس جمع

چمع هر سطر در excel 2010

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

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

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

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