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

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

قام بنشر

السلام عليكم

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

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

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

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

قام بنشر

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

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

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

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

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

قام بنشر

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

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

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

هل هذا ممكن

قام بنشر

أخي الكريم

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

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

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

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

تقبل تحياتي

قام بنشر (معدل)

السلام عليكم

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

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

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

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

تم تعديل بواسطه أبو عبد الملك السوفي
  • تمت الإجابة
قام بنشر

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

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

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

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

 

لاحظ معي حجم الملف وتابع حجم الملف أولاً بأول (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

  • Like 1
قام بنشر

السلام عليكم

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

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

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

  • Like 1
قام بنشر

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

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

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

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