اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

يرحمكم الله

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information