اذهب الي المحتوي
أوفيسنا

برنامج المدرسة القرآنية(المنهج و الترحيل)


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

السلامن عليكم

هاته هي النقطة ما قبل الاخيرة في هاته الصفحة

اللنقطة ما قبل الاخيرة وهي المنهج في العمود U وتكون بالاعتماد على العمودين L وM  و الجدول منA الىD في صفحة المنهج حيث يكتب في عمود المنهج السطر 10 من بداية الحفظ

مثلا طالب بدأ من المجادلة 1 واذا رجعنا الى صفحة المنهج نجد رقمها في الجدول 221 فاذا حسبنا 10 اسطر انطلاقا من السطر 221 فسنقف في السطر رقم 230 اي الحديد3 (اي ان الطالب كان يفترض به ان يحفظ من المجادلة 1 الى الحديد 3 ).

مثلا طالب بدأ من المرسلات5 واذا رجعنا الى صفحة المنهج نجد رقمها في الجدول 111فاذا حسبنا 10 اسطر انطلاقا من السطر 111فسنقف في السطر رقم  120اي الانسان28(اي ان الطالب كان يفترض به ان يحفظ من المرسلات5 الى الانسان28)

 

.مثلا طالب بدأ من الواقعة16 واذا رجعنا الى صفحة المنهج نجد رقمها في الجدول 246فاذا حسبنا 10 اسطر انطلاقا من السطر  246فسنقف في السطر رقم 255 اي الرحمن16(اي ان الطالب كان يفترض به ان يحفظ من الواقعة16الى الرحمن16)

وهكذا

Quran School V7.rar

تم تعديل بواسطه أبو عبد الملك السوفي
رابط هذا التعليق
شارك

أخي الكريم أبو عبد الملك

عذراً للتأخر

 

بالنسبة للمثال الأول : مثلا طالب بدأ من المجادلة 1 واذا رجعنا الى صفحة المنهج نجد رقمها في الجدول 221 فاذا حسبنا 10 اسطر انطلاقا من السطر 221 فسنقف في السطر رقم 230 اي الحديد3 (اي ان الطالب كان يفترض به ان يحفظ من المجادلة 1 الى الحديد 3 ).

لما راجعت المثال الثاني والثالث وجدت اختلاف

 

إذاً المثال الأول غير دقيق في وصه حيث يجب ان تكون السورة هي المجادلة 22 في الصف رقم 230

 

يرجى التأكيد على ما فهمته

رابط هذا التعليق
شارك

راجع المدخلات في العمود L و M

المجادلة 1

المرسلات 5

الناس 2

الحديد 20

الإخلاص 1

النبأ 1

الحشر 14

المجادلة 1

المجادلة 1

الحشر 14

 

هل هذه هي النتائج المتوقعة أم لا؟

 

المجادلة 22

الانسان 28

الكوثر 3

الواقعة 48

الفيل 3

النبأ 40

المجادلة 11

المجادلة 22

المجادلة 22

المجادلة 11

 

أرجو التأكد قبل العمل

رابط هذا التعليق
شارك

السلام عليكم

آسف استاذ ياسر عن الازعاج ارجوا ان تتحملي واجرك على الله

بالفعل المثال اللاول في خطا والصحيح كما وصفت

النتائج المتوقعة كما وصفت استاذ ياسر

رابط هذا التعليق
شارك

أخي أبو عبد الملك

تعرف أن التوضيح هااااام جداً حتى لا يطول الكلام وتطول المحاولات ويضيع الوقت

إليك الملف المرفق ورجاءً الدقة في التوضيح ..لأن كل كلمة تكتبها أقرأها أكثر من مرة للتأكيد قبل العمل

حجم الملف 107 كيلو بايت

Quran School V7.rar

رابط هذا التعليق
شارك

السلام عليكم

بورك فيك استاذ ياسر تمام مائة بالمائة

بالفعل ابا البراء المعطيات الصحيحة تساوي نتائج صحيحة

استاذنك في الانتقال للمرحلة الاخيرة في هاته الصفحة

الا وهي الترحيل

اريد كود مستقثل يرحل كل البيانات من صفحة التقرير الشهري الى صفحة مجمع النتائج الشهرية وقبل الترحيل يخيرك هل تريد الترحيل فعلا نعم او لا وبعد الترحيل يمسح كل البيانات في صفحة التقرير الشهري

