طارق محمود

السلام عليكم أخي الكريم قمت بكتابة المعادلة وكانت النتيجة صحيحة 100% دون اي مشكلة الحمد لله ولكن هناك عقود ايجار لا تتضمن السنة كلها بمعنى ان هناك عقد مثلا بقيمة 25000 بتاريخ بداية 15/3/2011 وتاريخ التسوية 27/9/2011 فمثلا عندما اقوم بكتابة البيانات المذكورة فتقوم المعادلة بتوزيع الايراد حسب الفترة الايجارية المحددة بالتواريخ فنعتبر ان خانة تاريخ نهاية التعاقد هي نفسها خانة تاريخ التسوية لاأري في هذا مشكلة : فهذا هو الطبيعي تاريخ نهاية التعاقد هو نفسه تاريخ التسوية إشرح أكثر لو عندك مشاكل فالمطلوب هو ان اقوم بكتابة المعادلة في اول خانة من شهور السنة (شهر يناير) ثم اقوم بالسحب لباقي السنة لاأري أيضا مشكلة : فهذا هو الوضع الحالي فلتقم بسحب المعادلة من اول خانة لباقي السنة فقد راعيت ذلك في تكوين المعادلات واما بالنسبة لعدد المستاجرين فهناك 346 مستأجر كل مستاجر بعقد مختلف عن الاخر وبقيمة ايجارية وتواريخ بداية ونهاية مختلفة وفي المثال السابق فان المدة لا تساوي سنة كاملة ستجد في الأمثلة التي وضعتها مدة ايجارية لاتساوي حتي شهرا كاملا ، راجع مرة أخري ماأرفقته لك في مشاركتي السابقة والمرفق يوضح ما اريد ودمتم في رعايا الله وحفظه

أخي الكريم لا أبدا المهم كما اشرت لك داخل الملف الخطوة الأولي وقبل الضغط علي زر التشغيل أن ظلل المساحة (الـRang ) المطلوب العمل عليها تقبل تحياتي

أين المرفق؟؟

السلام عليكم بالإضافة إلي حل استاذنا الفاضل وأخونا الكريم / يحي حسين تفضل أخي الكريم حل آخر بالأكواد قد يكون مناسب أكثر إذا كانت الأعمدة كثيرة كما تقول amr nagy 2.rar

شكرا لك أختنا الفاضلة علي مرورك وكلماتك الطيبة اللهم علمنا ماينفعنا وانفعنا بما علمتنا وهيئ لنا من أمرنا رشدا

السلام عليكم أخي العزيز الطلب غير واضح إطلاقا قد يكون ماتقصد هو إعادة تنسيق البيانات (الجداول المحورية) أنظر المرفق وأنتظر ردك أو إيضاح اكثر 3055_2.rar

السلام عليكم أخي الكريم / حسين أرجو أن يكون الملف هو ماتطلب لو غير ذلك ، فلتوضح ماتريد

أعذرني أخي الكريم لازلت لاأفهم أرجو أن تعمل يدويا ماتريده في الملف وتظلله مثلا بأي لون يدويا وإن شاء الله ستجد كثير ممن يجعلونه أوتوماتيكيا

السلام عليكم أخي الكريم لازلت لاأفهم ماتريد عموما انظر المرفق قد يكون هو ماتريد في الورقة3 ثبتت القدر لكل يوم من أيام الأسبوع وفي الورقتين 1،2 باستخدام دالةVLOOKUP ستجد القدر باللون الأحمر ناتجا من معادلة حسب أيام الأسبوع باستخدام دالة WEEKDAY لمشكلة الرفع فالمرفق علي الرابط التالي http://www.4shared.com/file/zpOe62xM/___________.html

السلام عليكم اخي الكريم انا لاافهم اشرح اكثر او اعمل المطلوب يدويا في مثال كامل هناك ايضا موضوع قد يفيدك انظر اليه علي الرابط http://www.officena.net/ib/index.php?showtopic=36209&st=0&p=191471&#entry191471

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

ملحوظة (1) بعض السنوات 366 وليست 365 لذلك غيرت المعادلة التي تحسب اليوم الواحد (2) أضفت السطر 2 به تاريخ نهاية الشهر (3) أنتظر ردك بعد التجربة وتغيير تواريخ الإيجار

