sft قام بنشر أغسطس 8, 2011 قام بنشر أغسطس 8, 2011 (معدل) الحمد لله وبعد ... الاخوة في منتدانا الغالي أوفيسنا تجدون برفقة جدول به اشهر لتقسيط سيارات وحيث اننا في هذا الشهر الفضيل أسأل الله ان يتقبل منا ومنكم الصيام والقيام . وبهذا الشهر موعد الزكاة أريد أي طريقة من الإخوة بها اقدر أن أحسب الزكاة من تاريخ ( مثال) ... زكاتي في رمضان .. اريد أمر يحسب من الرقم 6 الى اخر الورقة التي صممتها وهي نهاية الجدول 45 ... او بين اي رقمين احددهما. في جميع الورقات 100 و 200 و300 ألــــــخ . هل اجد منكم الكرم والتكرم بهذا الشهر لعمل الكريم ... أمل أن لا يطول إنتظاري ... ودمتم برعاية الله وحفظه.. جداول تسديد العملاء والزكاة.rar تم تعديل أغسطس 8, 2011 بواسطه sft
طارق محمود قام بنشر أغسطس 12, 2011 قام بنشر أغسطس 12, 2011 السلام عليكم أعاد الله علينا وعليك وعلي سائر المسلمين رمضان بالخير واليمن والبركات أخي الكريم السؤال غير واضح هل تريد مثلا معرفة إجمالي قيمة الأقساط لسنة (س)هـ علي أن يبدأ التجميع من شهر (ص) مثلا
sft قام بنشر أغسطس 12, 2011 الكاتب قام بنشر أغسطس 12, 2011 (معدل) اشكرك على ردك .... ما اريده هو عندي ورقات في جدول واريد احسب المبالغ التي محصورة بين تاريخين (مثال ) يعني اريد إنشاء 3 خانات تتكون من 1-خانه مثال B50 ادخل بها التاريخ من .. و C50 ادخل بها التاريخ الى ... وE50 ناتج ما بين التاريخين .. الجمع بين تاريخيين 1.rar تم تعديل أغسطس 12, 2011 بواسطه sft
sft قام بنشر أغسطس 12, 2011 الكاتب قام بنشر أغسطس 12, 2011 اشكرك على ردك .... ما اريده هو عندي ورقات في جدول واريد احسب المبالغ التي محصورة بين تاريخين (مثال ) يعني اريد إنشاء 3 خانات تتكون من 1-خانه مثال B50 ادخل بها التاريخ من .. و C50 ادخل بها التاريخ الى ... وE50 ناتج ما بين التاريخين .. كالمثال المرفق ولكن لم اتمكن من التعديل على الكود لمعفي القليلة المكرو والدوال الجمع بين تاريخيين 1.rar
طارق محمود قام بنشر أغسطس 13, 2011 قام بنشر أغسطس 13, 2011 السلام عليكم أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية =SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14) ثانيا في مثالك أنت الأول أنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا فقد أضفت لك العمود F المكتوب بالخط الأزرق وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50 أنظر المرفق في الورقة 100 وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق
طارق محمود قام بنشر أغسطس 13, 2011 قام بنشر أغسطس 13, 2011 السلام عليكم أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية =SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14) ثانيا في مثالك أنت الأول ، فأنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا فقد أضفت لك العمود F المكتوب بالخط الأزرق وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50 أنظر المرفق في الورقة 100 وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق جداول تسديد العملاء والزكاة_طارق.rar 1
sft قام بنشر أغسطس 13, 2011 الكاتب قام بنشر أغسطس 13, 2011 اشكرك يا أخي ... نعم ما اردته هو هذا .. ولكن كل عمل له أفكار ففي المثال المرفق قمت بعملية الجمع ولكن على ورقه واحدة ( المكرو من إحدا مشاركة أحد الاعضاء ) والي لم أتمكن منه هو أن عندي ورقات ( 100و200و300) وأريد الجمع يكون في ورقة ( الزكاة) أو .... طريقة أخرى .. وهو مجموعة جداول في ورقه واحدة وأريدجمع القيمة بين تاريخين كما هو مبين في ورقة (1). وأسف على الاطالة ولكن هذا الامر يعنيني كأخراج الزكاة ويثري هذا المنتدى بالمعلومه لاني لم أجد مواضيع تتكلم عن جمع الاعداد إلا قله مقارنه بقالات الفرق بين تاريخين .. دمتم بحفظ الله . جمع قيمة بين تاريخين.rar
عبدالله باقشير قام بنشر أغسطس 13, 2011 قام بنشر أغسطس 13, 2011 السلام عليكم بعد اذن الحبيب طارق ___حفظه الله لقد صممت الدالة 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 1
sft قام بنشر أغسطس 13, 2011 الكاتب قام بنشر أغسطس 13, 2011 (معدل) الاخ ؟ خبور خير ... جزاك الله كل خير ومن حيث لا تحتسب وفتح لك ابواب جنانه اللهم امين ...نعم اكفيت ووفيت ولا شلت لك يد.. طلبا ليس امرا اعدت ارسال الملف لان عندي سؤالين في نفس الملف ادرجتهما أمل التكرم منك بالرد طلبا ليس امرا ... جمع قيمة بين تاريخين المعدل.rar تم تعديل أغسطس 14, 2011 بواسطه sft
عبدالله باقشير قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 السلام عليكم مشكور اخي الكريم نطاق التاريخ E4:E43 هو عنوان الخلايا اللي فيها التاريخ انظر الورقة 100 اين تجد التاريخ ؟؟ ومثله نطاق الجمع اما التعليق اللي في الخلية ليس له دخل في اي شي يمكنك حذفه تقبل تحياتي وشكري
sft قام بنشر أغسطس 14, 2011 الكاتب قام بنشر أغسطس 14, 2011 (معدل) بارك الله لك وفيك وكيف (انقل الكود الذي في الملف الى ملفك لتعمل معك الدالة)؟ واخر سؤال كيف افك طلاسم هذه المعادلة للعلم بها =kh_Sum_Hijri(B7;$B$2;$C$2;$D$2;$E$2) ... وكيف تعلمها تم تعديل أغسطس 14, 2011 بواسطه sft
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.