طلب مساعدة في دالة طرح قروش

[بكار للأبد]

السلام عليم ورحمة الله

 

عندى ملف عمل مطلوب فيه أن أضع في خانة حساب الإيرادات (باللون الأصفر) المبلغ الموجود في عامود الصافي مثلا مبلغ (.1154.44) أريده أن يكون 1154.40 بدون الأربعة قروش وأضع تلك الأربعة قروش في خانة الإيرادات بدون ظهور ذلك المرجع الدائري السخيف . فجاء دوركم لألجأ إليكم يا خبراء المنتدى الأغر

 

ولكم جزيل الشكر

 

 

الملف مرفق

work.rar

[أبو عبد الرحمن سعيد]

أخى العزيز الاستاذ الفاضل // بكار محمد

السلام عليكم ورحمته الله وبركاته

 عذرا أخى الفاضل نظرا لضيق الوقت

إليك هذا المرفق بالمعادلات 

كل عام انتم بخير ورمضان كريم

وجزاكم الله خيرا

تم تعديل يوليو 9, 2015 بواسطه سعيد بيرم

[بكار للأبد]

السلام عليكم ورحمة الله وبركاته

 

كل سنة وحضرتك طيب يا أستاذ سعيد وكل أعضاء المنتدى الكرام

 

لقد حاولت كثيراً مع ملفكم الكريم يا أستاذ سعيد ولم يفلح الأمر ولم ينجح معي وكل مرة يعطيني رسالة المرجع الدائري

 

هل أطمع في مساعدتكم مرة أخر أو مساعدة أحد الزملاء الخبراء في حل تلك المشكلة لي بشكل مباشر في الملف المرفق

 

وشكراً جزيلاً

تم تعديل يوليو 9, 2015 بواسطه بكار للأبد

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

أخي الفاضل بكار للأبد

صراحة لا أخفي عليك الملف بهذا الشكل غير مريح في العمل عليه

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

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

 

بالنسبة للمعادلة في الخلية AD10 يجب أن يسبقها الدالة Round لتصبح بهذا الشكل

=ROUND(AC10-AC11,2)

ثم قم باستخدام الكود التالي

Sub Erad_YasserKhalil()
    Dim I As Long, X As Double
    For I = 11 To 29 Step 2
        If IsEmpty(Range("AD" & I - 1)) Then GoTo 1
        With Range("AB" & I)
            .ClearContents
            X = Application.WorksheetFunction.Round(Range("AD" & I - 1) - Application.WorksheetFunction.Floor(Range("AD" & I - 1), 0.05), 2)
            .Value = X
        End With
1    Next I
End Sub

أرجو أن يفي الكود بالغرض ..

[بكار للأبد]

السلام عليكم ورحمة الله وبركاته

 

كيف حالك أستاذ ياسر - كل عام وأنتم بألف خير

 

الحمد لله الكود ظبط معايا ولكن عندما حاولت نقله لملف آخر تختلف فيه اسم الخلايا خلية اللإيراد او الصافي لم يظبط  ، وكذلك قد ظبط في خلية الإيراد AB11 ولم تطبق في باقي الملف (AB13 - AB15 - AB17- AB19) وهكذا ، وكذلك الحال بالنسبة لخانة الصافي تطبق على تلك الخلية فقط (AD10) ولم تطبق على باقي خلايا الصافي في لملف (AD12 - AD14 - AD16) وهكذا .

ممكن لو تكرمت توضيح أكثر للكود وأمكان وضع الخلايا

 

ولك جزيل الشكر والعرفان

تم تعديل يوليو 9, 2015 بواسطه بكار للأبد

[محمد الريفى]

السلام عليكم

اخى الكريم جرب هذه المعادله

TRUNC(1154.44;1)

وهذه المعادله لفصل 4 قروش

=1154.44-TRUNC(1154.44;1)

ضع مرجع خليه مكان 1154.44

تحياتى

[بكار للأبد]

السلام عليكم أستاذ محمد - رمضام كريم وكل عام وأنتم بخير 

 

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

 

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

 

 

مرتبات18.rar

[محمد الريفى]

السلام عليكم

هلت تقصد هكذا

 

مرتبات18.rar

[بكار للأبد]

السلام عليكم ورحمة الله وبركاته

 

جزاك الله كل خير سيدي الفاضل أ / محمد الريفي

ولكنك نسيت أن تضع فرق القروش في خانة  الإيرادات حيث أن هذا هو جوهر المشكلة

تم تعديل يوليو 9, 2015 بواسطه بكار للأبد

[محمد الريفى]

سينتج مرجع دائرى لو تم وضعها فى خانة الايرادات

سيجعل الخليه تعيد حساب نفسها مره اخرى 

لما لاتقوم بعمل عمود مساعد وتجمع الايرادات

[بكار للأبد]

المشكلة أنها استمارة مرتبات ولا يمكن اللعب بها بزيادة أو إضافة الاعمدة ولكن هل يمكن عمل عمود للإيردات ثم نقل قيمته إلى خانة الإيرادات تلك ومن ثم إخفاء العمود الذي تم إنشاؤه ؟

هل أطمع في بالغ كرم سيادتكم بأن تريني أو أن تشرح لي بالتفصيل كيف أفعل ذلك وماهي المعادلات التى أضعها فيه حتى أتجنب المرجع الدائري هذا .

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

الأخ الفاضل بكار

لن أزيد في الكود شيء فقط عدل بداية الحلقة التكرارية ونهايتها بهذا الشكل

For I = 12 To 30 Step 2

باقي أسطر الكود كما هي

أرجو أن يفي بالغرض

[بكار للأبد]

جزاك الله كل خير يا أستاذ ياسر - عدلت الكود واشتغل ميه ميه ولا فراخ الجمعية :geek: :geek:

  :geek: :geek: