يحيى حسين

الحمد لله رب العالمين و بفضل من الله ثم رضا الوالدين و بفضل هذا المنتدى و المنتديات العربية و العالمية الأخرى المتخصصة في مجال الإكسيل, حصلت على شهادة 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 و لكن لي ملاحظة و هي أن يتم بناء صفحة استعلام بحيث يقوم الإكسيل بوضع النتائج لموظف واحد في كل حركة و هي أفضل من الطريقة التي تستخدمها أنت دمت في حفظ الله

السلام عليكم و رحمة الله في هذه الحال لا أفضل إستخدام معادلة Vlookup التي إستخدمها الأخ جمال و ذلك بسبب الحاجة إلى زيادة عامود إضافي لدمج المعايير و الأفضل هو إستخدام معادلة Lookup بالطريقة التالية =LOOKUP(2,1/((B2:B5=G1)*(C2:C5=H1)*(D2:D5=I1)),E2:E5) فهي تضمن البحث و إعطاء النتيجة عند تحقق جميع الشروط و بدون أي أعمدة إضافية على البيانات

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

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

السلام عليكم و رحمة الله معادلة جميلة أخي سعيد و لكن المعادلة في العامود B ليست بحاجة ان تكون معادلة صفيف فالصفيف الثابت بها يغني ================== و لقد شاهدت محاولتك لإستخدام المعادلة التالية لفصل الأرقام =IFERROR(MID(C1,MATCH(TRUE,CODE(MID(C1,ROW(INDIRECT("1:"&LEN(C1))),1))>57,0),LEN(C1)),"") و يمكنك التعديل عليها لتصبح بهذا الشكل =MID(A1,MATCH(TRUE,ISNUMBER(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1),0),LEN(A1)) دمتم في حفظ الله

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

السلام عليكم و رحمة الله أخي عند وضع علامة يساوي يعرف الإكسيل على الرمز A2 على أنه مرجع خلية و ليست قيمة مدخله

الأساذ جورج قم بتغيير الفاصلة بفاصلة منقوطة

السلام عليكم و رحمة الله أخي يوجد الكثير من الشروحات في المنتدى لموضوع الفيجوال بيسك و ستجدها من ضمن المواضيع المثبته

السلام عليكم و رحمة الله أخي ملفات الأخ ابو حنين تعمل بشكل صحيح و لكن في حال زيادة عدد الصفوف قم بإستبدال كلمة Dataبالنطاق الجدول!$A:$U و ستعمل بشكل صحيح إن شاء الله

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