بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب بواسطة معادلات وأعمدة مساعدة إضافية... وأترك عمل الأكواد لمن له باع في ذلك... أرجو أن تفي المعادلات بالمطلوب... بن علية استدعاء من عدة صفحات...rar

جرب المرفق... لعل فيه المطلوب بن علية ترقيم حسب الشهر لمعيار معين.zip

السلام عليكم ورحمة الله تم تعديل الملف في شيت "واجهه" وتعديل معادلات أيام كل شهر (معادلات تلقائية تحدد أيام الشهر بمجرد كتابة رقم الشهر في الخلية المناسبة بالأعلى)... أرجو أن يكون المطلوب بن علية خط سير شهرى4.rar

أي الجداول تريده أن يتسع ليشمل كل الشهور؟؟

السلام عليكم ورحمة الله قمت بتبديل الدالة VLOOKUP بدالة أخرى OFFSET مع الدالة MATCH مع تعديلات على تنسيقات شيتات الملف... بن علية خط سير شهرى3.rar

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أنه يمكن باستعمال الدالة SUBTOTAL عمل ذلك (بتحفظ)... وأقترح عليك المعادلة التالية التي تقوم بعدّ القيم الفريدة (المختلفة ودون تكرار): =SUMPRODUCT(1/COUNTIF(B4:B20;B4:B20)) بن علية

السلام عليكم ورحمة الله أخي الكريم، للإجابة على طلبك تم تغيير الدالة VLOOKUP بالدوال INDEX و SMALL (مع دوال أخرى) بمعادلة صفيف (التي يجب تأكيدها بالضغط على CTRL+SHIFT+ENTER) وهي صالحة مهما كانت التكرارات... أرجو أن تفي المعادلات الغرض المطلوب... بن علية New Worksheet_3.rar

السلام عليكم ورحمة الله أخي الكريم أبو مريم، أقول لك ما يقوله إخواننا المصريون "عليك نور"... وقد قلت لك إن شرحك أحسن من شرحي... أصبت عين القصيد... بن علية

أو جرب المرفق التالي باعتبار أن التكرار لا يتجاوز 2... بن علية New Worksheet_2.rar

السلام عليكم ورحمة الله أخي الكريم، لست أدري لماذا تطلب شرح المعادلة وقد شرحتها أحسن مني، فقط أضيف لشرحك أن عدد قيم الصفر التي تعدها الدالة COUNTIF تمثل الرتب الأولى التي تأخذها قيم الصفر بالنسبة للدالة SMALL ولما أضفنا العدد 1 لعدد قيم الصفر فهذا يعني أننا نريد من الدالة SMALL أن تعطينا أصغر قيمة من النطاق لا تساوي الصفر (يعني المطلوب)... وليس لي شرح آخر... بن علية

السلام عليكم ورحمة الله أخي الكريم، إليك تطبيق للمعادلة المقترحة سابقا على كل العمود A في الملف المرفق... بن علية رابط التحميل : http://www.gulfup.com/?R4zVCC

السلام عليكم ورحمة الله أخي الكريم أبو مريم، المرفق الذي وضعته به خلل ولا يمكن تحميله... وأقترح عليك المعادلة التالية إذا فرضنا أن نطاق القيم هو A1:A1000 : =SMALL(A1:A1000;COUNTIF(A1:A1000;0)+1) مع مراعاة "الفاصلة المنقوطة" و"الفاصلة" وتغيير النطاق إذا استدعى الأمر ذلك... بن علية

السلام عليكم ورحمة الله أخي الكريم طاهر محمد، بالتأكيد يمكنك تجاوز هذا المشكل بالقيام (قبل المعاينة أو الطباعة) بتحديد مجموعة من الخلايا (اثنتين أو أكثر، أو عمود، أو صف أو كل الشيت)... أخوك بن علية

