خالد الرشيدى

السلام عيكم
اخى الكريم فهمت ما تريد ولكن كتابة معادلة تختلف عن العمل اليدوي حيث .. إذا كتبت بالمعادلة اكبر من او =  75%    و    اقل من  85 % .. إذاً بمجرد الوصول الى نسبة ال 75% سيتم التظليل ثم التوقف في حين انك يدويا يمكن ان  تستمر في التظليل لحين الوصول الى النسبة التى تري انها الانسب ما بين 75 و 85  .. لهذا لابد من كون هناك نسبه محدده .. او ان تقل مثلا بمجرد الوصول الى 80% و مقبول ان زادت القيمة عن هذه النسبة ب  100 او 200 او 300 او 1000  او .... كان عليك ان تحدد ذلك 
بالملف المرفق تجد الحل .. اذا وصلت القيمة الى النسبة 80% او اقل قليلاً  ./. اقرب قيمة الى نسبة 80% او تساويها( وليس اكبر منها فلا يمكنني ان اكتب او اكبر لانه عندها سيتم تظليل كافة المنتجات .. إلا ان تقوم بتحديد اكبر بكم 100 او 20.........) 
=IF((SUMIF($A$2:$A2,$A2,$D$2:$D2))<= (SUMIF($A$2:$A$1000,$A2,$D$2:$D$1000)*0.8),1,0) Best1_3.zip

السلام عليكم
بعد اذن الاستاذ عبد السلام جزاه الله خيراً 
اخى الكريم جرب الملف التالى - معادله بالخليه لتحديد النص ( ممنوع / مسموح ) الطباعة    - وهناك معادلات تنسيق شرطى لتغيير اللون حسب القيمه 
معادلة شرطية_3.rar

السلام عليكم
تفضل اخي الكريم عله المطلوب 
كما يفضل ان تلغي تنسيق format as table 
في صفحه كارت الصنف لانه الان مجرد نطاق لنسخ نتائج البحث من خلال الكود... 
حركة يومية.rar

السلام عليكم
تفضل اخي الكريم علة المطلوب
=IFERROR(INDEX(invoices,SMALL(IF(invoices[Invoice Code]=$B$5,ROW(invoices[Invoice Code])-3),ROW(1:1)),4),"") Invoice tracker1 - Copy_2.zip

السلام عليكم
انظر المرفق عله المطلوب
student.rar

السلام عليكم
اخى الكريم ادرج ملف مشروح به المطلوب للعمل عليه 

السلام عليكم
تفضل اخي الكريم عل هذا ما تقصد
Sub K_print() 'C من الصف 9 الى اخر صف به بيانات بالعمود D9:K طباعة النطاق 'printpreview بـــ PrintOut ان اردت المعاينه قبل الطباعه استبدل Range("D9:K" & Cells(Rows.Count, "c").End(xlUp).Row).PrintOut End Sub  

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

انظر المرفق عله المطلوب تماماً 
تم حذف الارتباطات -
New Microsoft Excel Worksheet.zip

السلام عليكم
تفضل اخى الكريم - انتبه لابد قبل غلق الاكسيل - من وجود زر يمكنك خلاله الدخول الى الشيت 
-- اضغط زر الخروج اذا اردت الدخول الى الشيت --
1 - Copy.rar

السلام عليكم
انظر المرفق عله المطلوب -
القيد العام.rar

السلام عليكم
اخى الكريم -هناك اكثر من طريقة لتنفيذ ذلك - منها تنسيق التاريخ نفسه بدون معادلات  - ومنها باستخدام المعادلات - ضع هذه المعادلة بالخلية B1
=TEXT(A1,"mmmm")  
 
وعليكم السلام
بارك الله فيك أخي العزيز الغالي خالد الرشيدي وجزيت خيراً على كل ما تقدمه لإخوانك
لإثراء الموضوع جرب الطريقة التالية

السلام عليكم
انظر المرفق
test.rar

اخى الكريم 
راجع المرفق وابدى ملاحظاتك 
المخزن 878_6.rar

السلام عليكم 
تفضل عله المطلوب - كان من الممكن ان يكون الكود ابسطمن ذلك بكثير - ولكن تحسباً لكون عدد التكست بوكس يكون كبير او ما الى ذلك - اليك الكود التالى 
Dim r As Long Private Sub CommandButton1_Click() Dim i As Integer Me.TextBox5.Value = "" For i = 1 To 4 Me.TextBox5.Value = Val(Me.TextBox5.Value) + Val(Replace(Me.Controls("TextBox" & i).Value, ",", "")) Next r = r + Val(Me.TextBox5.Value) Me.TextBox6.Value = r For i = 1 To 4 Me.Controls("Textbox" & i).Value = "" Next End Sub ان لم يكن المطلوب - يرجي مزيد من التوضيح التفصيلى 

