تحويل كود الى وحدة نمطية

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي ملف اكسل  فيه دالة مركبة  لحساب الراتب الاسمي للموظف من خلال جدول (الدرجة الوظيفية والمرحلة الوظيفية)

عند اختيار الدرجة  والمرحلة من القائمتين المنسدلتين من (1-5) يتم حساب الراتب الاسمي من الجدول  حسب المدى من ($D$5:$I$9)

المطلوب: تحويل الكود في الخلية (i13) الى وحدة نمطية  وطريفة استدعائها  1-  من الاكسل  2- من الاكسس  ان امكن ذلك

تحياتي للجميع

Test.xlsx

[أ / محمد صالح]

لتحويل أي معادلة إلى كود يمكنك استعمال هذه الطريقة

[Cell reference] = Evaluate("=Cell formula")

وفي حالتك

[i13] = Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))")

 

وطريقة استدعائه بزر أمر مرتبط بإجراء sub به هذا الكود

أو في حدث تغيير خلايا ورقة العمل worksheet_change 

وبالنسبة للتنفيذ من الأكسس على نفس هذا الشيت بعد تصديره مثلا

نستعمل قبل evaluate اسم كائن تطبيق الاكسل

مثال

sh.Range("i13").value = Xlapp.Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))")

بالتوفيق 

[Ahmed_J]

شكرا لك كثيرا

كلوا تمام  تسلم ايدك