سليم حاصبيا

ما رايكم لو اختار المستخدم بنفسه النطاق الذي يسمح به بالكتابة Unprotect Only Choosen Range.zip

جرب هذا الملف ( الملف التي ررفعته كبير جداً حوالي 5 Mb ) ولا ادري ما السبب book.zip

يمكن ان يكون ما تريده البحث عن التكرار 1.zip

ربما كان هذا ما تريد count_in _All salim advenved.zip

جرب هذا الملف اذا اعجبك انقل الكود اليه مع التعديلات اللزمة count_in _All salim.zip

هل هذا المطلوب SAMI_SALIM.zip

1-اضغط على Ctrl مع الاستمرار بالضغط جدد الاوراق اللازمة 2- اترك زر Ctrl 3- حدد الخلية المطلوبة و اكتب على كل الاوراق المحددة دفعة واحدة 4- بعد الانتهاء كبسة يمين على اسم اي ورقة وثم احتر Ungroup

استبدل الكود بهذا Function myfacteur(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long '''''''''''''''''''''''''''''''''''''''''' Select Case Myfact Case 0 To 70 How_Many = Myfact * n1 Case 70.00001 To 80 How_Many = (70 * n1) + (Myfact - 70) * n2 Case 80.0001 To 200 How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3 Case Is > 200.001 How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4 End Select myfacteur = How_Many '''''''''''''''''''''''''''''''''''''''' End Function و يكون شكل المعادلة الجديدة =myfacteur(f3,5,9,15,17)

جرب هذا الملف بعد اذن اخي ياسر الدالة ابسط بكثير مما تتوقعه Reverse_function.zip

انسخ الكود من هذا الملف الى ملفك و جربه (في موديل جديد) و اكتب الدالة التالية في الخلية تحت فيمة الاستهلاك مباشرة واسحب نزولاً =myfacteur(f3,5,9,17) facteur_electrique.zip

جرب هذا لشيء sum_by_color.zip

تشكر اخي وائل بعد اذنك اضافة بسيطة Book1 salim.zip

انت تحتاج المسلسل كثيمة وليس( كمعادلة هذا كا ذكرت) و كيف تريد ام يعود بعد ان تحذفه؟؟؟ ممكن تعمل زر للماكرو كي يقوم بتفعيله كلما دعت الجاجة

عسى ان يكون هذا المطلوب numeration with filter macro.zip

جرب هذا الشيء المعادلة نعمل آلياً كلما زاد عدد الصفوف numeration with filter.zip

(جرب هذا الملف (صفحة 2 test salim.zip

نعض التعديلات على الملف ليتجاهل كل شيئ غير مرغوب فيه و (يمكن الكتابه به اللغة الاجنبية) /, . @ ,%, $ , "" ," " و غيره الكثير (انظر الى الصفحة Letters) مجموع حروف advanced.zip

بعد اذن الاساتذة الكرام نفس الشيء لكن بالمعادلات جلب بيانات من اكثر من شيت salim.zip

تعديل على المعادلة كي تتجاهل الفراغات =IF(A1<>"",SUM(MATCH(MID(SUBSTITUTE(A1," ",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A1," ","")))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"خ";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"") استاذ اسامة اذهب الى هذا العنوان لتجد ما يهمك امره عن معادلات لصفيف https://support.office.com/ar-sa/article/إرشادات-وأمثلة-لصيغ-الصفائف-3be0c791-3f89-4644-a062-8e6e9ecee523

بعد اذن اخي ياسر A لو كانت الكلمات في العامود اكتب هذه المعادلة واسحب نزولا ( معادلة صفيف) =IF(A1<>"",SUM(MATCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),{"ا";"ب";"ت";"ث";"ج";"ح";"ح";"د";"ذ";"ر";"ز";"س";"ش";"ص";"ض";"ط";"ظ";"ع";"غ";"ف";"ق";"ك";"ل";"م";"ن";"ه";"و";"ي"},0)),"")

اعتقد ان هذا المطلوب Dates Conditional Formating salim.zip

حسب ما فهمت من المشاركة اليك هذا الملف المعدل (انظر الى الورقة 2) بالنسبة لتمكين الماكرو افعل ما يلي 1-اضغط على التبويب Developer 2 -اختر Macro Security 3-macro sittings 4 - اختر اخر خيار ضع (ضع نقطة في اخر دائرة) 5-ضع علامة (صح)في المربع الوحيد 6 -Ok لائحة جاهزة اسعار الجملة 2015 salim 1.zip

جرب هذا الملف انه يعمل بشكل آلي بمجرد ما تغير شيئاَ في الجدول الثاني لائحة جاهزة اسعار الجملة 2015 salim.zip

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

1-اذهب الى الصفحة رقم 2 2- أضغط Alt+F11 يظهر لك الكود التابع لهذه الصفحة (هناك كودين) 3- في الكود الثاني اختر النطاق المناسب (في حالة الملف بين يديك من A6:A13) 4- قم بتعبئتة على هذا الشكل Range("a6") = "الباسورد الاول" Range("a7") = "الباسورد الثاني" Range("a8") = "الباسورد الثالث" و هكذا الى النهاية ثم احفظ الملف وهذا كل شيء