يحيى حسين

السلام عليكم و رحمة الله أخي جرب هذا الكود Private Sub Worksheet_Activate() Dim Feuille As Worksheet ComboBox2.Clear ComboBox2.Text = "الرائيسية" For Each Feuille In ThisWorkbook.Worksheets ComboBox2.AddItem Feuille.Name Next End Sub و قم بتغير حدث الكموبوكس في كودك الأول الى الحدث التالي Private Sub ComboBox2_Click() M = ComboBox2 Sheets(M).Select End Sub دمت في حفظ الله

السلام عليكم و رحمة الله أخي حازم استخدام الدالة trim بهدف حذف الفراغات قبل و بعد اي محتوى خلية ============= و الأخ كيماس معادلتك ليست معادلة صفيف و بناء على ذلك فهي ليست بحاجة الى Ctr+Shift+Enter و من ناحية أخرى لقد قمت بزيادة معادلة أخرى داخل الخلية و ليس لها أي ضرورة و هي دالة mid الثانية جرب أخي هذه المعادلة =MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890)),6) ============ بخصوص ملاحظتك أخي حازم و حتى نجل المعادلة تقوم بإستخراج أي رقم مهما بلغ طول هذا الرقم إستخدم المعادلة التالية =MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890)),SUMPRODUCT(--(ISNUMBER(1*MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))))) =============== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي بما ان الجمع بمعيار واحد يمكنك استخدام SumIF و هي متوافقة مع كل نسخ الإكسيل جربها =SUMIF($A$2:$A$23,F2,$C$2:$C$23) دمتم في حفظ الله

الله عليك أستاذ يحي زرت مدونتك و موقعك على الفيس بوك بصراحة شغل جميل و مفيد و رائع جعله الله في ميزان حسناتك جزاك الله كل خير اخي و اهلا بك في أي وقت دمت في حفظ الله

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

السلام عليكم و رحمة الله و بركاته أخي هذه الطريقة تعتمد على تاريخ الفاتورة و تاريخ الجهاز و تحسب الفرق بينهما و بناء عليه تقوم بإعطاء التقرير في الخلية B3 ضع المعادلة التالية =SUMIF(invo!$E$3:$E$80,Anal!A3,invo!$A$3:$A$80) في الخلية C3 ضع المعادلة التالية =SUM(IF(invo!$E$3:$E$80=$A3,IF(TODAY()-invo!$C$3:$C$80>=1,IF(TODAY()-invo!$C$3:$C$80<=30,invo!$A$3:$A$80)))) في الخلية D3 ضع المعادلة التالية =SUM(IF(invo!$E$3:$E$80=$A3,IF(TODAY()-invo!$C$3:$C$80>=31,IF(TODAY()-invo!$C$3:$C$80<=60,invo!$A$3:$A$80)))) في الخلية E3 ضع المعادلة التالية =SUM(IF(invo!$E$3:$E$80=$A3,IF(TODAY()-invo!$C$3:$C$80>=61,IF(TODAY()-invo!$C$3:$C$80<=90,invo!$A$3:$A$80)))) في الخلية F3 ضع المعادلة التالية =SUM(IF(invo!$E$3:$E$80=$A3,IF(TODAY()-invo!$C$3:$C$80>=91,IF(TODAY()-invo!$C$3:$C$80<=120,invo!$A$3:$A$80)))) في الخلية G3 ضع المعادلة التالية =SUM(IF(invo!$E$3:$E$80=$A3,IF(TODAY()-invo!$C$3:$C$80>=120,invo!$A$3:$A$80))) و لا تنسى ان كل هذه المعادلات معادلات صفيف يجب الضغط على Ctrl+Shift+Enter دمت في حفظ الله

السلام عليكم و رحمة الله أخي في حدث فتح الملف ضع الكود التالي Private Sub Workbook_Open() Sheets("sheet1").Activate End Sub

السلام عليكم و رحمة الله و بركاته أخي حازم على نفس مبدأ حل الاخ عبدالفتاح ولكن مع إضافة بسيطة =MID(TRIM(C3),3,6) دمت في حفظ الله