السلام عليكم أهلا ومرحبا بك أخي الكريم كان عندي من وقت قريب مشكلة قريبة من هذه وكنت قد حللتها بطريقة طويلة عن طريق دالة IF باستخدامها لتغطي كافة الإحتمالات Case1 الحالة الأولي - الشهر الذي أوله في الصف1 وآخره في الصف 2 ليس في مجال مدة العقد Case2 الحالة الثانية - مدة العقد كلها في مجال الشهر الذي أوله في الصف1 وآخره في الصف 2 Case3 الحالة الثالثة - الشهر الذي أوله في الصف1 وآخره في الصف 2 يقع بالكامل في مجال مدة العقد Case4 الحالة الرابعة - مدة العقد تبدأ خلال الشهر الذي أوله في الصف1 وآخره في الصف 2 Case5 الحالة الخامسة - مدة العقد تنتهي خلال الشهر الذي أوله في الصف1 وآخره في الصف 2 أنظر المرفق وقد يكون هناك حل أفضل لحساب تقاطعات المدد الزمنية تفضل المرفق علي الرابط http://www.4shared.com/file/VWpQ78Ig/__2.html التحميل فيه مشكلة عندي

السلام عليكم أستاذنا الفاضل وعالمنا الجليل / خبور خير يبدو أن الإنترنت معطل في اليمن السعيد (أعاد الله له السعادة والخير) ردك الله إلينا بكل خير أخي الحبيب أخواني الأعزاء إستكمالا للموضوع سنتعرض اليوم لدالة MOD تستخدم هذه الدالة للحصول علي الرقم المتبقي من قسمة رقمين ، بمعني أنك إذا قسمت مثلا 7÷3 ينتج رقم صحيح 2 ويتبقي 1 فهذه الدالة في هذه الحالة تأي بهذا المتبقي 1 بناء الجملة =MOD(Number,Divisor) بعض الأمثلة MOD(3, 2) تنتج 1 MOD(-3, 2) تنتج 1 فإشارة الرقم المقسوم لاتؤثر MOD(3, -2) تنتج -1 فإشارة الرقم المقسوم عليه هي المؤثرة MOD(-3, -2) تنتج -1 ومن أكثر استخداماتها مع التنسيق الشرطي لتلوين سطر وسطر يعني إذا كان لديك جدول طويل تود طباعته مثلا وللحفاظ علي عدم زيوغ البصر يفضل تلوين الأسطر الفردية مثلا وترك الزوجية أو العكس فإذا استخدمت =MOD(رقم السطر,2) 1 تنتج 1 2 تنتج 0 3 تنتج 1 4 تنتج 0 5 تنتج 1 6 تنتج 0 7 تنتج 1 8 تنتج 0 أي أنها تنتج هنا إما صفر للزوجي وإما 1 للفردي مهما كان رقم السطر وبوضع هذا الشرط في التنسيق ينتج لك أسطر ملونة والأخري لا مثلا =MOD(ROW(),2)=1 يجعل الأسطر الذي وضع بها هذا الشرط ورقمها فردي تتلون بكذا راجع المرفق MOD_ex.rar

الكود تم تغييره ليتناسب مع ماطلبت علي أن يأخذ بياناته من الخليتين B1 و B2 Sub Rnd_N_REP() Dim myrange As Range, rr, cc, pp As Integer rr = [B2]: cc = [B1] pp = rr * cc + 1 Range("C3").SpecialCells (xlCellTypeLastCell) Set myrange = Range("C3", [c3].SpecialCells(xlCellTypeLastCell)) myrange.ClearContents myrange.Interior.ColorIndex = xlNone Set myrange = Range("C3", [c3].Offset(rr - 1, cc - 1)) myrange.Interior.ColorIndex = 6 Randomize For i = 0 To pp - 2 rw = i Mod rr + 3 If rr = cc Then cl = Int(i / cc) + 3 Else cl = i Mod cc + 3 10 x = Int(Rnd * pp) For Each ce In myrange If ce = x Or x = 0 Then GoTo 10 Next ce Cells(rw, cl).Value = x Next i [c3].Select End Sub

السلام عليكم تفضل أخي المرفق وبه غير الأرقام في B1 و B2 كما تشاء Rnd_N_REP2.rar

السلام عليكم أخي الفاضل عندك حق أخي في الملف الذي ارفقته في مشاركتي السابقة غير الصيغة في الخلية Q20 من =IF(D21>15,IF(D21>30,15*Q15/4+15*Q15/2+(D21-30)*Q15,15*Q15/4+(D21-15)*Q15/2),D21*Q15) إلي =IF(D21>15,IF(D21>30,15*Q15/4+15*Q15/2+(D21-30)*Q15,15*Q15/4+(D21-15)*Q15/2),D21*Q15/4) يعني فقط إقسم علي 4 آخر قسم (آخر إحتمال أن يكون أيام التأخير أقل من أو تساوي 15) ثم للتأكد غير عدد أيام التأخير الموجود بالخلية D21 إجعله 1 أي يوما واحدا ثم 2 أو 3 أو ... إلي أن تتجاوز المعادلة رقم الــ 10% ، فلايحدث تغيير

