توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : درج حاصل جمع هر ستون در پایین هر صفحه
rahnemoun
2010/11/18, 20:49
فرض کنید در در 3 ستون اکسل مجموعهای عدد داریم مثلا در هر ستون 200 سطر عدد داریم حالا میخوایم از کل این اعداد پرینت بگیریم. آیا تابعی یا توابعی در اکسل هست که به تنهایی و یا با ترکیب با توابع دیگه، بتونه در موقع چاپ در پایین هر صفحهای که چاپ میکنه، حاصل جمع هر ستون رو بنویسه؟
مرسی - رامین
با سلام
برای انجام این کار بهترین راه اینه که مقادیر حاصل رو در قسمت footer براتون درج کنه.
که البته برای انجام این کار بایستی یک ماکرو بنویسید که حاصل اعداد موجود در ستون در یک صفحه رو محاسبه نموده و سپس اون مقدار رو بهمراه یک متن (دلخواه. مثلا عبارت "حاصل جمع") در قسمت Footer بنویسید.
Javad-2010
2010/11/24, 09:54
با سلام
برای انجام این کار بهترین راه اینه که مقادیر حاصل رو در قسمت footer براتون درج کنه.
که البته برای انجام این کار بایستی یک ماکرو بنویسید که حاصل اعداد موجود در ستون در یک صفحه رو محاسبه نموده و سپس اون مقدار رو بهمراه یک متن (دلخواه. مثلا عبارت "حاصل جمع") در قسمت Footer بنویسید.
اگه میشه لطف کنید و یک مثال بزنید.
خیلی ممنون
shamsololama
2010/11/24, 15:02
با درود فراوان
با این ماکرو آخر هر صفحه را پیدا کرده و جمع آن را می نویسید
در این ماکرو اعدادی که قرار است برای ما جمع بشود ستون 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
2010/11/25, 10:52
با درود فراوان
با این ماکرو آخر هر صفحه را پیدا کرده و جمع آن را می نویسید
در این ماکرو اعدادی که قرار است برای ما جمع بشود ستون B است و یک ستون کمکی نیز داریم که آن را ستون A قرار داد ه ایم
اگر برای اجرای آن مشکلی بود در خدمتم
مرسی، دستت درد نکنه، اینکاره!!! :D
باسلام ؛ استاد اگه تعداد ستونهایی که بایستن جمعشان در پائین هرصفحه جمع بسته بشند 4 یا 5 تا بود هم راهنمائی بفرمائید.برای نمونه در فایل پیوستی بایستی جمع 4 ستون در پائین هرصفحه و همچنین در آخرین صفحه بیاید.
http://s4.picofile.com/file/7810596020/karkard.xls.html
shamsololama
2013/06/20, 07:13
باسلام ؛ استاد اگه تعداد ستونهایی که بایستن جمعشان در پائین هرصفحه جمع بسته بشند 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]
باسلام و تقدیر و تشکر از استاد گرامی ، درصورت امکان درفایل ارسالی بنده این عملیات را انجام بفرمائید یکدنیاممنون میشوم عصبانی نشید ازناشی گری و مبتدی بودن حقیر است ولی اگه عمرباشد انشاءا... سعی می کنیم ازمحضردوستان استفاده بهینه نموده ویاد بگیریم.
shamsololama
2013/06/21, 07:35
باسلام و تقدیر و تشکر از استاد گرامی ، درصورت امکان درفایل ارسالی بنده این عملیات را انجام بفرمائید یکدنیاممنون میشوم عصبانی نشید ازناشی گری و مبتدی بودن حقیر است ولی اگه عمرباشد انشاءا... سعی می کنیم ازمحضردوستان استفاده بهینه نموده ویاد بگیریم.
با درود فراوان
[attachment=1253]
smartman
2013/06/21, 12:38
Add or Remove Subtotal 4Each Pages (http://bit.ly/12fbdtK)
با ماکروی AddSubtotal صفحه بندی خود را سفارشی و جایگزین صفحه بندی موجود کنید.(Ctrl+M)
و با ماکروی RemoveSubtotal صفحه بندی موجود را حذف کنید. (Ctrl+R)
شماره ستونهایی را که میخواهید حاصل جمعشان محاسبه شود، در قطعه کد زیر تغییر دهید.
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(36, 37, 38 _
, 39), Replace:=True, pagebreaks:=True, SummaryBelowData:=True
باسلام؛ شرمنده محبت اساتید و دوستانی که راهنمائی می کنندهستم یه راهنمائی دیگه اینکه پس ازجمع هرصفحه اگه بخوام یک فودرداشته باشم به فرض پائین هرصفحه پس ازجمع بسته شدن ستونها بنویسم مدیرمنطقه تا پائین هرصفحه را امضاء کنند چکارباید بکنم؟ درضمن تمامی صفحات ما بایستی بصورت Landscape باشد.بی نهایت ازدوستان ممنونم.
M@hmoodi
2017/12/12, 10:43
سلام من فایلی دارم که میخواهم حاصل جمع دو ستون بدهکار و بستانکار را تو پرینت پایین صفحه بهم بده و به صورت صفحه به صفحه باشه
misammisam
2017/12/12, 18:32
سلام من فایلی دارم که میخواهم حاصل جمع دو ستون بدهکار و بستانکار را تو پرینت پایین صفحه بهم بده و به صورت صفحه به صفحه باشه
یعنی فقط تو پرینت نشونتون بده و تو خود اکسل نشون نده !؟
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.