طارق محمود

السلام عليكم أخي الحبيب لفهم المعادلة =SUMPRODUCT(MAX(($A$2:$A$16=F1)*($B$2:$B$16))) أولا إلغي علامات الدولار حيث تستخدم للتثبيت عند النسخ وليس هذا مجالها فستصبح المعادلة كالتالي =SUMPRODUCT(MAX((A2:A16=F1)*(B2:B16))) وهذه الدالة SUMPRODUCT كما نعلم لها أكثر من استخدام هنا في هذه الحالة هي تأتي لنا بأقصي رقم ينتج عن حاصل ضرب شرط في قيمة حيث الشرط هو A2:A16=F1 (تذكر أن F1 = "علاج اسرى") و القيمة هي قيم المصفوفة B2:B16 ============================== إذن الشرط هو متي تتساوي قيم A2:A16 مع F1 ولمعرفة ذلك ، إفرد أمامك قيم A2:A16 كالتالي {علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى - علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى - علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى} وردا علي السؤال متي تتساوي تلك القيم مع "علاج اسرى" "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 ; "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 ; "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 سيأتي الرد بالترتيب False True False False False False False False False False False True False False False أو 0 ; 1 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 1 ; 0 ; 0 ; 0 عفوا نستكمل لاحقا لانشغالي

أنا أضفت في الجزء العلوي nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub وأضفت في الجزء السفلي بعد End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown

السلام عليكم أخي العزيز جرب التعديل التالي ، فأنا لم اجربه Sub Transfer() Application.ScreenUpdating = False On Error Resume Next Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub T = WS.Range("A3").Value Application.ScreenUpdating = False WS.Unprotect "2191612" If Not IsEmpty(WS.Range("C6")) Then With Sheets(T) .Unprotect "2191612" LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 WS.Range("B" & nR & ":G" & LR).Copy .Cells(LRT, 2).PasteSpecial xlPasteValues .Protect "2191612" End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown Sheets("1").Select ActiveWindow.SmallScroll Down:=-12 Range("A3,C6").Select Else MsgBox "الخلية المحددة فارغة لذا لن يتم تنفيذ الكود": Exit Sub End If WS.Protect "2191612" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم تفضل اكبر قيمة2.rar

السلام عليكم أخي الحبيب / أبوحنين شاكر مرورك طبعا وجزاك الله خيرا بالنسبة للمعادلة ، سأشرح واحدة والباقي مثلها صيغة المعادلة كالتالي: =LOOKUP(2,1/A,B) حيث A هي تاريخ دفعات ، B هي مبلغ الطلبية مثلا فيها تسأل الدالة LOOKUP أن تبحث لك عن الرقم 2 في المجال الناشيء عن قسمة 1÷تاريخ دفعات وحيث أن ناتج قسمة 1÷تاريخ دفعات سيكون دائما اقل من الواحد الصحيح فنحن نعلم مسبقا أن الاكسل لن يجد الرقم 2 الذي يبحث عنه وبالتالي سيأتي بآخر قيمة في العمود المطلوب وهو في هذا المثال (مبلغ الطلبية)

تفضل العمل.rar

لاتوجد مرفقات !!!!

السلام عليكم أخي العزيز أرجو مراجعة الموضوع التالي للعملاق أخونا الفاضل / محمد صالح http://www.officena.net/ib/index.php?showtopic=29748&hl=%D8%A8%D8%B1%D9%8A%D8%AF#entry148119 ستجد فيه إن شاء الله ماتريد وأكثر

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

السلام عليكم أخي الحبيب هذا المطلوب سهل ولكنه عمل رتيب وقد لاحظت أن الأسماء لديك بضع وعشرون ومن المؤكد أن الأسماء الحقيقية أكثر بكثير وبدلا من إعادته مرة أخري ، إرسل جميع الأرقام لديك وإن كنت تخشي الخصوصية مثلا ، إرسل علي الخاص

السلام عليكم أخي الحبيب الملف الذي أرفقته فارغ لافيه ناجحين ولا راسبين وقبل كل شيء هلا بحثت في المنتدي أولا ، فهذا الموضوع تم تناوله عشرات المرات وستجد منها مايلائمك وزيادة علي سبيل المثال ، راجع الروابط التالية أولا http://www.officena.net/ib/index.php?showtopic=47534&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=48108&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry290971 http://www.officena.net/ib/index.php?showtopic=48475&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=49908&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=57303&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=56035&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry372775 http://www.officena.net/ib/index.php?showtopic=53659&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=44125&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry256531

بارك الله فيك ورزقك الخير كله

السلام عليكم رائع أخي الحبيب / محمد الريفى بارك الله فيك ونفعنا وإياك بما نعلم وبما نتعلمه إلي الأمام أيها الحبيب

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

أخي الكريم نسبة التعارض تختلف من يوم لآخر يعني في نفس المثال الفترة من 1/6/2015 إلي 20/6/2015 نسبة التعارض 30% ثم لا تعارض بعدها حتي يوم 1/7/2015 ثم الفترة من 1/7/2015 إلي 10/7/2015 نسبة التعارض 30% مرة أخري ثم لا تعارض بعدها حتي يوم 1/8/2015 ثم الفترة من 1/8/2015 إلي ؟؟ نسبة التعارض 50% .... وهكذا أنظر المرفق بالشيت الثاني EDPS2015_3.rar

