برنامج مدرسة قرآنية

[أبو عبد الملك السوفي]

السلام عليكم

كيف حالكم اساتذتنا الكرام

لدي بنامج تسيير مدرسة قرآنية واريد منكم المساعدة فمن يتطوع لنسير خطوة خطوة جزاكم الله خيرا ونفع بكم

اول خطوة اريد كود يعمل عمل VLOOKUP في شيت معلومات تسجيل الطلبة فلما اكتب رقم القيد يجلب الكود المعلومات الموافقة من شيت سجل القيد

برنامج الدراسة2015-2016 جديد.rar

[أبو عبد الملك السوفي]

ونادى مناد هل من مجيب الى الندى *** فلم يجبه عند ذالك مجيب

فقلت ادعو اخرى وارفع الصوت ثانيا *** لعل ابي المغوار منك قريب

[ياسر خليل أبو البراء]

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

أود المساعدة لكن الملف حاسس إنه غريب ..

أقترح عليك استخدام الأكواد بحيث يكون حجم الملف أخف وأسرع في التعامل حيث لاحظت أن حجم الملف 1.8 رغم أن الملف لا يحتوي الكثير من البيانات

في ورقة العمل المسماة "معلومات تسجيل الطلبة" يوجد أعمدة ليس لها مردود في ورقة العمل المسماة "سجل القيد" أي ليس لها وجود فيها فهل ستترك فارغة ..

يرجى إعطاء بعض النتائج بشكل يدوي ولو نتيجة واحدة فقط ..

[أبو عبد الملك السوفي]

استاذ ياسر بارك الله فيك على الرد

الملف كبير لان فيه شيتات كثيرة مخفية تحتوي على دوال واريد تغييرها الى كودات لكن بدات بهذا الشيت

نعم صدقت استاذي اريد من الكود ان يجلب معلومات العود C D E G I فقط

هل هذا ممكن

[أبو عبد الملك السوفي]

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

جزيت الجنة ان شاء الله

[ياسر خليل أبو البراء]

أخي الكريم

أنا على استعداد لكن بشرط

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

وإن شاء الله تصل إلى ما تريد

فقط أنشيء مصنف جديد وانسخ البيانات فقط بدون المعادلات ..البيانات التي تعد بمثابة قاعدة البيانات لديك وقول يا رب

تقبل تحياتي

[أبو عبد الملك السوفي]

السلام عليكم

حسنا اتفقنا استاذ ياسر على بركة الله اذا.

سانشئ مصنف جديد ونبدأ خطوة خطوة .

بورك فيك ابا البراء

[علاء رسلان]

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

متابع لهذا الموضوع ان شاء الله .

[أسامة البراوى]

السلام عليكم

 

مؤقتا الى ان تظبط طلبات استاذ ياسر مرفق الدالة المطلوبة عسى ان تفيدك

 

 

 

 

برنامج الدراسة2015-2016 جديد.rar

[أبو عبد الملك السوفي]

السلام عليكم

اولا الشكر موصول للاخوة اسامة وعلاء

استاذ ياسر هذا هو الملف الجديد

وسنبدأ بشيت معلومات التسجيل لما اكتب رقم القيد يجلب الكود معلومات الاعمدة التالية C D E G I من شيت سجل القيد اما العمود A فهو ترقيم تلقائي

برنامج اللمدرسة القرآنية.rar

تم تعديل يونيو 1, 2015 بواسطه أبو عبد الملك السوفي

[ياسر خليل أبو البراء]

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

إليك الملف التالي

قم بالتجربة وإعطاء الملاحظات ..فيما يخص هذا الطلب وليس طلب جديد

أما لو طلب جديد اطرح موضوع جديد

 

لاحظ معي حجم الملف وتابع حجم الملف أولاً بأول (56.6 كيلو بايت)

Sub GetDataUsingFind()
    Dim shData As Worksheet, shRecord As Worksheet
    Dim Cell As Range
    Dim X As Long
    Set shData = Sheets("سجل القيد"): Set shRecord = Sheets("معلومات التسجيل")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        With shRecord
            .Range("A2:A1000,C2:E1000,G2:G1000,I2:I1000").ClearContents
            For Each Cell In .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
                If Not shData.Columns("B:B").Find(Cell) Is Nothing And Not IsEmpty(Cell) Then
                    X = Application.WorksheetFunction.Match(Cell, shData.Columns("B:B"), 0)
                    Cell.Offset(, -1) = Cell.Row - 1
                    Cell.Offset(, 1) = shData.Cells(X, "C")
                    Cell.Offset(, 2) = shData.Cells(X, "D")
                    Cell.Offset(, 3) = shData.Cells(X, "E")
                    Cell.Offset(, 5) = shData.Cells(X, "F")
                    Cell.Offset(, 7) = shData.Cells(X, "I")
                End If
            Next Cell
        End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Quran School V1.rar

[أبو عبد الملك السوفي]

السلام عليكم

استاذنا الغالي ابو البراء عمل ممتاز جدا هذا هو المطلوب

الخطوة الثانية ستكون صفحة التقرير الشهري

وسافتح موضوع جديد بعنوان: اتمام برنامج المدرسة القرآنية (صفحة التقرير الشهري)

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي ..

وإلى موضوع آخر ولكن الرجاء الصبر ..يعني لا تنزعج إذا تأخرنا عليك في الرد