إستدعاء قوائم التلاميذ

[dah_med]

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

إخواني أعضاء منتدنا الغالي

أريد مساعدة في التعديل على كود للأستاذنا الحبيب جبور

والمتمثل في إستدعاء قوائم التلاميذ حسب القسم

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

ترحيل القوائم.rar

[مصطفى كمال]

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

أخي الكريم تفضل الملف التالي

تمت إضافة الدالة vlook2all ، بواسطة VB من طرف بعض الإخوة، رجاء لا تنسى بالدعاء من ترجمها وطورها لنا بالمنتدى وخاصة والديه

الدالة تشبه في عملها الدالة RECHERCHE لكن بشكل جيد جدا

أرجو أن تحوز رضاك

[dah_med]

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

أخي الكريم مصطفى

جزاك الله كل خير على الرد وجميع إخوننا في المنتدى

الذين يبذلون ما في وسعهم لمساعدة الآخرين

لكن المرفق لا يظهر

[عبدالله باقشير]

السلام عليكم

تم التعديل على الكود ليتوافق مع طلبك

Sub kh_START()

Dim MyRange As Range

Dim R As Integer, N As Integer, M As Integer, C As Integer, CC As Integer

Set MyRange = Range("base")

kh_ClearContents

'عدد السطور الخارجة عن نطاق الاستدعاء

N = 6

Application.ScreenUpdating = False

With MyRange

    For R = 1 To .Rows.Count

        If .Cells(R, 1) = "" Then GoTo 1

        If .Cells(R, 6) = Range("E4") Then

            M = M + 1

            Cells(N + M, 1) = M

            For C = 1 To 6

                CC = Choose(C, 2, 3, 4, 5, 8, 10)

                Cells(N + M, C + 1) = .Cells(R, CC)

            Next C

        End If

1   Next R

End With

'تسطير الصفوف المحتوية على البيانات

With Range("A7:H" & N + M)

    .Borders.LineStyle = 2

End With

Application.ScreenUpdating = True

End Sub

تفضل المرفق

ترحيل القوائم1.rar

[خالد القدس]

السلام عليكم

فتح الله عليك استاذ خبور

أكواد عجيبة رهيبة

[dah_med]

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

أستاذي خبور جزاك الله كل خير

ومعذرة عن التأخر في الرد لأني كنت بعيدا عن المنزل

أخوك محمد

[dah_med]

السلام عليكم

أخي خير

إن الكود يعمل مع مستوى واحد فقط

أي مع 4م1 أما معا المستويات الأخرى فلا يستدعيها

جرب متلا 3 م 1 من القائمة المنسدلة

وجزاك الله خير أخوك محمد

[taksmdz]

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

جزاكم الله كل الخير وسدد خطاكم لمافيه الخير لقد تتلمذت على أيديكم

وأصبحت أفهم نوعا ما في الاكسال رغم سني المتقدمة وهذا بفضل مجهوداتكم

وصبركم علينا نحن الذين نحاول الفهم في مافاتنا من التعلم

أما تدخلي هذه المرة فيمايخص استدعاء الأقسام من القائمة المنسدلة

فان القسم 3م1 لم يكتب في القائمة الرئيسية بالشكل الصحيح

وأما طلبي فهو أن يكون الاستدعاء للقائمة حسب العمود القسم والعمود الصنف

أي ان نختار من العمودf مثلا 3 والعمود g مثلا 1 ولكم الشكر.

[عبدالله باقشير]

السلام عليكم

الاخ / محمد

جرب متلا 3 م 1 من القائمة المنسدلة

لا توجد بيانات لهذا المعيار في العمود f في بيانات النطاق base في مرفقك

-------------------------------------

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

وأما طلبي فهو أن يكون الاستدعاء للقائمة حسب العمود القسم والعمود الصنف

أي ان نختار من العمودf مثلا 3 والعمود g مثلا 1

غير سطر الشرط في الكود

If .Cells(R, 6) = Range("E4") And .Cells(R, 7) = Range("F4") Then

تم تعديل ديسمبر 28, 2009 بواسطه خبور خير

[dah_med]

السلام عليكم

أخي الكريم taksmdz

جزاك الله خيرا على الملاحظة

فقد نبهتني إلى الخطأ وهو أن القائمة المنسدلة كانت خلافا لما في العمودF

وذلك هو السبب الذي أدى لعدم إستدعاء المستويات الأخري

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

