اذهب الي المحتوي
أوفيسنا

حساب الزكاة بين فترتين


sft

الردود الموصى بها

الحمد لله وبعد ...

الاخوة في منتدانا الغالي أوفيسنا

تجدون برفقة جدول به اشهر لتقسيط سيارات وحيث اننا في هذا الشهر الفضيل أسأل الله ان يتقبل منا ومنكم الصيام والقيام . وبهذا الشهر موعد الزكاة أريد أي طريقة من الإخوة بها اقدر أن أحسب الزكاة من تاريخ ( مثال) ... زكاتي في رمضان .. اريد أمر يحسب من الرقم 6 الى اخر الورقة التي صممتها وهي نهاية الجدول 45 ... او بين اي رقمين احددهما. في جميع الورقات 100 و 200 و300 ألــــــخ .

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

جداول تسديد العملاء والزكاة.rar

تم تعديل بواسطه sft
رابط هذا التعليق
شارك

السلام عليكم

أعاد الله علينا وعليك وعلي سائر المسلمين رمضان بالخير واليمن والبركات

أخي الكريم

السؤال غير واضح

هل تريد مثلا

معرفة إجمالي قيمة الأقساط لسنة (س)هـ علي أن يبدأ التجميع من شهر (ص) مثلا

رابط هذا التعليق
شارك

اشكرك على ردك .... ما اريده هو عندي ورقات في جدول واريد احسب المبالغ التي محصورة بين تاريخين (مثال ) يعني اريد إنشاء 3 خانات تتكون من 1-خانه مثال B50 ادخل بها التاريخ من .. و C50 ادخل بها التاريخ الى ... وE50 ناتج ما بين التاريخين ..

الجمع بين تاريخيين 1.rar

تم تعديل بواسطه sft
رابط هذا التعليق
شارك

اشكرك على ردك .... ما اريده هو عندي ورقات في جدول واريد احسب المبالغ التي محصورة بين تاريخين (مثال ) يعني اريد إنشاء 3 خانات تتكون من 1-خانه مثال B50 ادخل بها التاريخ من .. و C50 ادخل بها التاريخ الى ... وE50 ناتج ما بين التاريخين ..

كالمثال المرفق ولكن لم اتمكن من التعديل على الكود لمعفي القليلة المكرو والدوال

الجمع بين تاريخيين 1.rar

رابط هذا التعليق
شارك

السلام عليكم

أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة

يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية

=SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14)

ثانيا في مثالك أنت الأول أنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا

فقد أضفت لك العمود F المكتوب بالخط الأزرق

وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق

ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50

أنظر المرفق في الورقة 100

وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق

رابط هذا التعليق
شارك

السلام عليكم

أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة

يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية

=SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14)

ثانيا في مثالك أنت الأول ،

فأنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا

فقد أضفت لك العمود F المكتوب بالخط الأزرق

وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق

ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50

أنظر المرفق في الورقة 100

وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق

جداول تسديد العملاء والزكاة_طارق.rar

  • Thanks 1
رابط هذا التعليق
شارك

اشكرك يا أخي ... نعم ما اردته هو هذا .. ولكن كل عمل له أفكار ففي المثال المرفق قمت بعملية الجمع ولكن على ورقه واحدة ( المكرو من إحدا مشاركة أحد الاعضاء ) والي لم أتمكن منه هو أن عندي ورقات ( 100و200و300) وأريد الجمع يكون في ورقة ( الزكاة) أو .... طريقة أخرى .. وهو مجموعة جداول في ورقه واحدة وأريدجمع القيمة بين تاريخين كما هو مبين في ورقة (1).

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

دمتم بحفظ الله .

جمع قيمة بين تاريخين.rar

رابط هذا التعليق
شارك

السلام عليكم

بعد اذن الحبيب طارق ___حفظه الله

لقد صممت الدالة kh_Sum_Hijri

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


Option Explicit


Function kh_Sum_Hijri(MyNSheet As String, Firstdate As String, Enddate As String, Rngdate As String, RngSum As String)

Dim kh_Calendar As Integer

kh_Calendar = Calendar

Calendar = vbCalHijri

If IsDate(Firstdate) And IsDate(Enddate) Then

    kh_Sum_Hijri = kh_Sum(CDate(Firstdate), CDate(Enddate), Sheets(MyNSheet).Range(Rngdate), Sheets(MyNSheet).Range(RngSum))

End If

Calendar = kh_Calendar

End Function

=====================================================

Function kh_Sum(d1 As Date, d2 As Date, Rng1 As Range, Rng2 As Range) As Double

Dim MySum As Double

Dim i As Long

With Rng1

    For i = 1 To .Rows.Count

        If CDate(.Cells(i, 1)) >= d1 And CDate(.Cells(i, 1)) <= d2 Then MySum = MySum + Rng2.Cells(i, 1)

    Next i

End With

kh_Sum = MySum

End Function

وقد اضفت ثلاث طرق لطريقة استخدام الدالة

في ثلاثة اوراق

اختار منها الطريقة التي تريد

انقل الكود الذي في الملف الى ملفك لتعمل معك الدالة

تفضل المرفق اكسل 2003

جمع قيمة بين تاريخين1.rar

  • Thanks 1
رابط هذا التعليق
شارك

الاخ ؟ خبور خير ... جزاك الله كل خير ومن حيث لا تحتسب وفتح لك ابواب جنانه اللهم امين ...نعم اكفيت ووفيت ولا شلت لك يد.. طلبا ليس امرا اعدت ارسال الملف لان عندي سؤالين في نفس الملف ادرجتهما أمل التكرم منك بالرد طلبا ليس امرا ...

جمع قيمة بين تاريخين المعدل.rar

تم تعديل بواسطه sft
رابط هذا التعليق
شارك

السلام عليكم

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

نطاق التاريخ E4:E43

هو عنوان الخلايا اللي فيها التاريخ

انظر الورقة 100

اين تجد التاريخ ؟؟

ومثله نطاق الجمع

اما التعليق اللي في الخلية ليس له دخل في اي شي

يمكنك حذفه

تقبل تحياتي وشكري

رابط هذا التعليق
شارك

بارك الله لك وفيك وكيف (انقل الكود الذي في الملف الى ملفك لتعمل معك الدالة)؟

واخر سؤال كيف افك طلاسم هذه المعادلة للعلم بها

=kh_Sum_Hijri(B7;$B$2;$C$2;$D$2;$E$2)

... وكيف تعلمها

تم تعديل بواسطه sft
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information