اضافة صف جديد

[نور وحيد]

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

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

اما بعد

فارجوا المساعدة فى تنفيذ المطلوب فى المرفق

الشيت.rar

[نور وحيد]

للرفع

up

[حمادة عمر]

جرب استخدام الكود التالي

كود للقدير / عباد - العيدروس

Sub ali_Insrt()
Dim i&, Str&, En&
Dim Lng%
With ActiveSheet
Application.ScreenUpdating = False
Str = 6: En = .Cells(.Rows.Count, 2).End(xlUp).Row
On Error Resume Next
Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "")
If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub
    For i = En To Str Step -1
        .Rows(i + 1).Resize(Lng).Insert
    Next i
On Error GoTo 0
Application.ScreenUpdating = True
End With
End Sub

وشاهد الرابط التالي لعله يفيد

http://www.officena.net/ib/index.php?showtopic=49290&hl=%D8%B5%D9%81%D9%8A%D9%86

تم تعديل ديسمبر 20, 2013 بواسطه حمادة عمر

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

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

الاستاذ والاخ الحبيب ابو سما حفظكم الله واعزكم

ما شاء الله دائما تسارع لمساعدة الاخوة الاعضاء جعله الله في ميزان حسناتك

اعمال في قمة الروعة والابداع زادك الله من فضله علما وشرفا

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

[حمادة عمر]

السلام عليكم

الاخ الحبيب / أبو محمد عباس

بارك الله فيك

دائما والله مرور شرف كبير جدا لي

وكلماتك الغالية دائما تشجعني

تقبل الله منا ومنكم

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

تقبل خالص تحياتي

[نور وحيد]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / نور وحيد

بارك الله فيك

بالنسبة لطلبك تنفيذ المطلوب باستخدام المعادلات ... فعلي حسب علمي .. ان ذلك لا يمكن الا باستخدام الاكواد

ولا يمكن اضافة صف باستخدام المعادلات ... والله اعلم

 

اما بالنسبة لشرح الكود  ... فتفضل اخي الكريم ( شرح الكود سطر سطر )

'اسم المهمة او الاجراء 
Sub ali_Insrt()
'وضع المتغيرات المستخدمة في الكود 
Dim i&, Str&, En&
Dim Lng%
'السطر التالي يقول انه بالنسبة للشيت الذي تم تنشيطة 
'او الشيت المفتوح نفذ الاوامر التالية  عليه وذلك باستخدام 
'with جملة 
With ActiveSheet
'السطر التالي يقول اغلق اهتزازات الشاشة في بداية تنفيذ الكود 
Application.ScreenUpdating = False
'السطر التالي هو عبارة عن سطرين مفصول بينهم بالعلامة ( : ) 
'Str = 6 السطر الاول هو 
'ويعني ان بداية تنفيذ الكود هو السطر رقم 6
'En = .Cells(.Rows.Count, 2).End(xlUp).Row السطر الثاني 
'ويعني نهاية البيانات في العمود 2
Str = 6: En = .Cells(.Rows.Count, 2).End(xlUp).Row
'السطر التالي عبارة توضع لجعل الكود يكمل حتي في حالة وجود خطأ 
On Error Resume Next
'اظهار بوكس ادخال لادخال عدد الصفوف المطلوب ادراجها 
Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "")
'معادلة تقول انه اذا كانت قيمة الادخال في بوكس الادخال تساوي صفر الغي الامر 
' او اذا كانت قيمة بوكس الادخال تساوي نص انه المهمة
If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub
'عمل جملة تكرارية لتنفيذ امر ادراج الصفوف من بداية الصف المختار وهو هنا رقم 6
'الي الصف الاخير بخطوات بالعدد الذي تم تحديده في بوكس الادخال عند ظهوره في بداية الكود
    For i = En To Str Step -1
        .Rows(i + 1).Resize(Lng).Insert
'نهاية الحلقة التكرارية 
    Next i
'السطر التالي يقول انه في حالة وجود خطأ اذهب للصفر او بمعني آخر لاشئ 
On Error GoTo 0
'السطر التالي نقوم فيه باعادة تشغيل اهتزازات الشاشة 
Application.ScreenUpdating = True
'with نهاية جملة 
End With
'نهاية المهمة بالكامل 
End Sub

ارجو ان يكون الشرح واضح وبسيط

تقبل خالص تحياتي

[نور وحيد]

الف شكر للاخ العزيز الاستاذ / حمادة عمر 

الشرح و اضح جدا وبسيط للغاية جزاك الله عنا خيرا

[حمادة عمر]

بارك الله فيك

تقبل خالص تحياتي