السلام عليكم بالإضافة إلي حل أخي العزيز / كيماس في حالة أن الحرف المراد حذفه ثابت كما في السؤال ممكن استخدام أمر الاستبدال Replace وذلك بتظليل الخلايا المطلوبة ثم بالضغط علي Ctrl+H وطلب استبدال الحرف A بلاشيء أي في خانة Find What تضع A وفي خانة Replace with لاتضع شيئا

السلام عليكم أخي الكريم راجع ملفك الأول ستجد أنك وضعت رقم 5 مكان ال 2 في الشريحة الثانية أي أنه تقسم علي 5 أي خمس وليس نصف القيمة ، لذلك يحدث الخطأ إذا أصلحت المعادلة لتغير كل ماهو مقسوم علي 5 ليكون علي 2 ستأتي بالنتيجة الصحيحة 38,750.00 أما بالنسبة للشريحة الأولي ، فقد تم مراعاتها أيضا مرفق الملف وبه المعادلات وجرب بنفسك غرامة تأخير التوريد2.rar

السلام عليكم أخي العزيز حسب طلبك ستكون المعادلة طويلة ولكن هذا هو طلبك في خلية واحدة =IF(IF(D19>15,IF(D19>30,15*D15/D17/4+15*D15/D17/5+(D19-30)*D15/D17,15*D15/D17/4+(D19-15)*D15/D17/5),D19*D15/D17)>D15/10,D15/10,IF(D19>15,IF(D19>30,15*D15/D17/4+15*D15/D17/5+(D19-30)*D15/D17,15*D15/D17/4+(D19-15)*D15/D17/5),D19*D15/D17)) والأفضل أن تجزئها بأخذ الأجزاء المتكررة في خلايا أخري مساعدة مثلا باستخدام خليتين بعيديتين عن المجال مثل N15 ، N20 ضع في N15 قيمة = (قيمة العقد ÷ فترة التوريد) أي المعادلة =D15/D17 وفي N20 قيمة الغرامة قبل الأخذ في الاعتبار موضوع تجاوز الـ 10% أي المعادلة =IF(D19>15,IF(D19>30,15*N15/4+15*N15/5+(D19-30)*N15,15*N15/4+(D19-15)*N15/5),D19*N15) تصبح المعادلة المطلوبة في D21 هي =IF(N20>D15/10,D15/10,N20) ، هذا رأيي

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك فعل الفيجوال بيزيك إذا لم يكن مفعلا واكتب الكود التالي Sub Rnd_N_REP() Range("C3:E7").ClearContents Randomize For i = 1 To 15 rw = i Mod 5 + 3 cl = i Mod 3 + 3 10 x = Int(Rnd * 16) For Each ce In Range("C3:E7") If ce = x Or x = 0 Then GoTo 10 Next ce Cells(rw, cl).Value = x Next i End Sub سيتم عمل المطلوب في الخلايا C3:E7 تفضل أيضا الملف المرفق Rnd_N_REP.rar

السلام عليكم أخي الكريم ممكن طبعا تغيير معادلة أي يوم علي حدة فمثلا اليوم الذي ذكرته معادلاته في الخليتين X29، X30 علي سبيل المثال ، تم السماح بالتأخير في هذا اليوم لكل الموظفين 30 دق بدلا من 15 بالرجوع للمشاركة #4 يعني هذا تغيير الرقم 1/96 في المعادلة إلي 1/48 وتكون المعادلة في الخلية =IF(X5>0,IF(X5-in_t<1/48,0,X5-in_t),0.375) بدلا من =IF(X5>0,IF(X5-in_t<1/96,0,X5-in_t),0.375) ولاداعي للإنزعاج من كثرة الأسئلة فهذا سبيل التعلم وجميع الإخوة بالمنتدي يسعدون بالأسئلة وبالإجابة عليها فلاتتردد في الأسئلة إذا لم تتضح الإجابة لك

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

السلام عليكم أخي العزيز أولا أعد إظهار العمود D في الخلية D6 ،D5 يوجد أوقات الحضور والإنصراف الرسمية والتي سميتها كما سبق الشرح in_t ، out وهكذا يمكنك فرض ماتحب في الخلايا التالية علي سبيل المثال D7، D8 و D10، D11 أو أي مكان آخر ثم تسميهما مثلا in_t1، out1 و in_t2، out2 وهكذا وطبعا تغير المعادلات في الجداول السفلية لتتناسب مع هذه الفروض مثلا الأسبوع الثاني يرتبط بــ in_t1، out1 بدلا من in_t ، out والأسبوع الثالث يرتبط بــ in_t2، out2 بدلا من in_t ، out وهكذا

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