علي السحيب

قم بتغيير البيانات الأساسية في الجدول حسب البيانات التي لديك،

شاهد المرفق، ___________________________.rar

عمل رائع ومتقن .. وشرح متمير ورائع .. أشكرك عليه،

راجع الرابط التالي والخاص بكيفية نقل الكود من ملف إلى آخر: http://www.officena.net/ib/index.php?showtopic=3069

إستخدم الكود التالي لربط تنسيق خلية بخلية أخرى: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then [C5].Copy [E5].PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End If End Sub _________________________.rar

الكود التالي يعمل على إظهار جميع الأعمدة والصفوف المخفية: Sub UnhideRowsAndColumns() ActiveSheet.Columns.Hidden = False ActiveSheet.Rows.Hidden = False End Sub والصيغة التالية تعمل كما طلبت .. ويتم وضعها في الخلية D1: =IF(OR(NOT(A1=""),NOT(B1="")),A1,"") UnhideRowsAndColumns.rar

آسف .. ليس لدي إلمام بها يمكنك أن تطلب من الاستاذ محمد طاهر وضع شرح بسيط عنها.

يمكنك إنشاء نسخة إحتياطية للملف بشكل دائم ولمرة واحدة .. فقط أتبع اللآتي: 1- قف على الملف المعني وإضغط F12. 2- عند خروج نافذة الجهاز .. تجد في أعلاها قائمة أسمها Tools أو أدوات قم بالضغط عليها. 3- أختر General Options أو خيارات عامة .. سيخرج لك مربع حوار به أربع خيارات مهمة وهي: - عمل نسخة إحتياطية - وضع كلمة مرور لفتح الملف - وضع كلمة مرور للتعديل على الملف - جعل الملف للقراءة فقط 4- قم بالتأشير على المربع الذي بجانب Always Create Backup .. نسخة إحتياطية .. ويمكنك وضع كلمة مرور لفتح الملف أو للتعديل عليه إذا رغبت ذلك. 5- إضغط على OK أو موافق .. ثم إضغط على Save أو حفظ .. وإذا خرجت لك رسالة أختر Yes أو نعم. وبهذا تكون قد أنشأت نسخة إحتياطية تتحدث في كل مرة تقوم فيها بحفظ الملف، ولإختصار كل تلك الخطوات استخدم الكود التالي: Sub CreateBackup() ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path _ & "\" & ActiveWorkbook.Name, CreateBackup:=True End Sub ___________________.rar

قام الأخ حمد بإرسال الملف إلي عن طريق البريد الإلكتروني وقمت بإجراء التعديل اللازم عليه، ________.rar

شاهد المرفق، ____________________________.rar

الملف المرفق يحتوي على كود للاستاذ محمد طاهر يلبي طلبك، والرابط التالي يحتوي على موضوع بخصوص ترتيب الطلاب على حسب مجموع درجاتهم، http://www.officena.net/ib/index.php?showtopic=13153 ______________________________.rar

أرفق الملف المعني ليتم التعديل عليه،

استخدم الكود التالي: Sub BackToNormal() Dim MyRange Set MyRange = [E7:G13] MyRange.ClearContents [IV1].Copy MyRange.PasteSpecial Paste:=xlPasteFormats [A1].Activate End Sub وقم بتغيير النطاق [E7:G13] إلى النطاق الذي لديك،

تم التعديل، ______2.rar

يكون ذلك بإستخدام الدالة INDEX وبمساعدة الدالة MATCH .. وتكون الصيغة كالتالي: =INDEX('قائمة الطلاب المتفوقين'!F3:F32,MATCH(الشهادة!C5,اسماء_الطلاب,0)) أو بإستخدام الدالة OFFSET وبمساعدة الدالة MATCH .. وتكون الصيغة كالتالي: =OFFSET('قائمة الطلاب المتفوقين'!G2,MATCH(الشهادة!C5,اسماء_الطلاب,0),-1) _____________________________.rar

أستخدم الكود التالي في الصفحة المعنية: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$1" Or Target.Address = "$H$1" Then [G1] = [F1] + [H1] End Sub _______________________________.rar

شاهد المرفق، والذي يحتوي على قائمة لبيانات الطلبة وقائمة أخرى تشتمل على أصحاب المراتب ودرجاتهم وعدد الحاصلين على كل مرتبة، ويقوم كذلك بإعطاءك الأول مكرر والثاني مكرر وهكذا.. _____________________________.rar

النسبة تظهر في العمود N البرنامج يحتوي فقط على مثال بسيط لـ 15 طالبة .. ويمكنك زيادتهم كيف تشاء .. على كل حال لقد قمت بإضافة خاصية القائمة والتي تعمل على إمكانية زيادة عدد صفوف وبيانات الجدول دون الحاجة إلى تعديل الصيغ أو القوائم المنسدلة. لا. نعم. تمت الإضافة. تم عمل ذلك. تم عمل ذلك. ______2.rar

إذاً إستخدم التنسيق التالي: "الأستاذ/ "@

تم إضافة زر لطباعة البيانات لكل فئة على حدى .. وتم أيضاً إضافة زر آخر لعرض البيانات دون طباعتها. تم عمل التعديلات اللازمة بخصوص إظهار إسم الطالب في الشهادة.. ______2.rar

أعتذر عن تأخري في الرد أخي الكريم، ولكني رأيت الموضوع في المرة الأولى وقمت بتحميل المرفق ونسيت أن أضع تعقيبي عليه .. على كل حال البرنامج مكتمل تقريباً ولا يحتاج سوى بعض اللمسات البسيطة وقد قمت بإضافتها وآمل أن تحوز على استحسانك. وإذا كان لديك أي ملاحظات الرجاء ذكرها بالتحديد ومن غير جعل السؤال مفتوحاً, شكراً، mr.ali.rar

لك ذلك أخي الكريم، تم تطبيق الدالة ISNA على المثال الخاص بالطريقة الأولى لملأ الشهادة .. وأصبحت الصيغة كما يلي: =IF(ISNA(LOOKUP($F$3,'اسماء ودرجات الطلاب'!$B$2:$B$16,'اسماء ودرجات الطلاب'!D$2:D$16)),"",LOOKUP($F$3,'اسماء ودرجات الطلاب'!$B$2:$B$16,'اسماء ودرجات الطلاب'!D$2:D$16)) كما تم تطبيق الدالة ISERROR على المثال الخاص بالطريقة الثانية لملأ الشهادة .. وأصبحت الصيغة كما يلي: =IF(ISERROR(VLOOKUP($F$15,'اسماء ودرجات الطلاب'!$B$2:$Q$16,COLUMN()+1,0)),"",VLOOKUP($F$15,'اسماء ودرجات الطلاب'!$B$2:$Q$16,COLUMN()+1,0)) شاهد المرفق، ______2.rar

شاهد المرفق، _____.rar

استخدم الدالة ISNA أو الدالة ISERROR لإخفاء الخطأ

شاهد المرفق، ___________________________________.rar