بوابة الثانوية العامة المصرية

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)
-   منتدى أعمال الامتحانات (https://www.thanwya.com/vb/forumdisplay.php?f=21)
-   -   عمل اللجان المدرسيه 1 (https://www.thanwya.com/vb/showthread.php?t=734408)

ahmed12345a 24-10-2017 12:15 PM

عمل اللجان المدرسيه 1
 
بسم الله الرحمن الرحيم
احبابنا في الله
ادعو الله ان تكونوا بخير يارب
هذا ملف به كود خاص باخراج كشوف لجان الطلاب المدرسيه بالمصفوفات وما أسهله وما أسرعه
طريقه الاستفاده من هذا الملف
افتح هذا الملف
اضغط على زر ALT وانت ماتزال ضاغط
اضغط على F11
سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد
دبل كليك على الموديول المعنون Legan_Test
ثم اضغط من لوحة المفاتيح على ALT +SHEFT
لتكون اللغه هي العربيه
منعا لظهور اللغه العربيه بشكل طلاسم
اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A
لتحديد الكود كله
ثم CTRL+C ليتم النسخ
=====
** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا
** ومن قائمه محرر الاكواد التي فتحت امامك
** اختر Insert واختر منها Module
** ثم ضع المؤشر في Module
** والصق الكود
==========
اكتب عدد اللجان التي تبغاها في الخليه G4 في صفحة بيانات الطلبه
وستجد ان امام كل اسم رقم لجنته
لوجود معادلات خاصه بالعالم العلامه عبد الله باقشير
تضبط هذه العمليه
وقد جعلتها واضحه في الصفحه
حتى اضعها تحت الاضواء
ماعليك الا ان تنسخها وتضعها في ملفك في نفس الخلايا
اما اذا اردت تغيير مكانها فلك مطلق الحريه
*** اضغط على زر الزياده والنقصان
*** ثم زر استدعاء كشوف
=========
احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير
يكفي جملة
جزاكم الله خيرا
لجان كنترول مدرسي.rar

ahmed12345a 24-10-2017 12:16 PM

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

ahmed12345a 25-10-2017 11:50 PM

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




==========

ahmed12345a 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

ahmed12345a 25-10-2017 11:54 PM

ماسبق هو كود الطباعه .

ahmed12345a 28-10-2017 11:38 PM

جزى الله
كل من كانت له بصمه
في هذا العمل
بالخير

ahmed12345a 08-11-2017 09:01 AM

جزى الله
كل من كانت له بصمه
في هذا العمل
بالخير

الملف النهائي

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



ahmed12345a 11-11-2017 03:34 PM

رحمنا الله واياكم

ahmed12345a 17-11-2017 11:51 PM

رحمنا الله واياكم
يعمل الملف على اكسيل 2010

ahmed12345a 08-12-2017 07:37 PM

رحمنا الله واياكم

ahmed12345a 10-01-2018 01:25 PM

بارك الله لكم


جميع الأوقات بتوقيت GMT +2. الساعة الآن 08:29 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.