المثابر

السلام عليكم اخي الكريم قمت بالتحكم في عرض الاعمدة المطلوبة عن طريق جملة Sheets("Result").Cells(EndRow + 1, 2) = .Cells(ii, 2).Value حيث اذا اردنا ان نضيف العمود رقم 3 مثلا نضيف هذه الجملة الى الكود و نغير الرقم 2 في طرفي المعادلة في الجملة الى 3 وهكذا نختار رقم العمود حسب الرغبة.. شكرا جزيلا على مساندتك وكثر الله من امثالك

اخي الكريم لقد جربت البرنامج وهو شغال تمام...وجربت اكثر من 500 سجل لكل صفحة ولم اجد اي مشكلة.. بالنسبة للاعمدة المختارة من الصفحات والتي تظهر في صفحة النتائج وهي عمود A , B ...لقد اضفت اعمدة اخرى للصفحات ولكن لم يظهر طبعا في صفحة النتائج الا العمودين اعلاه...كيف يمكنني ان اظهر مثلا الاربعة اعمدة الاولى مثل A,B,C,D او اختار اعمدة معينة غير مرتبة على فرض انه لدي عدة اعمدة..ارجو ان توضح لي اي خطوة من الكود المسؤولة عن هذه التغييرات. مع خالص الشكر

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

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

السلام عليكم لدي عمودين: عمود الاسم A1 وعمود الدرجة B1 كيف احصل على اعلى 10 سجلات على اساس حقل الدرجة من بين مجموعة سجلات موزعة على ورقتي عمل وليس ورقة واحدة ،بحيث ان الناتج يكتب في ورقة عمل ثالثة حاولت ارفاق مثال ولكني لم ارى خاصية ارفاق ملف،هل الغيت الخاصية؟. ولكم خالص الشكر والتقدير

السلام عليكم انا قليل الخبرة جدا بالاكسيل فارجو مساعدتي... لدي هذا الاجراء Function GetGrade3(mycell) Dim x As Double x = mycell.Value GetGrade3 = "رقم غريب" If x >= 0 Then GetGrade3 = "راسب" If x >= 50 Then GetGrade3 = "مقبول" If x >= 65 Then GetGrade3 = "جيد" If x >= 75 Then GetGrade3 = "جيد جدا" If x >= 85 Then GetGrade3 = "ممتاز" End Function اين اكتبه وكيف انفذه...ارجو ان توضحوا لي الخطوات ولكم خالص الشكر والتقدير