عمل اللجان المدرسيه 1

ahmed12345a · #1 24-10-2017, 12:15 PM

بسم الله الرحمن الرحيم

احبابنا في الله

ادعو الله ان تكونوا بخير يارب

هذا ملف به كود خاص باخراج كشوف لجان الطلاب المدرسيه بالمصفوفات وما أسهله وما أسرعه

طريقه الاستفاده من هذا الملف

افتح هذا الملف

اضغط على زر ALT وانت ماتزال ضاغط

اضغط على F11

سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد

دبل كليك على الموديول المعنون Legan_Test

ثم اضغط من لوحة المفاتيح على ALT +SHEFT

لتكون اللغه هي العربيه

منعا لظهور اللغه العربيه بشكل طلاسم

اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A

لتحديد الكود كله

ثم CTRL+C ليتم النسخ

=====

** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا

** ومن قائمه محرر الاكواد التي فتحت امامك

** اختر Insert واختر منها Module

** ثم ضع المؤشر في Module

** والصق الكود

==========

اكتب عدد اللجان التي تبغاها في الخليه G4 في صفحة بيانات الطلبه

وستجد ان امام كل اسم رقم لجنته

لوجود معادلات خاصه بالعالم العلامه عبد الله باقشير

تضبط هذه العمليه

وقد جعلتها واضحه في الصفحه

حتى اضعها تحت الاضواء

ماعليك الا ان تنسخها وتضعها في ملفك في نفس الخلايا

اما اذا اردت تغيير مكانها فلك مطلق الحريه

*** اضغط على زر الزياده والنقصان

*** ثم زر استدعاء كشوف

=========

احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير

يكفي جملة

جزاكم الله خيرا

لجان كنترول مدرسي.rar

ahmed12345a · #2 24-10-2017, 12:16 PM

رابط اخر
http://gulfup.co/3cshpowij0st

ahmed12345a · #3 25-10-2017, 11:50 PM

========== الملف النهائي
لجان كنترول مدرسي1.rar

==========

ahmed12345a · #4 25-10-2017, 11:53 PM

كود بلغة HTML:

Sub طباعة_الكشوف() 'الكود للمحترم احمد كامل 'الهدف من الكود هو طباعه اللجان المدرسيه 'تم هذا الكود في اكتوبر 2017 '****************    Range("F1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 Legan_Test ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("E1").Value Range("b1").Select End Sub