أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اعضاء المنتدى الكرام درس جديد وفيديو جديد من درورس دورة اليوزرفور ..



28-11-2017 01:58 صباحا
emad ghazi
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 124
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 4
يتابعهم : 5
يتابعونه : 545
قوة السمعة : 1736
 offline 

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



توقيع :emad ghazi
الحمد لله الذى بنعمتة تتم الصالحات
اللهم اجعل عملى كلة صالحا واجعله لوجهك خالصا ولا تجعل لاحد غيرك فيه شيئا
راسمالك علمك     وعدوك جهلك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 


28-11-2017 07:52 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP

جزاكم الله خيرا يا عمده 142


توقيع :الصقر

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


28-11-2017 08:11 صباحا
مشاهدة مشاركة منفردة [2]
karwan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 200
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 7
يتابعونه : 7
قوة السمعة : 244
 offline 
look/images/icons/i1.gif البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP
جزاكم الله خيراً 

28-11-2017 11:03 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP
جزاك الله  خيرا استاذ عماد
 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

29-11-2017 06:52 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP
جزاك الله خيراً أخي الغالي عماد وجعل الله ما تقدمه في ميزان حسناتك يوم القيامة
يرجى وضع رابط الملف في الموضوع ها هنا لتمام الاستفادة

29-11-2017 07:02 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif البحث من خلالCOMBOBOX واظهار النتائج فى TEXTBOX بدون استخدام الدالة VLOOKUP
إثراءً للموضوع أخي العزيز عماد
بدلاً من الحلقات التكرارية التي قد تستغرق وقت طويل في حالة وجود بيانات كثيرة بورقة العمل يمكن استخدام الدالة Match للحصول على رقم الصف ، وبهذا تحقق الهدف أيضاً
جرب الكود التالي 
Private Sub ComboBox1_Change()
    Dim ws      As Worksheet
    Dim x       As Variant
    Dim lr      As Long
    Dim i       As Long

    Set ws = Sheets("sheet1")
    lr = ws.Range("A" & Rows.Count).End(xlUp).Row

    x = Application.Match(Val(Me.ComboBox1.Value), ws.Columns(1), 0)
    If Not IsError(x) Then
        For i = 1 To 6
            Me.Controls("TextBox" & i) = ws.Cells(x, i + 1)
        Next i
    End If
End Sub




الكلمات الدلالية
واظهار ، خلالCOMBOBOX ، البحث ، النتائج ، TEXTBOX ، بدون ، استخدام ، الدالة ، VLOOKUP ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:24 صباحا