و عندما اقوم بعملية ترحيل اخرى من صفحة التقرير الشهري الى صفحة مجمع النتائج الشهرية  البيانات الجديدة المرحلة تكون تحت القديمة مباشرة

وهكذا

وشيئ آخر استاذ ياسر اذا كانت هناك معطيات ناقصة في صفحة التقرير الشهري الكود يخبرك ان المعطيات ناقصة ويجب اكمالها قبل مواصلة عملية الترحيل

Quran School V7.rar

تم تعديل بواسطه أبو عبد الملك السوفي
رابط هذا التعليق
شارك

ما هي المعطيات الناقصة في ورقة العمل "التقرير الشهري" ..؟ لأن هناك بعض الأعمدة لم يتم العمل عليها بعد ..حدد المعطيات بكل دقة

واعذرني لأنني يبدو أنني لن أكمل معك حيث أنني سأسافر لبضعة أسابيع

إن شاء الله أحد الاخوة يكمل معك المشوار ..

الحمد لله وصلنا لمرحلة لا بأس بها .. أعتقد تعدت نسبة الـ 50%

 

تقبل تحياتي

رابط هذا التعليق
شارك

السلام عليكم

الحمد لله تم الانتهاء من كل العمليات الخاصة بالصفحة والاعمدة الباقية يتم الادخال فيها يدويا

اي انه لا يجب ان تكون هناك اي خانة فارغة مثلا السطر 3 كل المعلومات مكتوبة الا اختبار الحفظ او المخالفات او الاشتراك غير مكتوبة فلا يتم الترحيل الا بعد استكمال البيانات

اقصد انه لا يتم ترحيل اي بيانات الا بعد استكمال كل البيانات

نسال الله ان تذهب وتعود لنا سالما غانما في اقرب وقت ان شاء الله

نعم مشينا مشوارا لا باس به

لكن مازالت هناك صفحات اخرى مهمة

اسف ان كنت اثقلت عليك استاذ ياسر

  • Like 1
رابط هذا التعليق
شارك

أخي الكريم أبو عبد الملك

يكفي لهذا الموضوع هذه المشاركة الأخيرة

إليك الملف التالي عله يفي بالغرض

Sub TransferData()
    Dim WS As Worksheet, SH As Worksheet
    Dim LR_WS As Long, LR_SH As Long
    Dim Answer As Long, X As Long
    
    Set WS = Sheets("التقرير الشهري"): Set SH = Sheets("مجمع النتائج الشهرية")
    LR_WS = WS.Cells(Rows.Count, 1).End(3).Row
    LR_SH = SH.Cells(Rows.Count, 1).End(3).Row + 1
    X = LR_WS - 1
    
    Application.ScreenUpdating = False
    
        Answer = MsgBox("هل أنت متأكد من ترحيل البيانات من ورقة التقرير الشهري إلى ورقة مجمع النتائج الشهرية؟", vbInformation + vbMsgBoxRight + vbYesNo)
        If Answer = vbYes Then
            If Application.WorksheetFunction.CountA(WS.Range("A2:V" & LR_WS)) < (22 * X) Then MsgBox "المعطيات ناقصة ويجب إكمالها قبل مواصلة عملية الترحيل", vbInformation + vbMsgBoxRight: Exit Sub
            WS.Range("A2:W" & LR_WS).Copy SH.Range("A" & LR_SH)
            
            With SH.Range("A2:A" & SH.Cells(Rows.Count, 1).End(3).Row)
                .Formula = "=ROW()-1": .Value = .Value
            End With
        Else
            MsgBox "لقد تم إلغاء عملية الترحيل", vbInformation + vbMsgBoxRight
        End If
        
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

قم بتجربة الكود أكثر من مرة .. وقم بمسح ولو خلية واحدة في ورقة العمل المسماة "التقرير الشهري" وشاهد النتائج بنفسك .. لابد من أن تكون كل الخلايا لحد العمود V بها بيانات وإلا لن ينفذ كود الترحيل ..

أتركك مع الملف للتجربة

Quran School V8.rar

رابط هذا التعليق
شارك

السلام عليكم

