بطاقة حساب درجات لست فصول - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188) +--- الموضوع : بطاقة حساب درجات لست فصول (/showthread.php?tid=24662)

بطاقة حساب درجات لست فصول - moniam - 26-04-18 السلام عليكم  مبتدئ في البرمجة و حبيت اشارك بملف بسيط بالأكسيل لحساب نتيجة ست فصول و يحتاج الي تطوير ليظهر بمنظر احلى الملف في الملحقات هذا الماكرو الذي استعملته علي ملف الاكسيل لتنظيم ظهور اسماء المواد منظمة ويتم ذلك بعد فتح ملف الاكسيل والضغط على المفتاحين alt+F11  وبعد ظهور شاشة الفيجوال بيزك نضغط ادخال و نختار موديول module ونكتب او نلصق الكود الذي اسميته result Sub result() Range("b23:b32").ClearContents   For Each cd In Range("e8:e17") If cd.Value < [h5].Value Then x = WorksheetFunction.CountA(Range("b23:b32")) Cells(23, 2).Offset(x, 0) = cd.Row() - 7 End If Next df End Sub و عند حفظه و تشغيله يتم ترتيب اسماء المواد في ملف الاكسيل و السلام عليكم و رحمة الله و بركاته