يحيى حسين

الحمد لله رب العالمين و بفضل من الله ثم رضا الوالدين و بفضل هذا المنتدى و المنتديات العربية و العالمية الأخرى المتخصصة في مجال الإكسيل, حصلت على شهادة MVP Most Valuable Professional و لله الحمد أني كا أول عربي حصل عليها و أسأل الله العلي القدير أن تكون بداية توفيق جديد لنا و أنا نخدم الأمة و أن ننفع بها أهلنا و أمتنا لله الحمد من قبل و من بعد

السلام عليكم أفضل معادلات للأرصده هي معادلة SUMIF جربها و ارفق ملف كما ذكر الأخ محمود حتى تجد المساعده دمتم في حفظ الله

ممكن ارفاق مثال 2003 لتعم الفائدة اخي هذه المعادلة تعمل على نسخة ال 2003 إذا واجهتك أي مشكلة قد تكون بسبب الفواصل إستبدلها بفاصلة منقوطة أخي في الله لما D9 مكررة مرتين اخ ياسر المشكلة كانت عند النسخ و اللصق و لقد قمت بتعديل المشكلة و هذا هو التعديل =LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D59) دمتم في حفظ الله

السلام عليكم و رحمة الله أولا أخي قم بتغيير معادلتك و لا داعي لوضع الرقم و احد و صفر بين "" Double Coutation و استخدم المعادلة التالية =IF(E5>1,"1",IF(D5>1,1,0)) و بعدها قم بتحديد العامود A و رايت كليلك من خلال خيارات تنسيق الخلايا اختر مخصص و استخدم التنسيق التالي : #;#; دمتم في حفظ الله

السلام عليكم و رحمة الله على نفس ملف الأخ حسام في المشاركة الثالثة و لكن مع بعض التعديل في أن تكون أسماء الفصول في العامود D معمول لها فرز Sort إستخدم المعادلة التالية في الـ datavlidation =OFFSET($E$2,MATCH($A$2,$D$3:$D$14,0),0,COUNTIF($D$3:$D$14,$A$2)) دمتم في حفظ الله

الموضوع منور فيك و في الأخوة بارك الله فيهم

السلام عليكم أخ محمد يمكنك الحل بدون إستخدام معادلة صفيف و بدون الحاجة لأي أعمده مساعده بإستخدام المعادلة التالية =LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D59) دمتم في حفظ الله

أخ ياسر جزاك الله كل خير و أتمنى أن يستفيد الأخوة من الملف و من الشروحات فيه دمت في حفظ الله

السلام عليكم و رحمة الله إستخدم هذه الطريقة اخي بجاني القائمة الأولى إستخدم المعادلة التالية =ISNUMBER(MATCH(ValInList1,List2,0)) طبعاً أخي الفاضل قم بتغيير ValInList1 بمرج الخلية المنوي البحث عنه و الـ List2 هي القائمة التي تريد البحث فيها إن كانت النتيجة True فمعناها أن القيمة موجودة ============ و أيضاً يمكنك إستخدام نفس المعادلة في التنسيق الشرطي حدد المجموعة الأولى و من خيارات Home Conditional Formatting New Rule Use a formula... إستخدم نفس المعادلة و إختر التنسيق الذي يناسبك أتمنى أن تكون الصورة واضحة دمت في حفظ الله

اللهم آمين

السلام عليكم و رحمة الله أخي أحمد جرب المعادلة التالية ضعها في الخلية B2 و ثم إسحبها لليمين و للأسفل و ستعطيك النتيجة المرجوة إن شاء الله =VLOOKUP($A1,INDIRECT("'" & COLUMN(A1) &"'!$A$1:$B$3"),2,0) دمتم في حفظ الله

السلام عليكم و رحمة الله يمكنك عمل ذلك من خلال إخفاء جميع الصفحات في الملف و أن لا تظهر إلى في حالة إستدعائها و لإخفاء جميع الصفحات مع إخفاء التاب أيضاً إستخدم الكود التالي في حدث فتح الملف Private Sub Workbook_Open() Dim ws As Worksheet ActiveWindow.DisplayWorkbookTabs = False For Each ws In Sheets If ws.Name <> "home" Then ws.Visible = xlSheetVeryHidden End If Next ws End Sub

السلام عليكم و رحمة الله الأخ محمود إضافة لمى قدمه الأخ سليم و الاخت ام عبدالله هناك نقطة مهمه تسهل عمل المعادلات بدلا من الدخول في التعقيدات طريقة ترتيبلك للبيانات خطأ , قم بترتبيها بشكل قاعدة بيانات و أن تكون البيانات بشكل عامودي و ستجد أن الموضع سيحل بأبسط المعادلات المندوب التاريخ صنف الكمية أتمنى أن تكون الصورة إتضحت لك دمتم في حفظ الله

السلام عليكم و رحمة الله أخي مصطفى المشلكة في إن النظام الذي تعمل عليه يقوم بإخراج الأرقام في الإكسيل على أنها نص إستخدم الدالة Isnumber للتأكد من طبيعة الرقم و يوجد عدة حلول للتعامل مع هذه المشكلة و من أسهلها و أسرعها استخدم TextToColumn حدد النطاق الذي يحتوي الأرقام. من تاب data اختار TextToColumn و مباشرة اضغط على Finish و سيقوم الإكسيل تلقائياً بتحويلها لأرقام و بعدها جرب عملية الجمع او اي عمليه حسابية راح تتم ببساطة دمتم في حفظ الله

السلام عليكم و رحمة الله أخي جرب الكود التالي رايت كليلك على اسم الصفحة Sheet1 و استخدم هذا الكود و سيقوم بإضافة كل ما استلمه الموظف في الخلية المجاورة Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Dim LR As Long Dim c As Range Application.EnableEvents = False Set ws = Sheets("data") LR = ws.Range("D" & Rows.Count).End(xlUp).Row If Not Intersect(Target, Range("A:A")) Is Nothing Then For Each c In ws.Range("D3:D" & LR) If c.Value = Target Then Target.Offset(, 1).Value = Target.Offset(, 1).Value & "-" & c.Offset(, 2).Value End If Next c End If Application.EnableEvents = True MsgBox "done" End Sub و لكن لي ملاحظة و هي أن يتم بناء صفحة استعلام بحيث يقوم الإكسيل بوضع النتائج لموظف واحد في كل حركة و هي أفضل من الطريقة التي تستخدمها أنت دمت في حفظ الله