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

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


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


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





دالة VLOOKUP BY CODE

مسا الخيير في الملف المرفق محتاج الى عمل دالة vlookup ولكن عن طريق الكود حيث عند اختيار رقم الوظيفي يظهر اسم العميل في ..



02-01-2018 07:04 مساء
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
مسا الخيير 
في الملف المرفق محتاج الى عمل دالة vlookup ولكن عن طريق الكود حيث عند اختيار رقم الوظيفي يظهر اسم العميل في الصفحة رقم 2 ويكون جدول البيانات في الصفحة رقمم 1
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
وارجو ان يكود الكود بنفس الصفحة بحيث لا انقر على اي شئ لاظهار النتيجة
 
 
  VLOOKUP BY CODE.rar   تحميل rar مرات التحميل :(12)
الحجم :(6.578) KB





08-01-2018 06:45 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif دالة VLOOKUP BY CODE
السلام عليكم
جرب الكود التالي في حدث ورقة العمل الثانية
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    
    If Target.Row > 1 And Target.Column = 1 Then
        Application.EnableEvents = False
            On Error GoTo Skipper
            If Target.Value = "" Then Target.Resize(1, 2) = ""
            Set rng = Sheets("Sheet1").Range("A2:B" & Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row)
            Target.Offset(, 1) = Application.WorksheetFunction.VLookup(Target, rng, 2, False)
Skipper:
        Application.EnableEvents = True
    End If
End Sub






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في كود للدالة vlookup المبتدأ
5 281 المبتدأ
مهارات البحث بالدالة VLOOKUP +CHOOSE البحث فى اى عدد من الجداول emad ghazi
3 384 emad ghazi
فورم لحساب التكاليف للمنتج بالضريبة باستخدام الدالة VLOOKUP مجدى يونس
2 296 مجدى يونس
حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP علي الرويلي
3 232 YasserKhalil
البحث في أوراق عمل متعددة باستخدام دالة معرفة VLOOKUP Multiple Ranges Using UDF YasserKhalil
18 1416 YasserKhalil

الكلمات الدلالية
دالة ، VLOOKUP ، CODE ،


 







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

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

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