أ / محمد صالح

ملفك رائع وبسيط أحييك على هذا العمل تكمن مشكلة بطء الملف في اعتمادك على معادلات المصفوفات بكثرة واستعمالها في عدد كبير من الصفوف 15000 صف لذلك إذا اقتصرنا على عمود واحد فيه هذه المعادلة التي تجلب الأرقام الفريدة في عمود الموديل سيكون الملف أسرع وعليه لقد قمت بإضافة عمود M في شيت الوارد وبه معادلة الموديل بدون تكرار (يمكن إخفاء هذا العمود) وسحبتها إلى 20 صفا فقط وإذا زادت أعداد الموديلات يمكن سحب المعادلة لأسفل أي عدد من الصفوف ولكن بدون زيادة عن الحاجة ثم قمت بجلب القيم الموجودة في هذا العمود في شيت المخازن والتسعير بمعادلة خفيفة جدا وتم سحب معادلات سيت المخزون والتسعير إلى 1000 صف فقط حيث أنه من غير المنطقي التعامل مع أكثر من 1000 صنف وإذا احتجت زيادة يمكن سحب المعادلات إلى أي عدد من السفوف بالتوفيق 2 نموزج مخازن معتز.xlsb

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

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

أعتذر لضيق الوقت لدي إذا بدأت حضرتك واحتجت أي مساعدة في نقطة أو اثنين يمكنك عرضها هنا في المنتدى في موضوع جديد لكن المنتدى لا يقوم بإنشاء برامج كاملة للآخرين (اللهم إلا إذا كانت مدفوعة الأجر بما يساوي وقت وجهد من قام بها) أو يمكنك البحث في المنتدى فالمنتدى مليء بالكنوز تحتاج فقط من يبحث عنها بالتوفيق

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

شكرا لكلماتك الطيبة صعب جدا الفلتر بمعامل or لكن الحمد لله الذي وفقني في التوصل إليها يمكنك تغيير المعادلة في G4 وهي هذه المعادلة =@INDEX('6'!B:B,INDEX(4^8-LARGE((رصيد>0)*(رصيد>=$E$1)*(4^8-ROW(رصيد)),ROWS(G$4:G4)),0)) طريقة تغيرها كما يلي: 1- تكتب في الخلية E1 المبلغ المراد وهو -60000 2- حدد الخلية G4 ثم اضغط ( Ctrl+shift+سهم لأسفل ) ليقوم بتحديد النطاق من G4:G68 3- اكتب في شريط المعادلة ما يلي: =IFERROR(INDEX('6'!B:B,SMALL(IF($E$1>رصيد,ROW(رصيد),IF(رصيد>0,ROW(رصيد),"")),ROW()-3)),"") 4- اضغط Ctrl+shift+enter لأنها معادلة مصفوفات بالتوفيق

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

وبعد ذلك هل تقصد طباعة الكل بطريقة آلية؟؟؟ إذا كان هذا هو المطلوب الثاني فهذه بعض نتائج البحث في منتدانا الرائع Showing results for 'طباعة الكل'. - أوفيسنا (officena.net) بالتوفيق

شيت Salary Sheets بالفعل يمكن عرض جميع الموظفين فيه بكتابة الرقم الثابت لهم في خلية K4 جرب أن تكتب من 1 إلى 13

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

البرنامج يعمل بكفاءة ولا يحتاج إلى شيء وبالنسبة لموضوع التعديل فيمكنك استئذان صاحب الكود في الاطلاع على الملف وإعطائك كلمة مرور الفيجوال بيسك بالتوفيق