عذرا استاذ ياسر هناك بعض النقائص في الكود

اولا الكود لا بد ان يمسح البيانات من صفحة التقرير الشهري بعد تاكيد الترحيل

ثانيا يجب ان يرحل الرقم (العمودA)من صفحة التقرير الشهري كما هو الى صفحة مجمع النتائج الشهرية

لاني قمت بترحيلين فرايت الكود يجعل الرقم  في صفحة مجمع النتائج الشهرية ترتيب تلقائي

مثلا اذا رحلت الطالب رقم 1 يبقى رقمه 1

اذا ادخلت بيانات اخرى ورحلت نفس الطالب يبقى رقمه 1 وليس يتغير الى 2

تم تعديل بواسطه أبو عبد الملك السوفي
رابط هذا التعليق
شارك

السلام عليكم أخي وحبيبي في الله أبو البراء:

إن ما كان يشغلك يستحق الجهد والعناء وقد أجدت بحول الله وقوته بإنجاز قسط كبير من هذا العمل الذي نرجو الله تعالى

أن يجعله بميزان حسناتكم أنتم والقائمين على هذه المدرسة الكريمة .كما أرجو أن تلفت انتباه السادة المطورين الكرام إلى بحثي

الأستاذ الكريم أحمد الرشيدي الذي نفد صبره - كما رأيت قبلاً - ثم إنني أدعو لك الله تعالى أن يزودك البر والتقوى وأن يرجعك من سفرك هذا سالماً غانماً

و ها أنذا أزودك بخير كلام قيل في السفر :((اللهُ أكْبَرُ، اللهُ أكْبَرُ، اللهُ أكْبَرُ، سُبْحَانَ الَّذِي سَخَّرَ لَنَا هَذَا وَمَا كُنَّا لَهُ مُقْرِنِينَ * وَإِنَّا إِلَى رَبِّنَا لَـمُنْقَلِبُونَاللَّهُمَّ إنَّا نَسْأَلُكَ فِي سَفَرِنَا هَذَا البِرَّ والتَّقْوى، ومِنَ العَمَلِ مَا تَرْضَى، اللَّهُمَّ هَوِّنْ عَلَيْنَا سَفَرَنَا هَذَا وَاطْوِ عَنَّا بُعْدَهُ، اللَّهُمَّ أنْتَ الصَّاحِبُ فِي السَّفَرِ، والخَلِيفَةُ فِي الأهْلِ، اللَّهُمَّ إنِّي أعُوذُ بِكَ مِنْ وَعْثَاءِ السَّفَرِ، وَكآبَةِ الـمَنْظَرِ، وسُوءِ الـمُنْقَلَبِ فِي الـمَالِ والأهْلِ))، وإذَا رَجَعَ قَالَهُنَّ وزَادَ فِيهِنَّ: ((آيبُونَ، تَائِبُونَ، عَابِدُونَ، لِرَبِّنَا حَامِدُونَ))([1]).

والسلام عليكم ورحمة الله وبركاته..

المحب لكم أبو يوسف.

  • Like 2
رابط هذا التعليق
شارك

  • أفضل إجابة

أخي الحبيب وأبي الروحي أبو يوسف

بارك الله فيك وجزاك الله خير الجزاء على كلماتك المسطرة من ذهب ، لديك قدرة عجيبة على صياغة الألفاظ ، أرى في كلامك فصاحة وطلاقة وبلاغة منقطعة النظير .. بارك الله فيك

 

أخي الفاضل أبو عبد الملك

اعتقدت أن العمود الأول هو أرقام مسلسلة فقمت بإضافة هذا الجزء لأن الرقم هنا يفترض أن يكون أرقام مسلسلة (عموماً قمت بحذف هذا الجزء)

وتمت إضافة رسالة لتأكيد الحذف من عدمه .. كما تمت إضافة جزئية هامة وهي لو أنه لا توجد بيانات لا تتم عملية الترحيل ..

 

يرجى تحديد أفضل إجابة وإخبارنا بنسبة الإنجاز الذي تم للآن ..

واطرح موضوع جديد بطلباتك الجديدة وإن شاء الله تجد المساعدة من الأخوة الكرام

 

تقبلوا تحياتي

Quran School V8.rar

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information