عماد فايد قام بنشر يناير 28, 2014 مشاركة قام بنشر يناير 28, 2014 أعزائى اعضاء هذا المنتدى الرائع اقدم لحضراتكم كود مهم ومطلوب عند تقديم شيت الراسبين للإدارة وذلك لضرورة فصل أسماء الراسبين و ترك سطر بين أسماء الراسبين فى الشيت وكان هذا يستلزم اجراء ادراج سطر عن طريق الأوامر وتكرار ذلك بعدد طلاب الشيت وهذا يستغرق وقت طويل جدا البكم هذا الكود مع الشرح الذى ينفذ ذلك فى ثوانى الكود بالملف المرفق مع الشرح وانتظر ردودكم Book2.rar 1 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 29, 2014 مشاركة قام بنشر يناير 29, 2014 ماشاء الله ربنا يكرمك 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 كود رائع رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 30, 2014 مشاركة قام بنشر يناير 30, 2014 أخى الكريم بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
عماد فايد قام بنشر يناير 31, 2014 الكاتب مشاركة قام بنشر يناير 31, 2014 شكرا على الردود ان شاء الله سأقدم مشاركات مميزة فى اقرب وقت رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر فبراير 1, 2014 مشاركة قام بنشر فبراير 1, 2014 اخي الكريم جزاك الله خيرا علي هذا الكود ولكن به ملاحظتان : الأولي : يجب ان يكون السطر المضاف الي أعلي وليس الي اسفل . الثانية : عند الضغط علي الزر يقوم باضافة سطور اخري . بارك الله فيك ..... وجعله الله في موازين حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.