انسخ عذا الماكرو الى ملفك في Module
و حدد له زر على الورقة
Sub select_multiple_cells()
Dim r As Integer
r = 12
Range(ActiveCell, ActiveCell.Offset(0, r - 1)).Select
End Sub
عسى ان يكون المطلوب
تم تغيير اسماء الصفحات ليعمل الاكسل بشكل جيد بعيداً عن اللغة العربية و مشاكلها
الصفحة 11 تعني الاول فرع 1 الصفحة 51 تعني الخامس فرع 1 و هكذا
برنامج حساب نسبة النجاح من التحريري salim.rar
اخي ياسر
استعمال الدالة rand() تجعل اكسل يغير رأية و يبتدع لك لائحة جديدية كلما حصل اي تغيير في اي خلية
لهذا جئت للحل بواسطة الكود (لا اريد ان استعمل Calculation manual )
1- حدد كل اخلايا المطلوبة
2 اضغط على مفتاح Alt
3- مع الاستمرار بالضغط على هذا المفتاح اضغط على المفاتيح التالية بالتوالي H,S,S ( بداية H ثم S مرتين)
4- ما خلاص بقى سيب المفتاح Alt , و شوف العجايب
عفواً لم انتبه الى السؤال جيداً - هذا الطريقة تستعمل لترتيب الارقام تصاعدياً ( وانت تريدها عشوائية)
سوف ارسل ملفا نموذج لما تريد
هذه فعلاً من كنوز اكسل الرائعة
تعقيباً على الموضوع / أقدم لكم اخواني هذا الملف الذي يحدد الخلايا التي تحتوي على معادلات من تلقاء نفسه.
تحديد المعادلات تلقائياً.rar
هذا مثال عما تريد
ان الملف يعمل بطريقتين
طريقة المعادلات و طريقة الكود
طريقة المعادلات تظهر الياً عند كتابة التنيجة في الصفحة الرئيسية الى صفحتي ناجح راسب
و طرقة الاكود تفرز لك النجين و الراسبين الى صفحتي Nageh / rasseb
الملف تم وضعه حسب اصدار 2003 حتى يستفيد اكبر عدد منه من المشاركين
ناجح راسب salim 1 2003.rar
الكود عندي اشتغل بشكل طبيعي جداً
و ليس هناك من حلقات تكلرارية لا نهائية
عندي الاوفيس 2010 و لا اعلم اذا كانت هناك مشكلة بالنسبة للكود في باقي الاصدارات
اخي انيس
استعمل الدالة التالية بدل الاولى و هي تحقق الشرط الثاني و هو كتابة العدد في العمود الثاني
=IF(AND($A2<>"",البضاعة!$A2<>"",$B2<>""),INDEX(البضاعة!$C$2:$C$500,MATCH(الطلبية!$A2,البضاعة!$A$2:$A$500,0)),"")