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

[rahnemoun]

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

مرسی - رامین

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

[ariyo]

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

[Javad-2010]

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

اگه میشه لطف کنید و یک مثال بزنید.
خیلی ممنون

[shamsololama]

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


با این ماکرو آخر هر صفحه را پیدا کرده و جمع آن را می نویسید
در این ماکرو اعدادی که قرار است برای ما جمع بشود ستون 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]


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

[rahnemoun]

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

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




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

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

[sakka]

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

[shamsololama]

باسلام ؛ استاد اگه تعداد ستونهایی که بایستن جمعشان در پائین هرصفحه جمع بسته بشند 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]

[sakka]

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

[shamsololama]

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

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

[attachment=1253]

[smartman]

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