دالة if

[خالد 12]

اعزائي الكرام

احتاج وقفتكم معي في دالة if حيث انني اريد ان اعمل 16 شرط وهي سنوات الدراسة من اول ابدائي حتى السنة الرابعة للجامعة اي 16 سنة بحيث ان اول يساوي واحد وهكذا حتى السنة الرابعة في الجامعة وتساوي 16 سنة

وذلك عبر قائمة منسدلة في المؤهل العلمي من اول ابتداءي حتى السنة الرابعة في الجامعة واذا اخترت مثلا سادس يعطيني في الخانة المقابلة 6

واذا اخترت الثانوية يعطيني 12 وهكذا

آمل في ايجاد حل علما ان دالة if احتسبت معي حتى 6 شروط بس

[عادل حنفي]

اخي هذا ما تريد

وهذا تم عمله بدالة Voolkup2all

و هي من اعمال الاخ العزيز ابو تامر

Book1.rar

تم تعديل مايو 13, 2008 بواسطه aah_aah2008

[خالد 12]

اخي العزيز نسخت الخلية وعدلت فيها الخلايا التي عندي ولكن لم تنجح العملية

[عادل حنفي]

اخي من قائمة view

اختر toolbars ومنها اختر visual basic

و عند ظهور شريط ادوات visual basic

اضغط علي visual basic editor

سنظهر لك شاشه علي اليسار في اي مكان فارغ به كليك يمين

واختر insert ثم Module

وفيه الصق هذا الكود

Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant,رقم_الظهور,عمود_النتيجة)  
For x = 1 To جدول_البيانات.Rows.Count
    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then
        Counter = Counter + 1
        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For
    End If
Next
End Function

تم تعديل مايو 13, 2008 بواسطه aah_aah2008

[خالد 12]

مشكور اخي الغالي

ولكن حتى الان لم تضبط معي العملية

غدا لنا لقاء

الله يحفظك بحفظه

[عادل حنفي]

اخي اسف

فقد كان هناك خطأ بالكود ارجع و انسخه مره ثانيه

فقد قمت بتعديله

تم تعديل مايو 13, 2008 بواسطه aah_aah2008

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

السلام عليكم

يعطيك العافية اخي aah_aah2008

يفضل اخي خالد 12 ارسال ملف تجريبي لكي يتم تنفيذ المطلوب وحفظ الوقت والجهد

[خالد 12]

لم استطع ارفاق الملف

[عادل حنفي]

اخي خالد

لقد ارسلت لي ملف بالبريد

لقد قمت بالتعديل المطوب واعدت ارسال الرساله لك مرة اخري

تم تعديل مايو 17, 2008 بواسطه aah_aah2008