ربما تكون المشكلة في تنسيقات النظام حيث من المعروف أن الماك يجعل العلامة العشرية فاصلة وليست نقطة و‏لإجراء تغييرات في تفضيلات النظام:‏ ‏تأكد من إغلاق Excel تماما‏ ‏اختر شعار Apple في الزاوية العلوية اليسرى من الشاشة واختر ‏‏تفضيلات النظام‏ System Preferences ‏اختر ‏‏اللغة والنص‏ Language & Text ‏تحديد علامة التبويب ‏‏تنسيقات‏ Formats ‏تغيير ‏‏المنطقة‏‏ إلى ‏‏الولايات المتحدة الأمريكية‏ ‏إغلاق تفضيلات النظام واختبر داخل Excel‏ ‏بمجرد تعيين تفضيلات النظام لنمط العملة، يجب إنهاء Excel وإعادة تشغيله حتى يصبح التحديد نافذ المفعول.‏ ولتغيير فاصل الآلاف والعلامة العشرية System Preference>Language & Region>Advanced>General (grouping (,) decimal (.) ) شاهد هذا إن شاء الله يفيدك بالتوفيق

فعلا هذا ما حدث مني (إلغاء تفعيل المشاركة) لأرى أين يوجد الخطأ في الكود وفي أي سطر وعند الضغط على الزر المراد لم يحدث أي خطأ معي

جرب طريقة نسخ هذا النطاق وفي عمود آخر كلك يمين ثم نختار لصق كقيم paste as values

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

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

يبدو أن حضرتك ما انتبهت لهذه المشاركة والموضوع المشار إليه فيها ما قاله الأخي الكريم مشكورا هو تنفيذ التعليمات الواردة في الموضوع

يوجد في الملف صفحة بها بيانات فقط أين تريد أن تظهر نتائج البحث؟؟

عند الضغط على زر التنفيذ لا تظهر اي اخطاء عندي ولا يتم اي شيء في الشيت يمكنك التجربة على هذا المرفق وإخبارنا بموضع الخطأ وفي أي سطر ملاك 2021.xlsb

هل معنى هذا الرد أن طريقة دبل كلك ثم انتر لم تعمل معك؟ رغم أني ضد السؤال الذي لا يكتب السائل فيه الظروف التي أوصلته لهذه الحالة فربما معلومة يذكرها تكون السبب في الوصول للحل بدلا من التخمين من قبل الإخوة المشاركين في حل المشكلة على العموم إذا لم تنفع معك كل الحلول السابقة جرب هذه المعادلة =--CLEAN(TRIM(SUBSTITUTE(T5, CHAR(160), CHAR(32)))) رغم أني مؤمن تمام الإيمان أن شركة ميكروسوفت تجعل معظم الميزات متساوية بين أوفيس الويندوز وأوفيس الماك يعني ما ينجح في ويندوز ينجح في ماك بالتوفيق

للأسف لا أملك جهاز ماك لذلك جرب أن تضغط دبل كلك في الخلية ثم انتر بدون تغيير في قيمة الخلية

الأرقام منسوخة من ملف نصي وتحتفظ بتنسيقها كنص حتى وإن غيرت تنسيق الخلايا إلى رقم ولي حيلة في مثل هذه الأمور ضغ في الخلية S5 هذه المعادلة =T5*1 وهي لضرب الرقم الموجود في T5 في 1 أي الاحتفاظ بنفس قيمته أو استعمال الدالة value =VALUE(T5) ثم اسحب المعادلة لأسفل ثم استبدل القيم القديمة بالقيم الجديدة من خلال التحديد والسحب والافلات بالتوفيق

جميعا بإذن الله يوجد في المنتدى الكثير من الكتب والدورات لتعليم vba بل حتى الموضوعات العادية هي كنز لمن يريد أن يتعلم

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

لا أعتقد إمكانية وضع 2 قاعدة للتحقق من الصحة ولكن يمكن التحايل على ذلك بالكود التالي في حدث عند تغيير محتويات الشيت sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then If Target.Offset(0, 1) = "" Then Target.Value = Null End If If Target.Column = 6 Then Target.Offset(0, -1).Select With Selection.Validation .Delete .Add Type:=xlValidateList, Formula1:="=$A$1:$A$3" End With End If End Sub مع تغيير امتداد الملف لصيغة تدعم الماكرو مثل xlsb بالتوفيق