السلام عليكم
استخدم السطر التالى عله المطلوب -- ان كان ما تريد حدد الموضوع كمجاب 
ActiveCell = Evaluate("=SUM(A" & d & ":a" & e & ")") تقبل تحياتى 

اخي الكريم 
لا داعى لمعادلة التكويد الى حضرتك ساحبها هى والتنسيقات  لاخر صف بالصفحة !!!!!! ألا يهمك ان يكون الملف خفيف وسهل الاستخدام ؟؟؟
التكويد يتم من خلال نفس الكود -- تم الابقاء على تنسيقات 1000 صف وحذف الباقي حفاظاً على الملف كحجم وك ثبات - عند الانتهاء منها يمكنك تطبيقها بالسحب على الف اخرى وهكذا 
انظر المرفق وابدي ملاحظاتك - ان كان هو ما تريد حدد الموضوع كمجاب 
مخزن.rar

السلام عليكم ورحمة الله
اساتذتى واخوتى  شاكر مروركم الكريم  .. جزاكم الله خيرا
اخوتى الكرام سبق ان اشرت ان  هذا الكتاب  كان فى بداية تعلمى للغه وهو عمل مترجم وكان الهدف من ترجمتة هو التعلم اولا ثم قمت بمشاركته فى المنتدى عله يمثل اضافه  ,, واعتقد انه ليس مرجعا قويا ومناسباً لمن اراد تعلم اللغه رغم ما يحويه من بعض الامور الهامه لهذا .. اعدت صياغة الكتاب بعد تعلم اللغه بشكل وافى والحمد لله وهو عمل شخصى وليس عمل مترجم ..تجدوه على الرابط التالى :
سلسلة .... من أين أبدأ .... الجزء الاول

هكذا
=MROUND(((U4/100)*40);10) او هكذا
=MROUND((U4/100*40);10) والان ارجو تحديد الموضوع كمجاب واى استفسار اخر قم بطرحة فى موضوع جديد تحت عنوان معبر عن الطلب
خالص تحياتى

اخى الكريم
الحمد لله على انك قد وصلت الى ما تريد
اما عن الاضافة فهى
TextBox1_Change فى نهاية كود التعديل
والان قم بتحديد الموضوع كمجاب
تقبل تحياتى

اخى الكريم
اجعل المعادلة بهذا الشكل
=IFERROR(Q5*P5;"") والان ارجو تحديد الموضوع كمجاب
تقبل تحياتى

اخى الكريم
اليك المرفق بعد وضع المعادلة
احد المعادلات فى الخلية N20 والاخرى  F20
 الصف الاول الثانوي بنين- 2015.rar
 
 
 

اخى الكريم
فى هذا الحدث
Private Sub ListBox1_Click() قم بحذف هذا السطر
Me.TextBox1.Value = ""  

الســــلام عليكم
يمكن استدعاء تقريبا كافة معادلات الاكسيل فى ال VBA  باستخدام الامر                                       Application.Worksheetfunction     
وهو ما فعلتة حضرتك واستدعيت الدالة   SUMIF   ولكن    MAXIF     و      MINIF     ليست ضمن معادلات الاكسيل وانما تم مزج  IF  مع   MAX     فى معادلة صفيف   CTRL+SHIFT + ENTER    لايجاد اكبر قيمة بشرط  ... وكذلك الحال فى MINIF
                    لهذا لاحظ ما يلى
                              
                         
 
                             
يلاحظ عند استخدام   Evaluate   تم قراءة المحتوى ما بين ال   "  "  اى ال  1+1   كمعادلة  وتم ارجاع الناتج  على خلاف  FORMULA التى نسخت المعادلة الى الخلية
 وسنستخدم  Evaluate  فى تنفيذ MAXIF  و  MINIF 
Range("D7").Value = Evaluate("=MAX(IF(D10:D13=B11,$E10:$E13))") Range("D15").Value = Evaluate("=Min(if(D10:D13=B11,E10:E13))") لاحظ كيف تم كتابة المعادلة بدون استخدام وسائط الاشارةالى النطاقات فى ال VBA  ك   RANGE  او ...  فقط تم كتابة المعادلة وكانها تكتب على ورقة العمل  ما بين ("  ")
ولكن  كيف سيعرف الاكسيل صفحة العمل التى تحوى تلك النطاقات  فقط لاحظ ما يلى
Range("D7").Value = Worksheets(" ورقة1 ").Evaluate("=MAX(IF(D10:D13=B11,$E10:$E13))") Range("D15").Value = Worksheets(" ورقة 1 ").Evaluate("=Min(if(D10:D13=B11,E10:E13))")  
اليك المرفق
 دالة MAXIF -MINIF.rar
 
 

اسفل هذا الحدث
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ضع هذه الجملة
Me.TextBox1.Value = "" بين هاتين السطرين
End If Me.TextBox1.Value = "" End Sub