أ / محمد صالح

ولماذا حذفت الكود كله؟ يمكنك الاستفادة من هذا الموضوع في تشغيل الساعة مع القدرة على العمل في الملف بصورة طبيعية بالتوفيق

حل جميل استاذ @ميدو63 رغم أأني أميل للاختصار أكثر وعدم اللخبطة في الترتيب بالتوفيق

كما توقعت المشكلة في نوع بيانات الخلايا D2:G601 حيث أنها نص text وليست رقما number لذلك يجب تحديد النطاق المطلوب ثم الضغط على المثلث الأصفر الذي يظهر أنه يوجد خطأ في هذه الخلايا ثم اختيار تحويل إلى رقم convert to number بعدها أي معادلة سيتم استعمالها وسحبها لأسفل ستعمل بنجاح وهذا ملفك بعد تنفيذ هذه الخطوات بالتوفيق الافواج - Copie.xlsx

جميعا بإذن الله

جميعا بإذن الله

يمكنك استعمال هذه المعادلة في الخلية H4 مع سحبها لأسفل =IF(IF(MOD(ROW(),3)=1,$H$1,IF(MOD(ROW(),3)=2,$H$2,$H$3))<>500,0,F4+G4) وتعني لو باقي قسمة رقم الصف الحالي على3 يساوي 1 يستعمل الخلية h1 ولو الباقي 2 يستعمل h2 وهكذا بالتوفيق

مازال المطلوب غير واضح لي بصورة كافية في الصف السابع مثلا بعد نهاية 3 صفوف هل الشرط يكون مرتبط ب H4 ام ماذا؟

ما المطلوب من المعادلة؟؟؟ هل إذا كان مجموع $H$1:$H$3 لا يساوي 500؟ أم ماذا الشرح باستفاضة يساعدك في الوصول للحل

هذه الميزة متوفرة في تطبيق الصور photos في ويندوز 10 يمكنك مراجعة هذا الرابط بالتوفيق

جميعا بإذن الله

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

يمكنك استعمال هذه المعادلة في الخلية E44 للحصول على القروش =IF(A44>=E43,0,100)+A44-E43 وهذه المعادلة في F44 للحصول على الجنيهات =B44-IF(A44>=E43,0,1)-F43 بالتوفيق

جميعا بإذن الله

الكود يرتب الأسماء المكتوبة فقط يعني لو مكتوب في العمود B خمسين اسم يرتب من B5:B54 وهذا هو التعديل الذي تمت اضافته مني لان الكود القديم يرتب 200 صف بغض النظر عن عدد الأسماء رجاء دراسة الكود جيدا قبل الرد

* بالنسبة لتغيير الهوايات ضمن الاربعة الحاليين فلا مشكلة في معادلات المطلوب الأول (مناسب أو غير مناسب) أما إذا أضفت هوايات جديدة فهذا يلزم إعادة تنظيم للمعادلات لتناسب الوضع الجديد (تغييرات ببسيطة لا تخفى عليك) ولعل حضرتك لاحظت أن النطاق في شيت Data إلى الصف 11 فربما تحتاج إن تزيده إلى 1000 مثلا أو حسب الأعداد لديكم * وكما قلت سابقا المطلوب الثاني يتم عرض أفراد المجموعة كلها واختيار البديل يدويا ويمكنك استعمال معادلات البحث المعروفة لحضرتك في هذا الجدول الذي به أفراد المجموعة للوصول إلى أول فرد بجانبه كلمة مناسب بالتوفيق

في هذه الحالة نرجع لنقطة الصفر التي كان ينبغي البدء منها يفضل إرفاق ملفك

هو بالفعل يرتب جميع الأعمدة الزوجية التي بها الاسم

في هذه الحالة انصحك بإلغاء تثبيت الاوفيس ثم تثبيته مرة أخرى

إذا كان الهدف اختصار الكود فجرب هذا تم تحويل النطاق من range إلى cells للتحكم في رقم العمود بدلا من الحرف الخاص به Sub mySort() For c = 2 To 48 Step 2 Range(Cells(5, c), Cells(Cells(Rows.Count, c).End(xlUp).Row, c)).Sort Key1:=Cells(5, c), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal Next c MsgBox "Done by mr-mas.com" End Sub بالتوفيق

جرب استعمال هذا السطر Private Sub comboBox1_Change() TextBox1.Value = Evaluate("=MAXIFS(Sheet2!A:A,Sheet2!C:C,""" & ComboBox1.Value & """)+1") End Sub باستعمال maxifs تقريبا تعمل في اوفيس 2013 وما بعده ويمكن استعمال هذا السطر لنسخ الأوفيس القديمة TextBox1.Value = Evaluate("=MAX(IF(""" & ComboBox1.Value & """=(Sheet2!C$2:C$100),(Sheet2!A$2:A$100)+1,1))") بالتوفيق

لا مشكلة في الكود والترحيل صحيح فقط قم بحذف السطور المكتوبة بالأسفل تقريبا في الصف 202 وسيرحل بعدها الى بعد 100 بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية B9 للحصول على المطلوب الأول =IF(SUMPRODUCT(IF($B$1:$B$4=TRUE,1,0),TRANSPOSE(INDEX(Data!$C$2:$F$11,MATCH(B8,Data!$B$2:$B$11,0),{1,2,3,4})))=SUM(IF($B$1:$B$4=TRUE,1,0)),"","غير ")&"مناسب" وبالنسبة للمطلوب الثاني يمكن الوصول لجميع أفراد المجموعة التي منها هذا الاسم ومعرفة ومن منهم مناسب ومن منهم غير مناسب في الخلايا D1:I7 ويمكن سحب المعادلة في العمود D & E لأسفل إذا زاد عدد المجموعة وهذا لاختيار البديل يدويا كما في الملف المرفق بالتوفيق المناسب للهوايات المختارة.xlsx

عملية التصفية الفترة تعتمد على إخفاء الصفوف التي لا تنطبق عليها الشروط ونركز على كلمة الصفوف حيث يتم إخفاء الصف كله فلو كان في نفس الصف بيانات سيتم اخفاؤها و للاحتفاظ ببيانات معينة بعد التصفية يجب وضعها قبل او بعد نطاق التصفية بالتوفيق

هذا الأمر تكرر كثيرا يمكنك الاستفادة من هذه المواضيع بالتوفيق

* يمكنك ضبط تنسيق الخلايا إلى احتواء تلقائي shrink to fit وذلك بتحديد الخلايا المطلوب تنسيقها ثم كلك يمين ثم تنسيق الخلايا format cells ومن التبويب الثاني تحتار احتواء مناسب shrink to fit * وتصغير عرض الأعمدة يدويا إلى أن تظهر كاملة من خلال الضغط مع السحب على الخط الفاصل بين العمودين بعد تحول السهم إلى سهمين متقابلين أفقيا وللعلم هذه اساسيات التعامل مع إكسل ينبغي تعلمها قبل تصميم أي يبرامج بالتوفيق