ادراج صفوف لاسفل بنفس التنسيق والمعادلات دون التأثير على عملية الجمع

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

وعلى الله تسيرالامور

إخوانى الاعزاء الافاضل 

السلام عليكم ورحمته الله وبركاته

بالمرفق كود إدراك صفوف بنفس التنسيقات والمعادلات

لأخى العزيزالاستاذ الفاضل والعلامة القدير // عبدالله باقشير " حفظه الله "

وبارك الله فيكم جميعا

المشاركة رقم 1 بالرابط

http://www.officena.net/ib/index.php?showtopic=44936&hl=

فكيف يمكن جعل هذة الرائعه أن تعمل على ادراج صف

ماقبل الصف الاخير والذى يمثل عملية الجمع النهائى

مع زيادة نطاق الجمع بمقدارعدد الصفوف المدركة تلقائيا حتى لاتتأثرعملية الجمع

سواءا بالحذف أو الإضافه.... تقبلوا وافراحترامى وتقديرى .... وجزاكم الله خيرا

تم تعديل نوفمبر 1, 2013 بواسطه دغيدى

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

السلام عليكم

 

جرب هذا (لازم يكون صف فاضي بين صفوف الجدول وصف الاجمالي)

Private Const ContColumn As Integer = 6

Sub Macro1()
With Cells(Rows.Count, "B").End(xlUp).Offset(-1, 0).Resize(1, ContColumn)
    .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Offset(-1, 0).Borders.LineStyle = 1
End With
End Sub

تحياتي

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

السلام عليكم

 

هذا مع اختيار عدد الصفوف المضافة

Private Const ContColumn As Integer = 6

Sub Macro1()
Dim MyRow As Integer
MyRow = Application.InputBox(Prompt:=" ادخل عدد الصفوف " & Chr(10) & "عدد الصفوف الافتراضية " & 1, Title:="ادراج عدد محدد من صفوف ", Default:=1, Type:=1)
If MyRow = False Then Exit Sub
With Cells(Rows.Count, "B").End(xlUp).Offset(-1, 0).Resize(MyRow, ContColumn)
    .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Offset(-MyRow, 0).Resize(MyRow).Borders.LineStyle = 1
End With
End Sub

شاهد المرفق 2003

ادراج صفوف لاسفل بنفس التنسيق والمعادلات دون التأثير على عملية الجمع+.rar

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

السلام عليكم

 

هذا مع نسخ المعادلات 

Private Const ContColumn As Integer = 6

Sub Kh_Insert_Rows()
Dim MyRow As Integer
MyRow = Application.InputBox(Prompt:=" ادخل عدد الصفوف " & Chr(10) & "عدد الصفوف الافتراضية " & 1, Title:="ادراج عدد محدد من صفوف ", Default:=1, Type:=1)
If MyRow = False Then Exit Sub

With Cells(Rows.Count, "B").End(xlUp).Offset(-1, 0).Resize(MyRow, ContColumn)
    .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    With .Offset(-(MyRow + 1), 0).Resize(1)
        .AutoFill Destination:=.Resize(MyRow + 1), Type:=xlFillDefault
    End With
    
    With .Offset(-MyRow, 0).Resize(MyRow)
        On Error Resume Next
        .SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
        .Cells(1, 1).Select
    End With
End With
MsgBox "تم ادراج الصفوف المطلوبة بنجاح", 524288 + 1048576, "الحمدلله"

End Sub

تحياتي

ادراج صفوف لاسفل بنفس التنسيق والمعادلات دون التأثير على عملية الجمع+.rar

[محمد صبره]

_{السلام عليكم ورحمة الله وبركاته}

 

_{الاستاذ القدير /  عبد الله باقشير   حفظكم الله ورعاكم}

 

_{بصراحة أعجبني الموضوع والكود الاحترافي الأكثر من رائع والذي تكرمتم باضافته، وكنت أتمنى تكرمكم باضافة كود آخر لحذف الصفوف المدرجة (الغير مرغوب بها).}

_{فمثلاً لو قمت بإضافة 7 صفوف ولم استخدم سوى 3 منها - وعليه أريد الكود لحذف الصفوف الفارغة (الغير مستخدمة) .}

