يحيى حسين

السلام عليكم و رحمة الله أخي تسجيل الماركو لن يظهر لك امر اظهر الديلوبوكس الخاص بعملية البحث بل سيظهر لك مسار عملية البحث فلقد قمت بعملية بحث عن اسمي من خلال تسجيل الماكرو و كان هذا هو الكود Range("D12").Select Cells.Find(What:="Yahya", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate و لكن ان رغبت في اظهار الديلوج بوكس الخاص بعملية البحث فيمكنك استخدام كود اخر لا يمكن الحصول عليه بالتسجيل من خلال الماكرو Sub Yahya() Application.Dialogs(xlDialogFormulaFind).Show End Sub

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

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

السلام عليكم و رحمة الله أخي شاهد هذه الروابط للأخ الأستاذ عمر الحسيني هذا الرجل الغائب الحاضر بيننا http://www.officena.net/ib/index.php?showtopic=29113&st=0&p=143217 http://www.officena.net/ib/index.php?showtopic=28824 دمت حفظ الله

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

السلام عليكم و رحمة الله و بركاته أخي الحبيب بن علية جزاك الله كل خير و هذا معادلة أخرى أبسط من معادلة الصفيف الأولى و هي معادلة صفيف أيضاً =INDEX(A:A,MIN(IF(COUNTIF($C$1:C1,$A$2:$A$11),2^16,ROW($A$2:$A$11)))) و لا ننسى أن نستخد المفايتح Ctrl+Shift+Enter ============ دمتم في حفظ الله

السلام عليكم و رحمة الله اخي الخالدي مبدع كعادتك و صاحب افكار جديد تدهشنا بها دائماً حفظك الله و رعاك دمت في حفظ الله

السلام عليكم و رحمة الله اخي لترتيب الدرجات و الفصول بعد استخدام هذه الدالة استخدم الدالة VLOOKUP

السلام عليكم و رحمة الله اخي لترتيب الدرجات و الفصول بعد استخدام هذه الدالة استخدم الدالة VLOOKUP

السلام عليكم و رحمة الله جربي هذه المعادلة في الخلية F2 =IF(E2="","",E2) دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته لإضافة الكود على ملفك أخي اتبع الخطوات التالية رايت كليك على اسم اي صفحة من صفحات المصنف و منها قم بإختيار View Code . ستفتح لكل شاشة VBE و منها ستظهر جميع اسماء صفحات المصنففي مربع حواري على اليمين اذا لم يظهر قم بالضغط على Clr+R . ستجد بعد اسم اخر صفحة صفحة تسمى ThisWorkBook دبل كليل عليها. ثم قم بإلصاق الكود . و في كل مرة ستقوم فيها بفتح الملف سيتم تفعيل الكود . ملاحظة : اذا كنت تعمل على النسخ 2007 او 2010 يججب ان تحفظ الملف بإمتداد Xlsm حتى يتم تففعيل الكود في كل مرة نفتح فيه الملف . ================= دمتم في حفظ الله

السلام عليكم و رحمة الله اخي طلبك ممكن ان شاء الله و لكن يا ريت لو ترفق ملف حتى تكون خطوات حلنا مطابقة لمى طلبته ======= دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته إضافة لحل الاخ و الاستاذ بن عليه هذا حل بمعادلات الصفيف و يغني عن عمل عامود اضافي في الخلية C6 ضع هذه المعادلة ثم أسحبها للأسفل =INDEX($H$6:$H$10,MIN(IF(($I$6:$I$10=LARGE($I$6:$I$10,ROWS($C$6:C6)))*ISNA(MATCH($H$6:$H$10,$C$5:C5,0)),ROW($H$6:$H$10)-ROW($H$6)+1))) لا تنسى أن تضغط Ctrl+Shift+Enter ============== دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته اضافة لحل الاخ بن علية جرب الكود التالي في حدث فتح الصفحة حيث سيتم اضافة التاريخ لجميع صفحات المصنف بلا استثناء Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Range("d1").Value = Date Next ws End Sub =========== دمتم في حفظ الله

السلام عليكم و رحمة الله اخي ابو العرايس اضافة لحل الاخ طارق يمكنك استخدام كود اخر مختلف جرب هذا الكود Sub Conditional() Dim c As Range, cl As Range, LR As Integer LR = Range("a" & Rows.Count).End(xlUp).Row For Each c In Range("A1:x1") If c.Value = "المعدل" Then For Each cl In Range(Cells(2, c.Column), Cells(LR, c.Column)) If cl.Value < 50 Then With cl.Font .Underline = xlUnderlineStyleSingle .ColorIndex = 6 .Bold = True End With End If Next cl End If Next c End Sub دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته اخي استخدام Ctrl+Shift+Enter مع المعادلات ذلك لكي يتعرف الاكسيل على ان هذه المعادلات هي معادلات صفيف و معادلات الصفيف هي نمط خاص من المعادلات في الاكسيل جرب هذه المعادلة بعد ان تقوم بكتابتها اضغط على كنترل ثم شفت ثم انتر ================ دمت في حفظ الله

السلام علكم و رحمة الله و بركاته أخي خالدي كل عام و انت بخير الميزة الإضافية PowerPivot تمكننا من التعامل مع ملاين الأسطر و ليس فقط 1048576 و تمكننا من انشاء علاقات بين عدة جداول و هي قوية لدرجة انها ستذهلك عندما تراها و ترى قدرتها على القيام بمهام الدالة vlookup في ربط النتائج و طبعا هذه القوة نابعة من استخدام SQL هذا اضافة لقدرتها على التحكم بمخرجات الجداول المحورية و تحديد لأعمدة التي ترغب بها على سبيل المثال و لكنها لا تعمل الا مع الاكسيل 2010 و هي أداة مجانية من شركة مايكروسوفت رغم الجهد الكبير الذي بذلته هذه الشركة العملاقة في بناء هذه الميزة الا انها طرحت مجاناً للمستخدمين هذا رابط التحميل http://www.microsoft.com/downloads/en/details.aspx?FamilyID=e081c894-e4ab-42df-8c87-4b99c1f3c49b&displaylang=en =================== أما بخصوص الحل للأخ فطلبه يفضل حله بإستخدام جدول اضافي افضل من طريقة نطاقات الدمج فبصراحة طريقة دمج النطاقات اعتبرها محددة و إستخدامتها في توجهات معينة لا يحتاجها الكل ================== جزاك الله كل خير اخي الحبيب الخالدي و دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته كمعلومة اضافية يمكننا الحصول على الترتيب مع وجود تكرار بإستخدام المعادلة التالية : =RANK(A2,$A$2:$A$7)+COUNTIF($A$2:A2,A2)-1 و يوجد في الإكسيل 2010 دالتين مستحدثتين للتعامل مع الترتيب الدالة الأولى : =RANK.AVG(A2,$A$2:$A$7) و هي تعيد متوسط القم المكررة و الدالة الثانية : =RANK.EQ(A2,$A$2:$A$7) و تعييد المرتبة الأولى للرقم المكرر ============== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي حسب معلوماتي انه لا يمكنك ربط جدولين مستقلين من خلال الجداول المحورية و لكن الحل يكون بإنشاء جدول جديد تستخدم فيه الدالة Vlookup على سبيل المثال لإستخراج نتائج تربط الجدولين و من ثم عمل جدول محوري من الجدول الجديد و لقد لاحظت انك تستخدم الاكسيل 2003 و لحل مشكلتك يوجد في الاكسيل 2010 AddIn جديدة اسمها PowerPivot تمكنك من انشاء علاقات بين الجداول و ربط اكثر من جدول من خلال الجداول المحورية ============== دمت في حفظ الله

السلام عليكم و رحمة الله يمكنك استخدام الدالة التالية =LARGE(A1:A10,2) حيث يشير الرقم 2 الى ثاني اكبر قيمة ========= دمتم في حفظ الله

السلام عليكم و رحمة الله إضافة لحلول الأخوة جزاهم الله كل خير يمكنك تجربة معادلة الصفيف التالية حيث تغنيك عن الاستعانه بأي اعمدة اضافية مع الحل =SUM(IF(TEXT($A$4:$A$20,"[$-10B0000]MMMM")=D2,IF($B$4:$B$20=$E$2,$C$4:$C$20))) و لا تنسى أن تضغط Ctrl+Shift+Enter

السلام عليكم و رحمة الله تفضل اخي هذا ملفك و به المطلوب إحصائية.rar

السلام عليكم و رحمة الله أخي شاهد هذا الرابط فعليه شرح لموضوع شبيه بموضوعك http://excel4us.com/blog/?p=161 =========== دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته عمل جميل اخي محمد جزاك الله كل خير

السلام عليكم و رحمة الله إضافة لحل الأخوين عادل و ياسر و اذا لا كنت ترغب في التعامل مع الأكواد و لا مع معادلات الصفيف يمكنك استخدام AdvancedFilter للحصول على قائمة بالاسماء غير المكررة ============ دمتم في حفظ الله