خطأ في هذا الكود

[شامل2]

السلام عليكم

وضعت سابقا ملف لايجاد الضريبة حسب الراتب الاسمي

وفد بدأت بوضع دالة خاصة لذلك ولكن حدث خطأ في هذه الحالة

اتمنى معرفة الخطأ

 

1 - Copy (2).rar

[ياسر خليل أبو البراء]

أخي الكريم شامل

المشكلة في الدالة أنك حددت نوع المتغير من النوع نصي وفي الشروط وضعت الصفر كما هو بدون أقواس تنصيص

أفضل حتى تتلافى الأخطاء أن تغير الجزء الأول بهذا الشكل

Function CalTh(a, x, y, d, e) As Variant

بمعنى خلي الإعلان عن المتغيرات من النوع Variant لكل المتغيرات ..يا إما تخلي بالك وإنت بتكتب الشروط تضع الصفر بين أقواس تنصيص

تقبل تحياتي

 

[شامل2]

السلام عليكم

الاخ ياسر خليل أبو البراء

شكرا لك على ملاحظتك القيمة والرائعة

هل يمكن اختصار الكود  السابق الى أقل من هذا العدد من الاسطر؟

تم تعديل أبريل 1, 2016 بواسطه شامل2

[ياسر خليل أبو البراء]

وعليكم السلام

لا أدري إذا كان بالإمكان اختصار الدالة أو لا ..هذا يرجع لعدد الشروط

ولكن أقترح أن يتم عمل عمود مساعد تجمع فيه الشروط وتشوف الشروط المتاحة جميعها وتبدأ تتعامل معاها بهذا الشكل الجديد ..

العمود المساعد يجمع الخلايا اللي فيها الشروط مرة واحدة .. باستخدام الدالة concatenate

[شامل2]

السلام عليكم

الاخ ياسر خليل أبو البراء

هل العمل الذي قمت به الان هو صحيح؟

لانه يعطي نتائج صحيحة؟

 

 

 

[ياسر خليل أبو البراء]

أخي الكريم

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

وفقك الله لما يحب ويرضى