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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





مساعدة في كود للدالة vlookup

السلام عليكم المطلوب عند تشغيل اليوزرفورم ووضع بيان في التيكست بوكس 2 بناء على بيان ورقة 2 في العمود b يتم اظهار ا ..



09-11-2019 11:09 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 199
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 Online 


السلام عليكم  
المطلوب عند تشغيل اليوزرفورم  ووضع بيان في التيكست بوكس 2 بناء على بيان ورقة 2  في العمود b  يتم اظهار البيانات  في باقي التيكست بوكس 

الكودلا عندي يعطي  خطا  وهذه الا كواد 

Private Sub TextBox2_Change()

Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.TextBox2.Value, xRg, 1, False)
Me.TextBox3.Text = Application.WorksheetFunction.VLookup(Me.TextBox2.Value, xRg, 3, False)
Me.TextBox4.Text = Application.WorksheetFunction.VLookup(Me.TextBox2.Value, xRg, 4, False)
End Sub

Dim xRg As Range

Private Sub UserForm_Initialize()
Set xRg = Worksheets("ورقة2").Range("A2:d8")
    Me.TextBox2.Text = xRg.Columns(2).Value
End Sub

 
 
  vlookup.xls   تحميل xls مرات التحميل :(1)
الحجم :(63.488) KB







10-11-2019 12:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif مساعدة في كود للدالة vlookup
وعليكم السلام أخي الكريم
جرب استخدام الدالة Match بدلاً من VLOOKUPحيث يمكنك استخدام الدالة ISERROR في حالة حدوث خطأ مع الدالة Match ..
سأترك الموضوع للأخوة حيث أنني غير متاح لبعض الوقت

أثارت هذه المشاركة إعجاب: ali mohamed ali،




11-11-2019 01:49 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 199
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 Online 
look/images/icons/i1.gif مساعدة في كود للدالة vlookup
شكرا اخي ياسر على ردك 

لقد بحتث في الانترنت ووجدت فيديو قريب نوعاما  لكن بصراحة اتعبني  يوم كامل وانا اقوم بالبحث والتعديل في الكود  الى ان وصلت الى النتيجة  على الرغم كنت افضل  ان تظهر النتيجة بمجرد كتابة اول رقم اوحرف التي اريدها سارفق لكم الملف بعد التعديل 
الية عمل الملف    بمجرد كتابة الصنف كامل في البحث يظهر بياناته كاملة بدون  زر التحكم  
 
 
  vlookup1.xls   تحميل xls مرات التحميل :(1)
الحجم :(66.048) KB






11-11-2019 02:13 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 199
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 Online 
look/images/icons/i1.gif مساعدة في كود للدالة vlookup
بقيت لديه جزاية بسيطة اتمنى اخي ياسر وبقية الاعضاء المساعدة فيها لقد  قمت بوضع شرط في التيكست بوكس 5 ولكن  لايقوم بتنفيد الشرط في البداية يتخطاه ويذهب الى الحالة الثانية من الشرط 
ارفق لكم الملف 

هذا الكود الذي قمت باضافته 
If WorksheetFunction.CountIf(ورقة2.Range("b:b"), Me.TextBox5.Value) > 0 Then
MsgBox "هذا الصنف متوفر "
Else
MsgBox "هذا الصنف غير متوفر "
End If


 
 
 
  vlookup1.xls   تحميل xls مرات التحميل :(0)
الحجم :(65.536) KB



تم تحرير المشاركة بواسطة :المبتدأ
بتاريخ:11-11-2019 03:20 مساء







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
وداعا للدالة vlookup واهلا بالدالة vlookup elsaqr الجديدة emad ghazi
49 8202 محمدمطر

الكلمات الدلالية
مساعدة ، للدالة ، vlookup ،


 







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



الساعة الآن 01:07 مساء

أعلن هنا
أعلن هنا
أعلن هنا