السلام عليكم تفضل المرفق أخي الكريم 2015برنامج الأقساط الخاصة_2.rar

أخي الحبيب أولا : لاتشغل بالك بموضوع فرز بيانات العمودِA الى اعمدة مجاوره ، فهذا أسهل مافي مشكلتك المهم ماذا تعني بالربط الربط بالحبال يعني أنا سألتك في مشاركتي (#6) وسأعيد السؤال أرجو إختيار إحدي الحالتين أو إيضاح ماذا تعني بالربط

جميلة فعلا يا أبا البراء ماشاء الله عليك

السلام عليكم أخي العزيز أولا هذا الذي أنت أرسلته مجرد مثال لأن: فارق بداية الصيف 01-Jun ونهايته 31-Aug يساوي 92 يوما وموظفين بدرجة "المدير والمراقبين ورؤساء الأقسام" عددهم 10 يعني المفروض ألا يزيد المجازين عن 2 فقط في نفس الوقت (2 أي 20% من الـ 10) أي أن مجموع أجازاتاهم يجب ألا تتعدي 92×2 = 184 يوما وإذا جمعت الأجازات لهم كما في المثال = 90 + 15 + 40 + 1 + 10+ 20 + 10 + 15 + 30 + 30 = 261 يوما إذن لابد من تغيير جداولهم لكي لا تزيد عن 182 وإلا لن تستطيع الحل أما بالنسبة لما فعلته أنا فهو كالتالي 1- وضعت معادلة التنسيق الشرطي التي تلون لك أيام الأجازات في نفس الخلايا كمعادلة شرطية تجلب رقم "1" عند يوم الأجازة 2- في الصف 16 وأسفل أيام الأجازات جمعت الأجازات في كل يوم 3- تنسيق شرطي إذا تعدي مجموع الأجازات (20% من الـ 10) يتم التلوين بالأحمر إذن جميع الأيام الملونة بالأحمر فيها تعارض اجازات 4- أضفت زر الكنترول كمثال للموظفين محمد 4 ، محمد 5 من خلاله يمكنك إزاحة الأجازات لكل منهما حتي تقتلاح الحل علي زؤسائهم مثلا ألموظف محمد 4 أجازة يوم واحد بتاريخ 1/7/2015 يجعل الصف 16 أحمر في هذا اليوم لتعدي النسبة 20% إذا أزحته (يدويا أو من خلال الزر) ليكون 30/6/2015 سيجعل يوم 1/7/2015 ليس أحمرا أي ليس فيه تعارض اجازات

السلام عليكم أخي العزيز مرفق الملف به ماطلبت مع زيادة كنترول علي سبيل المثال عند الإسم : محمد 4 ، محمد 5 بالضغط علي زر الكنترول يمينا ويسارا تزيح فترة الأجازة للموظف لتفادي المنطقة الحمراء (التي بها أكثر من 20%) تفضل الملف إن أعجبتك الفكرة تستطيع تكرارها لباقي الموظفين EDPS2015_2.rar

السلام عليكم أخي الحبيب أولا: لاداعي لذكر "مقابل مادى" لأننا جميعا بالمنتدي نعمل لوجه الله عسي أن يتقبل سبحانه وتعالي ثانيا: حجم الملف المضغوط 1.4 ميجا ، (أقل من 2 ميجا) ممكن كنت تحمله عالمنتدي سأحمله لمن يريد المشاركة ثالثا: حملت الملفات ولم أفهم جيدا ماتريد يوجد ملف مثلا في المجلد الأول : ‫TDWL - 1 وإسم الملف هو 1010 بامتداد csv ويوجد ملف بنفس الإسم في المجلد الثاني : ‫‫TDWL - 2 فهل تريد أن يتم إلغاء محتويات الملف الموجود بالمجلد الثاني ويستبدل بمحتويات الملف الموجود بالمجلد الأول أم يتم إضافة محتويات الملف الموجود بالمجلد الأول إلي محتويات الملف الموجود بالمجلد الثاني مجلداوفسينااصلوتابع.rar

السلاك عليكم أخي الكريم لم أعد أفهم ماتريد هذه النسخة أيضا ليس بها مشاكل أرجو أن تعيد التعبير عما تريد بالضبط إن كان الملف كبيرا ، إرفعه علي موقع آخر وانسخ اللينك فقط

السلام عليكم أخي الحبيب راجعت الكود ، يعمل بكفاءة ماشاء الله عليك الكود ممتاز أنظر الفيديو المرفق لاشيء خطأ عندما تقوم باستدعاء اشعار ( في الاشعارات التي تحتوي على صنف واحد فقط ) لايتم استدعاء البيانات أواضافتها من الاشعارات التالية لم أفعل أي تغيير للكود الخاص بك فقط غيرت في الملاف بأن وضعت في Sheet2 بالخلية B5 العنوان "رقم الاشعار" ، كان غير موجود بالنسخة التي رفعتها أنت ALBARAKANI.rar

عفوا أخي الكريم (بوادر زهايمر) هاهو الملف Schedule2.rar

بالعكس أيها الحبيب ياسر لقد أزحت عني حملا كنت حملت نفسي به ولاأجد الوقت جزاك الله خيرا