_{وإذا اعتبرنا أن الجدول يحتوي على دالة التسلسل التلقائي - فهل بالإمكان أن يكون الحذف بمعلومية الرقم التسلسلي (مثلاً حذف التسلسل من رقم 11 إلى 14) أو (حذف التسلسل من رقم 8 إلى 8) في حالة ان المطلوب حذف صف واحد؟}

 

_{شاكراً لكم سلفاً جهودكم العظيمة، واسأل الله أن يجهلها في ميزان حسناتكم.}

 

_{والسلام عليكم ورحمة والله وبركاته.}

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالمحترم الاستاذ الفاضل // عبدالله باقشير

تسلم .... تسلم الايادى

دائما سباق بالخير ... بسم الله ماشاء الله

سبقتنى بالملف الثانى .. قبل الرد على المشاركة رقم 3

فالمطلوب بحول الله تعالى .... كما ينبغى ... وهناك أمرأخر بشأن الحذف

أضفت ورقة أخرى بنفس التنسيقات والمعادلات ولكن المطلوب 

فيها بحول الله تعالى وعذرا إن كنت أثقل على سيادتكم

عند اختيارأى صف للحذف من ورقه 1 يتم حذفه من ورقه 2

فهل نطمع بهذه الاضافه .....  تقبل وافر احترامى وتقديرى

وجزاكم الله تعالى خيرا

تم تعديل أكتوبر 31, 2013 بواسطه سعيد بيرم

[حمادة باشا]

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

بعد طلب الإذن من أستاذنا الكبير/ عبدالله باقشير

تفضل أستاذ/ سعيد طلبك الثاني - قف علي الصف المراد حذفه وإضغط زر الحذف 

عملية الحذف تحدث في الورقتين - تقبل تحياتي

 

ادراج صفوف لاسفل بنفس التنسيق والمعادلات دون التأثير على عملية الجمع+11111111.rar

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالاستاذ الفاضل // حماده باشا

بارك الله فيكم  ومتعكم الله بالصحة والعافيه

بسم الله ماشاء الله لاقوة الا بالله

تمام ياحبيب قلبى ...... جمعنا الله على طاعته ومحبته

تقبل وافر احترامى وجزاكم الله خيرا

تم تعديل نوفمبر 2, 2013 بواسطه سعيد بيرم

[أم عبد الله]

أستاذنا الفاضل / سعيد بيرم

 

أعانك الله على تكملة هذا العمل الشاق وجزاكم الله خيراً جميعاَ أستاذنا القدير علاّمة الوطن العربي / عبد الله باقشر وأستاذنا الكبير / حماده باشا على هذه الأكواد الرائعة. جعل الله جميع أعمالك في ميزان حسناتكم. لكم كل التحية والتقدير.

[أبو محمد عباس]

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

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

الاستاذ والاخ الحبيب سعيد بيرم جزاك الله خيرا واعانك على عمل الخير واعطاك الصحة والعافية

الاستاذ والاخ الحبيب حمادة باشا جزاك الله خيرا واعمالك ومشاركاتك في قمة الابداع والروعة

تقبلوا مني فائق الاحترام والتقدير

[أبو عبد الرحمن سعيد]

أخى العزيزالمحترم // عباس السماوى

دائما مانحث على المشاركات الفعاله

وماتشاهده الان يجمع بين عنصرين

العنصرالاول النفس الطويل للبحث عن المعلومة لبلورة الافكارالبنائه

والعنصرالثانى ذوى الخبرة العالية فى عالم الاكواد التى يفتقدها كثيرا منا

والاعلى من هذا وذاك الروح الطيبة المباركة التى نتمتع بها كأعضاء فاعلين

جمعنا الله على محبته وطاعته ...... تقبلوا وافراحترامى وتقديرى ..... وجزاكم الله خيرا

تم تعديل نوفمبر 2, 2013 بواسطه سعيد بيرم

[أبو عبد الرحمن سعيد]

الاخت الفاضلة الاستاذه // أم عبدالله

جزاكم الله خيرا ...... دعواتك 

