Ali Mohamed Ali

يمكنك استخدام هذه المعادلة لطلبك ..معادلة مصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(Table2[التاريخ],SMALL(IF(Table2[اسم الموقع/ المخزن]=$C$3,ROW($A$4:$A$11)-ROW($A$4)+1),ROWS(A$1:A1))),"") كشف حساب مشروع1.xlsx

وعليكم السلام -تفضل بهذه المعادلة سحباً لليسار ثم الى الأسفل =COUNTIFS(data!C$2:C$1000,"<>"&"",data!$A$2:$A$1000,$B4,data!$B$2:$B$1000,1) trasnport1.xlsx

فقط يمكنك استخدام هذه المعادلة أو بعمل تنسيق للخلايا بأن يكون تنسيق الخلية يوم وليس تاريخ B2dddd =TEXT(B3,"b2dddd") هاجر البصمة1.xlsx

كان عليك استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبه طلبك -تفضل https://www.officena.net/ib/search/?&q=تفقيط مساحة&search_and_or=and&sortby=relevancy

أحسنت استاذ عادل عمل رائع شكراً جزيلاً لجهودكم

بارك الله فيك وزادك الله من فضله

ألف مبروك على التهنئة وبالتوفيق والنجاح دائماً

وعليكم السلام .. يمكنك استخدام هذه المعادلة فى عمود المعدل G =F2/COUNT(B2:E2) وهذه المعادلة لعمود الحالة E =IF(D11<>"","مفصول",IF(C11<$A$9,"متخرج","مزاول")) كتابة الدالة1 if.xlsx

وعليكم السلام-تفضل على الرغم انك لم تقم برفع ملف توضيحى لطلبك =LEN(A1)

تفضل

بسيطة يمكنك استخدام هذه المعادلة فقط =SUMIFS($C$4:$C$17,$F$4:$F$17,"<>"&"مسدد",$B$4:$B$17,"<"&$H$2) 6.xlsx

تفضل بالتنسيقات الشرطية 1.xlsx

وعليكم السلام-تفضل هذه المعادلة =IF(AND(C10>=900,C10<=1000),"متميز",IF(AND(C10>=701,C10<=899),"متفوق",IF(C10=700,"مؤهل",IF(C10="محلول","محلول","")))) وهذه معادلة العمود E =IF(C10="محلول","0%",C10/1000) المصنف2 (1).xlsx

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

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

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

تفضل لك ما طلبت العملاء.xlsm

تفضل وأكثر مما تريد فورم ادخال وتعديل وحذف.xlsm

وعليكم السلام-جرب هذا =IF(INT(C2)<>C2,C2+1.5,C2) 1اضافة عدد للكسر.xlsx

أكرمك الله استاذ مجدى وأحسن الله اليك

بارك الله فيك استاذ مجدى وزادك الله من فضله

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

بارك الله فيك استاذ مجدى وزادك الله من فضله

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

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