السلام عليكم و رحمة الله أخي يمكنك استخدام معادلة الصفيف التالي : =AVERAGE(IF($C$3:$C$14=F6,IF($D$3:$D$14>0,$D$3:$D$14))) و لا تنسى أن تضغط Ctrl+Shift+Enter و شاهد التدوينة التالية لفهم المعادلة أعلاه و لمشاهدة طرق أخرى للحل http://excel4us.com/blog/?p=335 دمتم في حفظ الله

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

السلام عليكم و رحمة الله اخي تقريرك في الصفحة الثانية جاهز اين المشكلة في التقرير

السلام عليكم و رحمة الله أخي في نفس لفورم أضف زر خروج ثم أضف الكود التالي Private Sub TextBox1_AfterUpdate() Dim MyT As Long, LR As Long LR = Range("a" & Rows.Count).End(xlUp).Row MyT = WorksheetFunction.Match(Val(TextBox1.Value), Range("a1:a" & LR), 0) Debug.Print MyT Label1.Caption = Range("b" & MyT).Value Label2.Caption = Range("c" & MyT).Value Label3.Caption = Range("d" & MyT).Value Label4.Caption = Range("e" & MyT).Value End Sub دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته إضافة لحلول الأخ بن عليه يمكنك استخدام الدالة Lookup و هي افضل البدائل عن الدالة If و شكلها العام =LOOKUP(lookup_value,lookup_vector,result_vector) lookup_value هي القيم موضع البحث lookup_vector هي القيم التي سنبحث خلالها عن القيم موضع البحث result_vector هي النتائج المقابلة للقيم موضع البحث و يجب ان تكون الأرقام في ترتيب تنازلي و عليه ستكون الدالة حسب الإحتمالات التي طلبتها انت هي : =LOOKUP(F11,{1;2;3;4;5;6;7;8;9},{200;165;14;131;126;95;82;81;11}) دمت في حفظ الله

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

السلام عليكم و رحمة الله أخي معادلة جميله و هي من روائع معادلات الإكسيل, و انا أستخدمها بالشكل التالي عند إحتساب أي عمر : ="عمر الطالب "&DATEDIF(A3,$A$1,"Y")&" سنة و "&DATEDIF(A3,$A$1,"YM")&" أشهر و " & DATEDIF(A3,$A$1,"MD") &" يوم " دمت في حفظ الله

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

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

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

السلام عليكم و رحمة الله اخي علي طبيعة الربط تكون بتصميم جدول على الاكسيل و من ثم نسخه و لصقه في الورد و حتى يكون الجدولين مرتبطات عند اللصق في الورد اختر خيارات اللصق الخاص و يوجد خيار فعله اسمه Past Link فعله و اختر من الخيارات As HTML Format ================ في الاوفيس 2010 يوجد خيارات اكثر

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

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

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

السلام عليكم و رحمة الله أخي الحبيب خبور شكراً على مرورك الطيب دمت في حفظ الله

السلام عليكم أيضاً في الخلة AJ2 يمكنك إستخدام المعادلة التالية =INDEX($B$2:$F$190,MATCH(AJ$1,$A$2:$A$190,0)+CHOOSE(MATCH($J2,{1003,1005,1006,1007},0),1,2,3,4),MATCH($K2,$B$1:$F$1,0))

السلام عليكم و رحمة الله في الخلية AI2 ضع المعادلة التالية =INDEX($B$2:$F$190,MATCH(AI$1,$A$2:$A$190,0)+MATCH($J2,OFFSET(INDEX($A$2:$A$190,MATCH(AI$1,$A$2:$A$190,0)), 0,0,MATCH(7,LEN(INDEX($A$2:$A$190,MATCH(AI$1,$A$2:$A$190,0)+1):$A$190),0),1),0)-1,MATCH($K2,$B$1:$F$1,0)) و في الخلية AJ2 ضع المعادلة التالية =INDEX($B$2:$F$190,MATCH(AJ$1,$A$2:$A$190,0)+MATCH($J2,OFFSET(INDEX($A$2:$A$190,MATCH(AJ$1,$A$2:$A$190,0)), 0,0,5,1),0)-1,MATCH($K2,$B$1:$F$1,0)) و المعادلتين أعلاه معادلات صفيف فلا تنسى الضغط على Ctrl+Shift+Enter دمت في حفظ الله