وعليكم السلام ورحمة الله يمكن فعل ذلك باستعمال الدالة SUMPRODUCT أو FREQUENCY أو غيرهما... في الملف المرفق تجد حلين... بن علية Test.rar

السلام عليكم ورحمة الله تم تعديل آخر على الملف في شيتات الصفوف (الاول-الثاني-الثالث) حتى يتم تحديد عدد القوائم تلقائيا في كل صف (في العمود M) حسب عدد الطلبة في كل قائمة (الذي تختاره في العمود H) وحسب عدد المتقدمين في كل صف (موجود في الخلية D1) ... أرجو أن يكون هذا المطلوب... لا تنسى إدراج كود الطباعة في الملف كما ذكرت في ردي السابق... بن علية 11.rar

المعادلة التالية تفي أيضا بالغرض (باعتبار الشروط التي ذكرها أخي الكريم خالد الرشيدي) =VLOOKUP($A$2;$D$5:$F$9;3;1)

ماذا تعني بعبارة "يطبع لاخر القوائم المكتوبة فقط "؟؟

قمت بالتعديل على ملفك بترك صفحة واحدة (نموذج) يمكنك إضافة أو حذف ما تريد من الصفوف (يكفي فقط تمديد الأرقام التسلسلية في العمود الأول ونسخ معادلات الأعمدة الأخرى في حالة إضافة صفوف جديدة)... ثم الضغط على زر الطباعة لطباعة كل القوائم للصف المختار... أو الضغط على زر المدرج لمعاينة هذه القوائم... لم أرد أن ألغي الكلمة السرية ل VBA لذا كتبت لك كودا صغيرا يتم نسخه بموديول Module ثم ربطه بزر "طباعة كل القوائم" والكود كما يلي: Sub Print_All() Dim I As Integer For I = 1 To [F2] If I <= [F2] Then [F1] = I: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub أرجو أن يكون هذا التغيير موافقا لما تريده... 11.rar

انظر إن كان ما في المرفق هو المطلوب... Evaluation Form.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

السلام عليكم ورحمة الله هذه المشكلة هي سبب خاصية نسخ/لصق من الإنترنيت... إذ أن هذه تظهر بهذا اللون باعتبار أنها أشكال Objects، ولحذفها نقوم بالضغط على مفتاح F5 ونختار Cells (بالأسفل) ثم Objects (بالأسفل) ثم على مفتاح OK وبهذا نكون قد قمنا بتحديد جميع الأشكال في الشيت ولاسثناء أحد الأشكال (مثلا زر تنفيذ الكود في الشيت) نقوم بالضغط على مفتاح Ctrl مع النقر باليمين بواسطة الفأرة Mouse على الزر... ثم نقوم نضغط على مفتاح DELETE... والله أعلم بن علية

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

وعليكم السلام ورحمة الله أخي الكريم، من العادة أن الكود لا يتعطل من جهاز لآخر إلا إن وُجدت بعض المشاكل في الأوفيس الذي نُقل إليه الكود (عدم استقرار بعض النسخ مثل نسخة 2007، خاصية أمان الماكرو...)... بالنسبة لتغيّر المسميات من جهاز لآخر فهذا يرجع -ربما- للغة البرمجة في الجهاز، ويمكن تبديل اللغة بعد فتح VBA في خاصية Tools ثم Options وتختار التنسيق Format الذي يناسبك (وخاصة فيما يخص اللغة العربية) وأحسنها هو تنسيق (Courier New (Occidental وهو المستعمل عموما... والله أعلم بن علية

جرب المرفق مع بعض التعديلات والإضافات... 11.rar

السلام عليكم ورحمة الله أخي الكريم حافظ، في الملف المرفق تجد تعديلا طفيفا لكود الأخ الكريم c_expert فيها حل لما طلبته (الجمع التلقائي + المجاميع التي تتكون من رقم واحد)... أرجو أن يكون المطلوب.. أخوك بن علية حل مشكلة التفقيط للاعداد_2.rar