اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

قام بنشر

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

قام بنشر

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

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

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

أخوك محمد

قام بنشر

السلام عليكم

أخي خير

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

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

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

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

قام بنشر

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

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

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

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

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

فان القسم 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

تم تعديل بواسطه خبور خير
قام بنشر

السلام عليكم

أخي الكريم taksmdz

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

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

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

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

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

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

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

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

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

أخوكم محمد

قام بنشر

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

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

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

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

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

My link

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

قام بنشر

السلام عليكم

أخي خبور

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

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

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

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

أخوك محمد

قام بنشر

السلام عليكم

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

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

قام بنشر

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

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

قام بنشر

السلام عليكم

أخي cat101

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

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

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

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

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

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

أخوك محمد

قام بنشر

السلام عليكم

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

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

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

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

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

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

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

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

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

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

قام بنشر

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

اخي cat101

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

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

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

أخوك محمد

كنترولي.rar

قام بنشر

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

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

شكرا شكرا

شكرا

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

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