ابراهيم الحداد قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 السلام عليكم ورحمة الله اخوتى واحبتى فى الله اعضاء منتدانا العظيم بناسبة قرب حلول امتحانات نصف العام اليكم شيت كنترول للصف الثانى التجارى حيث تلاحظ قلة الاعمال التى تهتم بكنترولات التعليم التجارى يحتوى الشيت على اربع شعب فقط و هى التى على دراية بها ارجو ان ينال اعجاب من يبحثون عن هذا العمل و انا على استعداد للاجابة على كافة الاستفسارات بقدر المستطاع وكل عام وانتم بخير ثانية - ت.rar
ناصر سعيد قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 ربنا يحفظك ويصونك اخي الكريم استاذ زيزو العحوز
ناصر سعيد قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 ======== حقا انه كنز يحتوي على العديد من الاكواد غير العاديه ... جعل الله هذا العمل في كفه حسناتك ========================== أخي الغالي إن شاء الله سيعدك الله .. وما علينا إلا أن نزرع أما الحصاد فبالتأكيد له أوانه .. افعل ما يجب عليك فعله فلربما يأتي اليوم الذي يحتاج إليه - ( أناس اليوم واناس آخرون ) - ما نقدمه .. فيتركوا لنا دعوة بظهر الغيب ..وما أجملها من دعوة من شخص لا تعرفه في زمان لا تعرفه في وقت وأجل لا تعرفه ، ومن يدري لعلها تخفف عنا تقبلوا وافر تقديري واحترامي جمل نادره .. ربنا يحفظك
ناصر سعيد قام بنشر ديسمبر 18, 2017 قام بنشر ديسمبر 18, 2017 جزاك الله كل خير استاذ زيزو Sub RangLY() ' كود شهادات آخر العام لجميع الشعب Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant Dim x, y, z, r, s As Long Set ws = Sheets("شهادة آخر العام") Set sh = Sheets(ws.Range("X2").Value) Application.ScreenUpdating = False Call SubjectsNames3 Call RemovShp Arr = Array(10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 59, 60, 64, 68) y = 9 + (ws.Range("T1").Value - 1) * 3 + 1 z = 9 + ws.Range("T1").Value * 3 s = 11 For r = y To z For x = LBound(Arr) To UBound(Arr) ws.Cells(s, x + 6) = sh.Cells(r, Arr(x)) ws.Cells(s - 5, 19) = sh.Cells(r, 4) ws.Cells(s - 4, 6) = sh.Cells(r, 3) ws.Cells(s - 4, 19) = sh.Cells(r, 2) ws.Cells(s - 5, 14) = ws.Cells(2, 24) ws.Cells(s + 1, 6) = sh.Cells(r, 69) & " : " & sh.Cells(r, 70) Next s = s + 11 Next Call Crl_Shp Application.ScreenUpdating = True End Sub ارجو شرح هذا الكود ... جزاكم الله كل خير
ناصر سعيد قام بنشر ديسمبر 19, 2017 قام بنشر ديسمبر 19, 2017 ان شاء الله سافرد لكل شرح موضوعا منفصلا يستفيد منه الجميع
maha hassanin قام بنشر ديسمبر 19, 2017 قام بنشر ديسمبر 19, 2017 38 minutes ago, ناصر سعيد said: ان شاء الله سافرد لكل شرح موضوعا منفصلا يستفيد منه الجميع هل ممكن كنترول شيت عبد البارى البنا اعدادى مضاف اليه اللغة الفرنسية مع جزيل الشكر
ناصر سعيد قام بنشر ديسمبر 19, 2017 قام بنشر ديسمبر 19, 2017 اللغه الفرنسيه ..اصبحت نشاط اختيارى للجمهوريه كلها
ابراهيم الحداد قام بنشر ديسمبر 19, 2017 الكاتب قام بنشر ديسمبر 19, 2017 السلام عليكم ورحمة الله اخى الكريم / ناصر اليك شرح الكود كما طلبت Sub RangLY() ' كود شهادات آخر العام لجميع الشعب Dim ws As Worksheet, sh As Worksheet 'الشيتات التى سيتم العمل عليها Dim Arr As Variant 'مصفوفة لاعمدة الدرجات Dim x, y, z, r, s As Long ' متغيرات للتحكم فى عدد الشهادات التى ينطبق عليها الشرط Set ws = Sheets("شهادة آخر العام") 'تعريف الشيت الاول Set sh = Sheets(ws.Range("X2").Value) حيث القائمة المنسدلة التى تحوى 4 شيتات ("X2") الشيت الثانى يتم تحديد كما فى الخلية المذكورة Application.ScreenUpdating = False ' استدعاء اسماء المواد حيث تختلف من شعبة الى اخرى Call SubjectsNames3 ' مسح الدوائر حال وجودها للحاصلين على ملاحق Call RemovShp مصفوفة اعمدة الدرجات Arr = Array(10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 59, 60, 64, 68) ' بداية العد من الشهادات المطلوب عرضها y = 9 + (ws.Range("T1").Value - 1) * 3 + 1 ' ترتيب آخر شهادة مطلوب عرضها z = 9 + ws.Range("T1").Value * 3 ' اول سطر يحتوى بيانات s = 11 النطاق الذى سيتم العمل عليه فى الشيتات المقصودة For r = y To z ' نطاق الاعمدة المحددة بالمصفوفة For x = LBound(Arr) To UBound(Arr) ' استدعاء درجات الشهادة ws.Cells(s, x + 6) = sh.Cells(r, Arr(x)) ' الاوامر التالية لاستدعاء اسم الطالب ورقم جلوسه وفصله وشعبته و المواد الراسب فيها اذا كان راسبا ws.Cells(s - 5, 19) = sh.Cells(r, 4) ws.Cells(s - 4, 6) = sh.Cells(r, 3) ws.Cells(s - 4, 19) = sh.Cells(r, 2) ws.Cells(s - 5, 14) = ws.Cells(2, 24) ws.Cells(s + 1, 6) = sh.Cells(r, 69) & " : " & sh.Cells(r, 70) Next ' تكرار تنفيذ الامر بعد 11 صف حتى آخر شهادة بالورقة s = s + 11 Next ' استدعاء كود رسم الدوائر لطالب الملاحق Call Crl_Shp Application.ScreenUpdating = True End Sub
ناصر سعيد قام بنشر ديسمبر 19, 2017 قام بنشر ديسمبر 19, 2017 اولا وقبل اي شيء ادعو لك الله ان يغفر لي ولك وان يمدك بالصحه والعافيه ... وبعد : في البرنامج كيف تتم عمليه الرصد ؟ في الكود السابق لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟ هذا ملف به الكود السابق ارجو تفعيله 1شهادات استاذ زيزو.rar
ناصر سعيد قام بنشر ديسمبر 20, 2017 قام بنشر ديسمبر 20, 2017 وضعت في هذا المرفق كودكم الرائع بشرح الكود وصفحه الشهادات وارجو تفعيل الكود بهذا المرفق .. كرما منكم شهادات استاذ زيزو2.rar
ناصر سعيد قام بنشر ديسمبر 21, 2017 قام بنشر ديسمبر 21, 2017 في 12/20/2017 at 01:35, ناصر سعيد said: اولا وقبل اي شيء ادعو لك الله ان يغفر لي ولك وان يمدك بالصحه والعافيه ... وبعد : في البرنامج كيف تتم عمليه الرصد ؟ في الكود السابق لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟ هذا ملف به الكود السابق ارجو تفعيله 1شهادات استاذ زيزو.rar لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟
ناصر سعيد قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 المحترم استاذ زيزو اولا جزاك الله خيرا ... وبعد ارجو ان تشرح كيف تتم عمليه رصد الدرجات في البرنامج واين ؟ اجد صفحه عنوانها رصد الدرجات .. ولكن لا ارى بها اسماء الطلبه ولاارقام جلوسهم ولا الارقام السريه ولا درجاتهم حتى يتم الاستفاده من هذا العمل الاكثر من رائع يجب ان تشرح كيفيه استعمال هذا البرنامج
ناصر سعيد قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 23 ساعات مضت, ناصر سعيد said: المحترم استاذ زيزو اولا جزاك الله خيرا ... وبعد ارجو ان تشرح كيف تتم عمليه رصد الدرجات في البرنامج واين ؟ اجد صفحه عنوانها رصد الدرجات .. ولكن لا ارى بها اسماء الطلبه ولاارقام جلوسهم ولا الارقام السريه ولا درجاتهم حتى يتم الاستفاده من هذا العمل الاكثر من رائع يجب ان تشرح كيفيه استعمال هذا البرنامج المحترم استاذ زيزو لماذا لم تجبني على هذا السؤال ؟ اين تتم عمليه الرصد في البرنامج ؟
ابراهيم الحداد قام بنشر ديسمبر 24, 2017 الكاتب قام بنشر ديسمبر 24, 2017 السلام عليكم ورحمة الله اخى الحبيب ناصر لا اخفيك سرا ان العمل فى التعليم العام يختلف تماما عن التعليم الفنى سوف تلاحظ اختلافا كبير بين الشيت الخاص بمدارس التعليم الفنى والتعليم العام على كافة الاصعدة على سبيل المثال لا الحصر , الرصد يتم فى شيت الشعبة مباشرة و لا يتم التسجيل فى صفحة خاصة بالرصد ثم يتم الترحيل كما هو الحال فى التعليم العام سوف تلاحظ عدم ادراج البيانات الخاصة بتاريخ ميلاد الطالب او عمر الطالب فى سن معين ............... وهكذا دواليك و عذرا على تأخير الرد ودمتم فى رعاية الله
ناصر سعيد قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 1 ساعه مضت, زيزو العجوز said: السلام عليكم ورحمة الله اخى الحبيب ناصر لا اخفيك سرا ان العمل فى التعليم العام يختلف تماما عن التعليم الفنى سوف تلاحظ اختلافا كبير بين الشيت الخاص بمدارس التعليم الفنى والتعليم العام على كافة الاصعدة على سبيل المثال لا الحصر , الرصد يتم فى شيت الشعبة مباشرة و لا يتم التسجيل فى صفحة خاصة بالرصد ثم يتم الترحيل كما هو الحال فى التعليم العام سوف تلاحظ عدم ادراج البيانات الخاصة بتاريخ ميلاد الطالب او عمر الطالب فى سن معين ............... وهكذا دواليك و عذرا على تأخير الرد ودمتم فى رعاية الله الرصد يتم فى شيت الشعبة مباشرة ... واين هذا الشيت من فضلك ؟
ابراهيم الحداد قام بنشر ديسمبر 24, 2017 الكاتب قام بنشر ديسمبر 24, 2017 السلام عليكم ورحمة الله اخى الحبيب ناصر اذهب الى الصفحة الرئيسية اذا ارت الرصد فى شعبة الادارة اضغط زر شعبة الادارة اما اذا اردت اى شعبة من الشعب اضغط الزر الذى يحمل اسم الشعبة ويمكنك اخفاؤهما مرة اخرى من زر اخفاء توجد ايضا ورقة لوضع الارقام السرية بها جدول مخصص لكل شعبة ضع الارقام التى تريدها ثم اضغط لترحيلها الى ذات الشعبة توجد مزايا اخرى للشيت يمنكنك التعرف عليها جميعا بشئ من الصبر و الاصرار الذى احييك عليه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.