بقى القليل بحول الله تعالى ... تم بحول الله الانتهاء من البرنامج بجميع معادلاته

ولكن كما تعلمين ان الشيت به أعمده كثيرة

فجارى العمل على الفوروم اللازمه تمهيدا لرفعه خلال أيام

والشكركل الشكرللأستاذالفاضل / عبدالله باقشير

والشكركل الشكرللأستاذالفاضل / حماده باشــا

داعيا المولى العلى القديرأن يكلل هذا المجهود بالنجاح

جمعنا الله على محبته وطاعته ...... تقبلوا وافراحترامى وتقديرى ..... وجزاكم الله خيرا

تم تعديل نوفمبر 2, 2013 بواسطه سعيد بيرم

[حمادة باشا]

 

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالاستاذ الفاضل // حماده باشا

بارك الله فيكم  ومتعكم الله بالصحة والعافيه

بسم الله ماشاء الله لاقوة الا بالله

تمام ياحبيب قلبى ...... جمعنا الله على طاعته ومحبته

تقبل وافر احترامى وجزاكم الله خيرا

 

 

الأستاذ/ سعيد

لم أقم بشيء يذكر - تحت أمركم

 

أستاذنا الفاضل / سعيد بيرم

 

أعانك الله على تكملة هذا العمل الشاق وجزاكم الله خيراً جميعاَ أستاذنا القدير علاّمة الوطن العربي / عبد الله باقشر وأستاذنا الكبير / حماده باشا على هذه الأكواد الرائعة. جعل الله جميع أعمالك في ميزان حسناتكم. لكم كل التحية والتقدير.

 

الأخت الفاضلة/ أم عبدالله

الشكر موصول لأستاذنا/ عبدالله باقشير علي إبداعاته

وشكرا مروركم العطر

 

 

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

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

الاستاذ والاخ الحبيب سعيد بيرم جزاك الله خيرا واعانك على عمل الخير واعطاك الصحة والعافية

الاستاذ والاخ الحبيب حمادة باشا جزاك الله خيرا واعمالك ومشاركاتك في قمة الابداع والروعة

تقبلوا مني فائق الاحترام والتقدير

 

الأستاذ الفاضل/ عباس السماوي

شاكرا لكم إطراءكم الجميل - وتقبل تحياتي

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

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

[محمد صبره]

الاستاذ القدير / عبد الله باقشير

الاستاذ القدير / حمادة عمر

الاستاذ القدير / سعيد بيرم

 

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

 

أنا عاجز عن الشكر والتقدير لجهودكم العظيمة. ومهما قلنا ومهما كتبنا فإننا لا نستطيع أن نوفيكم حقكم من الشكر والثناء.

حفظكم الله ورعاكم وزادكم من فضله علماً وعملاً ورفع شأنكم وعلا مرتبتكم. وأسأل الله ان يتقبل كل مشاركة منكم كصدقة جارية شاهدة لكم إلى يوم الدين.

 

بعد إذنكم! كان لدي استفسار وهو هل بالامكان أن نستخدم UserForm للقيام بتحديد الصفوف المراد حذفها كما هو في الملف المرفق.

 

وتفضلوا بقبول فائق التحية و التقدير.

 

أخوكم / محمد صبره

 

 

DELETE ROWS.zip

[أبو عبد الرحمن سعيد]

الأستاذ / سعيد

لم أقم بشيء يذكر - تحت أمركم

 

الآخ العزيزالاستاذ الفاضل // حماده باشا

الامرلله تعالى  ..... وجزاكم الله خيرا وبارك الله فيكم

للموضوع بقيه ..... نرجو المتابعه

تقبلوا وافراحترامى

تم تعديل نوفمبر 2, 2013 بواسطه سعيد بيرم

[أبو عبد الرحمن سعيد]

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

الآخ العزيزالاستاذ الفاضل //عبدالله باقشير

وجزاكم الله خيرا وبارك الله فيكم

للموضوع بقيه ..... نرجوالمتابعه

تقبلوا وافراحترامى

[محمد صبره]

تعديل على المشاركة السابقة

 

الأعزاء الكرام الملاحظ أني قد أخطأت في كتابة أسم الأستاد القدير (حمادة باشا)

