كيف يمكن حساب مجموع عمود في كل شيت مرة واحدة

[أبو العقاب]

أخواني الكرام

هذا موضوع شبيه في موضوع سابق كتبته ولكن...

لو كان لديك صفحات كثيرة(شيتات) والعمود b من كل صفحة فيه بيانات وأردت حساب مجموع كل عمود في كل شيت بكبسة واحدة هل يمكن ذلك

وأرفق لكم مثال

يرحمكم الله

Book1.rar

[أبو حنــــين]

جرب أخي المرفق

Book1.rar

[أبو العقاب]

بارك الله بك أبا حنين

ولكن ما أريده هو أن يأتي المجموع أسفل كل عمود لو تكرمت

[الـعيدروس]

السلام عليكم

بعد اذن الاخ الحبيب أبو حنين

تفضل

Private Sub CommandButton1_Click()

With ورقة5

.UsedRange = ""

For R = 1 To Sheets.Count

LR = Sheets(R).Cells(Rows.Count, "B").End(xlUp).Row

With .Cells(Rows.Count, "B").End(xlUp)

E = .Row

.Offset(1, 0) = Sheets(R).Name

.Offset(1, 1) = Sheets(R).Range("B" & LR)

End With

Next

.Cells(E + 1, 3) = WorksheetFunction.Sum(Range("C1:C" & E))

End With

End Sub

[أبو العقاب]

بارك الله بك أخ عباد وحياك الله

لكن ما تفضلت به هو عينه ما تفضل به الأخ أبو حنين

ما أريده هو أن يأتي أسفل البيانات في ورقة واحد المجموع

وأسفل البيانات في ورقة 2 المجموع وهكذا

لأنه تخيّل لو أنه لديك 100 ورقة وأردت حساب المجموع لكل ورقة فهذه العملية تكون طويلة

فلا بد من طريقة لحساب المجموع لكل ورقة في ورقتها بكبسة واحدة .

[الـعيدروس]

السلام عليكم

طيب هكذا

Private Sub CommandButton1_Click()

With ورقة5

.UsedRange = ""

For R = 1 To Sheets.Count

LR = Sheets(R).Cells(Rows.Count, "B").End(xlUp).Row

If Sheets(R).Name = "آخر قيمة" Then GoTo 0

Sheets(R).Cells(LR + 1, 2) = WorksheetFunction.Sum(Sheets(R).Range("B1:B" & LR))

0:

With .Cells(Rows.Count, "B").End(xlUp)

E = .Row

.Offset(1, 0) = Sheets(R).Name

.Offset(1, 1) = Sheets(R).Range("B" & LR)

End With

Next

.Cells(E + 1, 3) = WorksheetFunction.Sum(Range("C1:C" & E))

End With

End Sub

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم أبو العقاب، وأستسمح أخواي الكريمين أبو حنين وأبو نصار في إعطاء حل آخر وهو في الحقيقة تغيير طفيف في كود أخي أبو حنين (وألتمس العذر منه كثيرا) والكود يكون كما يلي:

Private Sub CommandButton1_Click()

For R = 1 To Sheets.Count - 1

LR = Sheets(R).Cells(65000, "A").End(xlUp).Row

If Sheets(R).Range("A" & LR) = "المجموع" Then Sheets(R).Range("A" & LR).EntireRow.Clear

LR = Sheets(R).Cells(Rows.Count, "B").End(xlUp).Row

Sheets(R).Range("A" & LR + 1) = "المجموع"

Sheets(R).Range("B" & LR + 1) = Application.WorksheetFunction.Sum(Sheets(R).Range("B1:B" & LR))

Next

End Sub

وتجد تطبيقا له في الملف المرفق...

أخوكم بن علية

Book3.rar

تم تعديل ديسمبر 6, 2012 بواسطه بن علية حاجي

[أبو العقاب]

بارك الله بك أخ بن علية وجعله الله في ميزان حسناتك

وبارك الله بالأخوين الحبيبين أبا حنين وعباد وأدامكم الله لما فيه الخير للأمة

للجميع أجمل تحية

هو الحل المطلوب