أما طلبك فيحققه كود أستاذنا الحبيب خبور خير

If .Cells(R, 6) = Range("E4") And .Cells(R, 7) = Range("F4") Then

بشرط أن تجعل العمودF للقسم والعمود G للصف

وتستدعي الأقسام في الورقة Liste في الخلية:E4 تكتب القسم وفي الخلية:G4 تكتب الصف

وجزا الله الجميع خيرا

أخوكم محمد

[مصطفى كمال]

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

بعد إذن الإخوة خاصة أستاذنا الكريم والكبير الأخ خبور

أخي الكريم تمتحميل الملف مرة أخرى مع بعض التغييرات

في تحديد القسم يجب تطابق اسم القسم في الورقة الأولى مع الورقة الثانية

لمزيد من المعلومات حول طريقة عمل الدالة vlool2all استعن بالرابط التالي

My link

ترحيل القوائم.rar

[dah_med]

السلام عليكم

أخي كمال جزاك الله خيرا على المرفق وعلى الرابط

[dah_med]

السلام عليكم

أخي خبور

أحتاج في الإمتحان أن أوزع التلاميد على أفواج

فهل يمكن عمل ماكرو ثاني لإستدعاء التلاميذ حسب الأفواج

ويكون مثلا من 1 إلى 25 بحيث أتحكم في الفوج حسب حجم القاعة

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

أخوك محمد

[taksmdz]

السلام عليكم

اخوتي خبور ومحمد جزاكم الله خيرا على تجاوبكم معي وعلى الكود

وسدد الله خطاكم لمافيه الخير. أخوكم TAKSMDZ.

[cat101]

اكواد مفيش احسن من كده

بس عايز اعرف ازاي اغير عمود F واخلي عمود ال P هو اللي هيتم الاستدعاء منه بدل عمود ال P

[dah_med]

السلام عليكم

أخي cat101

بعد إذن أستاذي خبور

غير فقط الرقم 6 في الكود التالي:If .Cells(R, 6) = Range("E4") Then

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

ففي الملف الخاص بي فالعمود:F يقع المكان6

والأفضل أخي إرفاق الملف حتي يكون العمل أكثر دقة

ومعذرة ثانية لأستاذي خبور خير

أخوك محمد

[عبدالله باقشير]

السلام عليكم

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

وان تستمر على هذا المنوال

بارك الله فيك

[dah_med]

السلام عليكم

أخي خبور لقد أ0حببت الإكسل من خلال اعمالك الرائعة

فالشىء الممتع في الإكسل هي خاصية البرمجة بالفيجول بسيك

رغم اني حاصل على تقني سامي في البرمجة بلغة دالفي

إلا أني من خلال أعمالك الرائعة وحبي للإكسل مند بداية تعليم

يدفعني للتعلم لغة البرمجة بالفوجول بسيك

فأرجو أن تصبر معنا

وأعلم أننا نحبك في الله وندعو لك

وننشر أعملك وأعمال أعضاء هذا المنتدى في بلدتنا

فجزا اله الجميع خيرا وسدد خطاهم لما يحب ويرضى

[سالم شباني]

السلام عليكم

أود المشاركة في الموضوع بهذين الملفين

الأول خاص بترحيل القوائم : http://www.4shared.com/file/185443875/fdff889/_online.html

الثاني خاص بقوائم الأفواج : http://www.4shared.com/file/185453972/ad192ead/__online.html

أرجو أن يكونا مفيدين

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

لكن انقطاع النت في كل مرة يحول دون ذلك

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

[cat101]

اريد تضبيط الكود العظيم ليتوافق مع العمل

ولكم جزيل الشكر

كنترولي.rar

[قصي]

جزاك الله خيرا استاذ خبور واستاذ سالم واستاذ محمد

والكل

[dah_med]

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

اخي cat101

لقد غيرت لك في الكود حسب فهمي لأنك لم توضح جيدا ما تريد

لقد غيرت في الكود لكي يستدعي لك الناجحون وكذلك أصحاب الدور الثاني

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

أخوك محمد

كنترولي.rar

[قصي]

أحسن الله اليك استاذ dah_med

وجزاك كل خير

كود كويس وعمل ممتاز

ممكن تشرحه لو سمحت

[saffaa]

شكرا شكرا شكرا شكرا

شكرا شكرا شكرا

شكرا شكرا

شكرا

ممكن خط الاطار الخارجي يكون اثقل والداخلي زي ماهو