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

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


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





اريد تحويل المعادلة الى كود

السلام عليكم ورحمة الله اريد تجويل تحويل معادلة vlookup الى معادلة فى الملف المرفق Convert vlookup equation to e ..


موضوع مغلق


15-07-2021 07:57 مساء
بسام جمال
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-07-2021
رقم العضوية : 22625
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 15-6-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 24
 offline 

السلام عليكم ورحمة الله  اريد تجويل تحويل معادلة vlookup  الى معادلة  فى الملف المرفق 

 


Convert vlookup equation to equation


 







 
 
  مساعده.xls   تحميل xls مرات التحميل :(15)
الحجم :(16.384) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim e, x, i As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 2 Then
        e = Array("تاجر", "مهندس", "طبيب", "محامى", "معلم ", "رئيس", "خباز", "فاكهانى", "ميكانيكى ", "اقتصادى", "زراعى ", "تجارى", "طالب", "خبير ", "سائق", "عامل نظافه ", "كيميائى ", "فيزيائى ", "اعمال حرة ", "مكتبه ", "صيدلى ", "صناعى", "نجار", "سياك ", "كهربائى ")
        x = Application.Match(Target.Value, e, 0)
        If Not IsError(x) Then Target.Offset(, 1).Value = x
    End If
End Sub
عرض الإجابة




04-08-2021 07:31 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif اريد تحويل المعادلة الى كود
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim e, x, i As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 2 Then
        e = Array("تاجر", "مهندس", "طبيب", "محامى", "معلم ", "رئيس", "خباز", "فاكهانى", "ميكانيكى ", "اقتصادى", "زراعى ", "تجارى", "طالب", "خبير ", "سائق", "عامل نظافه ", "كيميائى ", "فيزيائى ", "اعمال حرة ", "مكتبه ", "صيدلى ", "صناعى", "نجار", "سياك ", "كهربائى ")
        x = Application.Match(Target.Value, e, 0)
        If Not IsError(x) Then Target.Offset(, 1).Value = x
    End If
End Sub



الكلمات الدلالية
اريد ، تحويل ، المعادلة ،


 










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

الساعة الآن 05:56 مساء