كود جميل لترك سطر فى كشف الطلاب الراسبين

[عماد فايد]

أعزائى اعضاء هذا المنتدى الرائع

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

الكود بالملف المرفق مع الشرح

وانتظر ردودكم

 

 

Book2.rar

[قصي]

ماشاء الله ربنا يكرمك

Sub شكلتلقائي1_نقر()
Dim m As Integer
'نكتب فى جملة for من 1 الى رقم آخر طالب فى الكشف مضروبا فى 2
' هنا العدد فى هذا الكشف 10
' اذا العدد فى جملة if = 10*2 = 20

For m = 1 To 20 Step 2
' تم اختيار الخلية a12 وهى أول خلية فى الشيت تبدأ باسم أول طالب

Range("A12").Offset(m, 0).Select
Selection.EntireRow.Insert
Next

End Sub

كود رائع

[محمود_الشريف]

أخى الكريم

بارك الله فيكم

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

[عماد فايد]

شكرا على الردود ان شاء الله سأقدم مشاركات مميزة فى اقرب وقت

[جلال محمد]

اخي الكريم

جزاك الله خيرا علي هذا الكود 

ولكن به ملاحظتان :

الأولي :  يجب ان يكون السطر المضاف الي أعلي وليس الي اسفل . 

الثانية : عند الضغط علي الزر يقوم باضافة سطور اخري . 

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