حساب المجموع عند طباعة صفحات ورقة

[محمد 65]

اخواني الكرام اريد المساعدة في هذا المثال

و هو عبارة عن طباعة صفحات الورقة مهما كان عددها

بحيث يظهر في نهاية كل صفحة مجموع الخلايا في العمود E

المصنف1.rar

[محمد 65]

للرفع

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

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

أخي الكريم لا أعتقد أن هذا المطلوب من خصائص إكسيل (باعتبار أن عدد الأسطر في كل صفحة يتعلق بتنسيق الصفحة وهوامشها وارتفاع الأسطر فيها...) ولكن يمكنك إضافة هذا المجموع بطريقة يدوية (معادلات) أو تلقائية (كود) في آخر سطر من كل صفحة بعد كل التنسيقات...

والله أعلم

[محمد 65]

اخي الكريم شكرا على الرد

لكن البيانات في الورقة غير ثابتة ومتواصلة

كما ان البيانات متصلة ببيانات في اوراق اخرى

[ابو اسامة العينبوسي]

السلام عليكم

في الحقيقه ان هدا السؤال و الموضوع مهم من وجهة نظرى

فعند الطباعه تحتاج الى مجموع كل صفحه على حدى

سابدأ مع الاخوه الخطوه الاولى ( قد تشكل خميره الحل )

ادا عرفنا موقع فاصل الصفحات العرضى نستطيع التوقف هناك و نضع معادله للمجموع(بغض النطر عن عدد الصفوف لانه يتغير بتغير حجم الورقة و النص ) فالاساس هو فاصل الصفحات

هنا كود لاستعراض مواقع فواصل الصفحات في الورقة المدرجه في مثال الاخ اعلاة

Sub countHPageBreaks()

With Worksheets(1)

For i = 1 To .HPageBreaks.count

MsgBox "فاصل الصفحه رقم " & i & "-" & "هو الصف رقم " & .HPageBreaks(i).Location.Row

Next i

End With

End Sub

اسف لتغيبي الطويل بسبب العمل

و الله الموفق

Total For Each Page.rar

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

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

اخي الكريم شكرا على الرد

لكن البيانات في الورقة غير ثابتة ومتواصلة

كما ان البيانات متصلة ببيانات في اوراق اخرى

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

أخوك بن علية

[قصي]

السلام عليكم

في الحقيقه ان هدا السؤال و الموضوع مهم من وجهة نظرى

فعند الطباعه تحتاج الى مجموع كل صفحه على حدى

سابدأ مع الاخوه الخطوه الاولى ( قد تشكل خميره الحل )

ادا عرفنا موقع فاصل الصفحات العرضى نستطيع التوقف هناك و نضع معادله للمجموع(بغض النطر عن عدد الصفوف لانه يتغير بتغير حجم الورقة و النص ) فالاساس هو فاصل الصفحات

هنا كود لاستعراض مواقع فواصل الصفحات في الورقة المدرجه في مثال الاخ اعلاة

Sub countHPageBreaks()

With Worksheets(1)

For i = 1 To .HPageBreaks.count

MsgBox "فاصل الصفحه رقم " & i & "-" & "هو الصف رقم " & .HPageBreaks(i).Location.Row

Next i

End With

End Sub

اسف لتغيبي الطويل بسبب العمل

و الله الموفق

شرفت شرف الله مقدارك

[عبدالله باقشير]

السلام عليكم

شرفت شرف الله مقدارك

[محمد 65]

للرفع