جلب بيانات للعرض والطباعه

[نصر الإيمان]

بسم الله الرحمن الرحيم،،

وقل رب ذدني علما""

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

أريد مساعدتكم اخواني في هذا الملف من حيث استحضار البيانات للطباعه والعرض.. بحيث يتم عرض كل مجموعه ببياناتها حيث تتكون كل مجموعه من 6 طلاب

جلب بيانات للعرض والطباعه.rar

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

وعليكم السلام أخي الكريم

توهتني بمكان الخلية المطلوبة لكتابة رقم المجموعة

عموماً قم بكتابة رقم المجموعة في الخلية P1 في ورقة النتائج

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then
        Dim s As Worksheet
        Dim t As Worksheet
        Dim v As Variant
        Dim r As Long

        Set s = Sheets("تسجيل البيانات")
        Set t = Sheets("الكشوف النهائية")
        v = t.Range("P1").Value
        
        If Not IsNumeric(v) Or IsEmpty(v) Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub
        r = (v * 6) + 5

        t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value
    End If
End Sub

 

[نصر الإيمان]

جزاك الله خيرا اخي على الرد!!!!!

ولكن إلى الأن حاولت جاهدا في أن أستعمل الكود لكن لم استطع !!! وكل المحاولات ........................إممممممممممم.

رجاءا منك وفضلا وليس أمر !!! ممكن حضرتك تبسطها لي في الملف المرفق...

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

أخي الكريم الموضوع بسيط

اعمل كليك يمين على اسم ورقة العمل المسماة "الكشوف النهائية" .. واختر الأمر View Code .. وانسخ الكود من المشاركة (بس خلي اتجاه لغة الكتابة باللغة العربية عند النسخ) ، وبعدين روح للنافذة اللي اتفتحت والصق الكود وبس خلاص

الكود هيتنفذ بمجر وضع رقم في الخلية P1 في ورقة "الكشوف النهائية" ..

[نصر الإيمان]

فعلا أنا عملت ذلك من البدايه !!!!  لكن الأمر لم ينجح معي!!! لا أعرف وين الخلل؟؟؟؟

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

ارفق الملف الذي قمت بوضع الكود لمعرفة الخلل

[نصر الإيمان]

8 دقائق مضت, ياسر خليل أبو البراء said:

ارفق الملف الذي قمت بوضع الكود لمعرفة الخلل

 

جلب بيانات2.rar

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

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

في هذا السطر

If Target.Address = "$G$1" Then

استبدل حرف الـ G بحرف الـ P

أو يمكنك تجربة الكود كما هو وقم بإدخال رقم المجموعة في الخلية G1

[نصر الإيمان]

45 دقائق مضت, ياسر خليل أبو البراء said:

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

في هذا السطر

If Target.Address = "$G$1" Then

استبدل حرف الـ G بحرف الـ P

أو يمكنك تجربة الكود كما هو وقم بإدخال رقم المجموعة في الخلية G1

جزاك الله خيرا اخي الكريم...ورزقك من حيث لا تحتسب وبارك لك في علمك وزادك علما على علم... العمل تم بنجاح واسبدلت حرف G بحرف P

وبقى خطوه واحدة وهي استخدام المؤشر (أعلى وأسفل) بدلا من كتابة ارقام المجموعات في الخانه (P) ؟؟؟؟ ممكن مساعده في ذلك

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

اعمل كليك يمين على الأداة Spinner وستجد أمر Format Control وفي آخر تبويب ابدأ في التعامل .. وحدد الخلية المطلوب ربطها بالأداة Link Cell ...

[نصر الإيمان]

جزاك الله خيرا اخي

انا في حرج منك... من كثرة الأسئله..

قمت بربط الأداة بالخلية... والعمل تمام... والأرقام تتصاعد وتتنازل معي....لكن لابد من ادخال رقم الخليه يدوي حتي يتم احضار البيانات في الجدول...لا اعرف لماذا ؟؟؟

جلب بيانات3.rar

تم تعديل أغسطس 7, 2017 بواسطه نصر الإيمان
اضافة مرفقات

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

جرب اعمل كليك يمين على زر الـ Spin ثم Assign Macro ... وحول الماكرو الموجود لماكرو عادي في موديول عادي

امسح الماكرو الموجود في حدث ورقة العمل ، وضع الكود التالي في موديول .. واعمل كليك يمين Assign Macro واختر اسم الماكرو Test ... لربط الزر بتنفيذ الكود

Sub Test()
    Dim s As Worksheet
    Dim t As Worksheet
    Dim v As Variant
    Dim r As Long

    Set s = Sheets("تسجيل البيانات")
    Set t = Sheets("الكشوف النهائية")
    v = t.Range("P1").Value

    If Not IsNumeric(v) Or IsEmpty(v) Or v > 4 Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub
    r = (v * 6) + 5

    t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value
End Sub