معرفة بيانات المتدرب من خلال إدخال الرقم

[alhosni494]

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

أتمنى المساعدة في إيجاد الحل لعملي هذا

المطلوب :

1. عند إدخال رقم المتدرب تظهر كافة البيانات المتعلقة به في كشف البيانات.

2. في ورقة ( الولايات) أريد معرفة عدد المتدربين من كل ولاية والموجودين في جميع التخصصات الموجودة.

ولكم وافر الشكر والتقدير

ملف البيانات المطلوب تعديله موجود هنا

تم تعديل أكتوبر 21, 2006 بواسطه alhosni494

[علي السحيب]

تم إضافة جميع التعديلات المطلوبة ..

والصيغة التالية هي لإستخراج بيانات المتدربين من ثلاث جدوال متفرقة:

=IF(AND(ISNA(VLOOKUP($B$1,الإلكترونيات!essai,2,0)),ISNA(VLOOKUP($B$1,تمديدات!essai,2,0)),ISNA(VLOOKUP($B$1,تركيبات!essai,2,0))),"لا يوجد بيانات تحت هذا الرقم",IF(AND(ISNA(VLOOKUP($B$1,الإلكترونيات!essai,2,0)),ISNA(VLOOKUP($B$1,تمديدات!essai,2,0))),VLOOKUP($B$1,تركيبات!essai,2,0),IF(AND(ISNA(VLOOKUP($B$1,تركيبات!essai,2,0)),ISNA(VLOOKUP($B$1,تمديدات!essai,2,0))),VLOOKUP($B$1,الإلكترونيات!essai,2,0),IF(AND(ISNA(VLOOKUP($B$1,تركيبات!essai,2,0)),ISNA(VLOOKUP($B$1,الإلكترونيات!essai,2,0))),VLOOKUP($B$1,تمديدات!essai,2,0)))))

أما الصيغة التالية فهي لإستخراج عدد المتدربين في كل ولاية من ثلاث جدوال متفرقة:

=COUNTIF(الإلكترونيات!$H$12:$H$33,الولايات!B13)+COUNTIF(تمديدات!$H$7:$H$36,الولايات!B13)+COUNTIF(تركيبات!$H$13:$H$39,الولايات!B13)

شاهد المرفق،

______.rar

تم تعديل أكتوبر 22, 2006 بواسطه علي السحيب

[skyblue]

استاذنا الفاضل : الاستاذ علي السحيب كل عام وانت بخير وعيدكم مبارك .

اخوي علي مرفق لسعادتكم ملف شبيه بالملف اللي قمت بالتعديل عليه وهو جلب البيانات من ثلاث جداول وكان عن طريق معادلات ... ياليت ان تتكرم بالاطلاع على ملفي وجعل جلب المعلومات يكون عن طريق الكود .

[علي السحيب]

الكود التالي ينفذ لك ما تريد:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Address = "$E$4" Then

[E5:E12] = "لا يوجد بيانات"

[E5] = Application.WorksheetFunction.VLookup([E4], Sheet2.[D4:H14], 2, 0)
[E6] = Application.WorksheetFunction.VLookup([E4], Sheet2.[D4:H14], 3, 0)
[E7] = Application.WorksheetFunction.VLookup([E4], Sheet2.[D4:H14], 4, 0)
[E8] = Application.WorksheetFunction.VLookup([E4], Sheet2.[D4:H14], 5, 0)
[E9] = Application.WorksheetFunction.VLookup([E4], Sheet3.[F5:H14], 2, 0)
[E10] = Application.WorksheetFunction.VLookup([E4], Sheet3.[F5:H14], 3, 0)
[E11] = Application.WorksheetFunction.VLookup([E4], Sheet4.[B6:E15], 3, 0)
[E12] = Application.WorksheetFunction.VLookup([E4], Sheet4.[B4:E15], 4, 0)
[E4].Select

End If
End Sub

شاهد المرفق،

___________________________________________.rar

[alhosni494]

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

لقد وفرت علي الكثير من العناء والتفكير وأفدتني كثيراً وكذلك أفدتني بمعلومه

أتمنى من الله العلي القدير أن يثيبك بها الكثير من الأجر والثواب.

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

لأجل الإستزاده منك يا أستاذي.

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

لأرفع لك أسمى آيات التهاني والتبريكات وأتمنى من الله العلي القدير أن يعيده عليك

وعلينا أعواماً عديده ومديده وأنت تنعم بوافر الصحة والعافية وكل عام وانت بألف خير.

[alhosni494]

________________.rarأستاذي / علي السحيب

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

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

وأتمنى أن تشرح لي خطوة بخطوة كيفية وضع الصيغ ولك وافر تحياتي.

[علي السحيب]

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

شاهد المرفق،

________________.rar

[skyblue]

ربي يحفظك يااخ علي رد رائع .

[alhosni494]

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

فإجابة مشرفنا على السؤال جاءت بصورة سهلة وميسره بدون أي تعقيد

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

((((((((((( علي السحيب ))))))))

[alhosni494]

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

أخي العزيز وأستاذي علي السحيب ممكن خدمه ثانية إذا تكرمت وذلك للإستفادة من معلوماتك الطيبة وطلبي هذه المرة

يتعلق بنفس الموضوع ولكن الوضع يختلف وهو هل أستطيع البحث عن طريق رقم البطاقة الشخصية أو عن طريق رقم الهاتف؟

أتمنى أن يكون البحث مشترك مثل النموذج السابق( البحث عن طريق رقم المتدرب).

لك وافر تحياتي

________________.rar

تم تعديل أكتوبر 25, 2006 بواسطه alhosni494

[علي السحيب]

شاهد المرفق،

________________.rar

[alhosni494]

مشكور أستاذي العزيز علي السحيب وجزاك الله ألف خير

وعسى ربي ما يحرمنا منك إن شاء الله

لك وافر تحياتي

[نزار سليمان عيد]

الاخ ابا حسين

لو اردت عمل combo box كيف اضع البيانات داخله

وشكرا

[علي السحيب]

راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=13038