وعليه تقبلوا أعتذاري (وجل من لا يسهو سبحانه وتعالى)

 

والشكر للجميع.

 

 

الاستاذ القدير / عبد الله باقشير

الاستاذ القدير / حمادة باشا

الاستاذ القدير / سعيد بيرم

 

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

 

أنا عاجز عن الشكر والتقدير لجهودكم العظيمة. ومهما قلنا ومهما كتبنا فإننا لا نستطيع أن نوفيكم حقكم من الشكر والثناء.

حفظكم الله ورعاكم وزادكم من فضله علماً وعملاً ورفع شأنكم وعلا مرتبتكم. وأسأل الله ان يتقبل كل مشاركة منكم كصدقة جارية شاهدة لكم إلى يوم الدين.

 

بعد إذنكم! كان لدي استفسار وهو هل بالامكان أن نستخدم UserForm للقيام بتحديد الصفوف المراد حذفها كما هو في الملف المرفق.

 

وتفضلوا بقبول فائق التحية و التقدير.

 

أخوكم / محمد صبره

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

تعديل على المشاركة السابقة

 

الأعزاء الكرام الملاحظ أني قد أخطأت في كتابة أسم الأستاد القدير (حمادة باشا)

وعليه تقبلوا أعتذاري (وجل من لا يسهو سبحانه وتعالى)

 

والشكر للجميع.

 

 

الاستاذ القدير / عبد الله باقشير

الاستاذ القدير / حمادة باشا

الاستاذ القدير / سعيد بيرم

 

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

 

أنا عاجز عن الشكر والتقدير لجهودكم العظيمة. ومهما قلنا ومهما كتبنا فإننا لا نستطيع أن نوفيكم حقكم من الشكر والثناء.

حفظكم الله ورعاكم وزادكم من فضله علماً وعملاً ورفع شأنكم وعلا مرتبتكم. وأسأل الله ان يتقبل كل مشاركة منكم كصدقة جارية شاهدة لكم إلى يوم الدين.

 

بعد إذنكم! كان لدي استفسار وهو هل بالامكان أن نستخدم UserForm للقيام بتحديد الصفوف المراد حذفها كما هو في الملف المرفق.

 

وتفضلوا بقبول فائق التحية و التقدير.

 

أخوكم / محمد صبره

 

 

شاهد المرفق 2003

ادراج صفوف لاسفل بنفس التنسيق والمعادلات دون التأثير على عملية الجمع+.rar

[محمد صبره]

استاذي القدير / عبد الله باقشير

 

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

 

بسم الله ما شاء الله بصراحة عبقريتك لا توصف. أتمنى أن تتفضل بقبول فائق شكري وتقدير وإحترامي. لك ولجميع عملاقة وعباقرة الأكسل في هذا المنتدى الأكثر من رائع..

ولا أنكر فضلكم جميعاً وفضل هذا المنتدى الذي استفدت وتعلمت منه ولا زلت استفيد وأتعلم كل يوم وكل ساعة.

 

بعد إذنكم لقد قمت بتعديل دالة التسلسل التلقائي كالتالي:  =IF(D2="","",COUNTA($D$2:D2)) ونسختها لجميع خلايا التسلسل وذلك حتى يحتفظ التسلسل بعد الحذف لصف من الصفوف.

 

جزاكم الله خيراُ  ...  والسلام عليكم ورحمة الله وبركاته...

 

أخوكم / محمد صبره

 

 

 

 

 

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

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

جزاكم الله خيرا

عد إذنكم لقد قمت بتعديل دالة التسلسل التلقائي كالتالي:  =IF(D2="","",COUNTA($D$2:D2)) ونسختها لجميع خلايا التسلسل وذلك حتى يحتفظ التسلسل بعد الحذف لصف من الصفوف.

 

لم انتبه لعمل دالة التسلسل بعد الحذف

وبامكانك استخدام المعادلة التالية

=ROW()-1

تحياتي

[محمد صبره]

استاذي القدير / عبد الله باقشير

 

لقد قمت بتعديل الدالة حسب ما طلبت

 

جزاكم الله خيراً

 

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

 

تلميذكم / محمد صبره