بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar

السلام عليكم ورحمة الله أخي الكريم، وضعت في الملف المرفق ملفين للعملية (طباعة) الأول يتم فيه الترحيل بالمعادلات والثاني يتم الترحيل فيه بكود Copying تم ربطه مع كود الطباعة.... أرجو أن يعجبك هذا العمل ويفي بالغرض المطلوب... أخوك بن علية الملف المرفق : تنسيق بنات دور أول 2014 .rar

السلام عليكم ورحمة الله أخي الكريم أحمد، لأجل ذلك يجب تغيير خط تأطير جميع خلايا الجداول (حتى العناوين) في الشيتات الخمسة (عام - الاتوبيس - طائرة - مطروح - تعديل) إلى نفس النمط (حتى لا يحدث خلط في تنسيق خط التأطير عند الترحيل)... ونضيف السطر التالي في الكود : Cells(nr, "I").PasteSpecial Paste:=xlPasteFormats مباشرة بعد أو قبل السطر التالي : Cells(nr, "I").PasteSpecial Paste:=xlPasteValues وفي الملف المرفق تجد التعديل على الملف حسب هذه الملاحظات.... أخوك بن علية الملف المرفق : مانفست كلابشه دون تكرار3.rar

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

السلام عليكم ورحمة الله أخي الكريم، كان من المفروض أن تضع نموذجا لشكل القائمة ونوع البيانات التي تريد استخراجها... قمت بإدراج نموذج من عندي (ولست أدري إن كانت هي البيانات المستخرجة) في الشيت الثاني... إذا كنت ترغب في تغييرات في هذا الشيت فقد وضعت له حماية بكلمة سرية هي hb... أرجو أن يكون الملف مستوفيا المطلوب... أخوك بن علية الملف المرفق : تنسيق بنات دور اول 2014.rar

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أنه يمكن برمجة كود لتخفيض مستوى أمان الماكرو ولا أعرف أنه يوجد كود لهذا الغرض... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أحمد محمد، بالنسبة للمعادلة الثانية (التي وضعتها في الملف المرفق في مشاركتي) هو شرط إضافي للدالة IF وهو شرط تحسيني لئلا تكون نتيجة المعادلة 0 في حالة ما إذا كانت الخلية من العمود P من شيت "عام" فارغة... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم منير، أردت أكثر من هذا الشرح وأقترح عليك الحل التالي "الترحيل بالمعادلات" في الملف المرفق مع بعض الملاحظات... أرجو أن يكون هذا جزء من الحل... أخوك بن علية الملف المرفق : سجل33.rar

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

السلام عليكم ورحمة الله أخي الكريم أحمد محمد، لقد تم المطلوب ببعض التعديلات على أكواد الترحيل والمسح وعلى شيت "تعديل"... الظاهر أن بعض المعادلات قد حُذفت من الشيتات الأربعة (وقد تم تعديل كود المسح حسب ما وجدته في هذه الشيتات) مع إضافة "رسالة التحذير" لأكواد المسح حسب ما قدمه أخي "حمادة عمر" في موضوعك الآخر http://www.officena.net/ib/index.php?showtopic=48878 ... أرجو أن تروق لك هذه التعديلات.... أخوك بن علية الملف المرفق : مانفست كلابشه دون تكرار3.rar

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

السلام عليكم ورحمة الله أخي الكريم أبو صبري، أولا أود أن أنبهك، قبل غلق الموضوع من طرف الإدارة، إلى تغيير عنوان الموضوع حسب شروط المشاركة في المنتدى http://www.officena.net/Tips/Questions.htm وثانيا بالنسبة لسؤالك يمكن وضع المعادلة التالية في أي خلية تريد ثم نسخها إلى الأسفل إلى الحد الذي تريد: المعادلة: =INT((ROW($A1)-1)/5)+1 وإن كنت تريد التسلسل أفقيا فضع المعادلة التالية في أي خلية ثم اسحبها إلى الخلايا المجاورة أفقيا: =INT((COLUMN(A$1)-1)/5)+1 أرجو أن ينجح معك هذا الاقتراح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم منير، تريد تكملة للموضوع ولكن لا توجد بداية على الأقل ضع مثالا للعمل عليه في ورقة nn وبعض الشرح لكيفية ملء أعمدة جدول هذه الورقة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أولا أهلا بك عضوا جديدا بين إخوانك وأخواتك تفيد وتستفيد وثانيا يجب عليك تغيير عنوان الموضوع (شروط المشاركة) لئلا يُغلق الموضوع وثالثا إذا كنت تحتاج إلى أكثر من 65536 صف (حدود نسخة 2003) فيُستحسن الانتقال إلى النسخ الأعلى 2007 أو 2010 أو 2013 التي تتجاوز هذا العدد بـ 15 مرة أي : 16*65536 = 1048576 صف وليس لي فكرة أخرى حتى أرى حجم وشكل البيانات.... والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد فيديو يبين طريقة تخفيض مستوى الأمان للماكرو في إكسيل 2010 (النسخة بالفرنسية) يمكن تتبع الخطوات إذا كانت النسخة بلغة أخرى... أرجو أن يفيدك الملف... أخوك بن علية الملف المرفق : 111.rar

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق بفرض أن الأعداد في العمود A تبدأ كلها بالعدد 617125 (ثم بعض الأصفار)... أخوك بن علية الملف المرفق : جدول2.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، بالنسبة لسطر الكود يوضع بدل سطر "المسح" يجب فقط مراعاة النطاق المعني بالكود... بالنسبة للرقم 23 في الدالة هذا الرقم يدل على أن كل الاختيارات الأربعة التي ذكرتها سابقا معنية بالمسح (والرقم يتغير حسب ما تريد مسحه إلى الأعداد 1 ، 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، ... ولا أعرف الباقي وهي تتعلق بالاختيارات المعينة)... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم حمادة، جرب الجزء التالي في الكود : Range("B5:F100").SpecialCells(xlCellTypeConstants, 23).ClearContents فهذا الجزء يحذف فقط القيم الثابتة (نصوص، قيم، قيم منطقية، أخطاء) دون المعادلات في النطاق B5:F100 .... أرجو أن يفيدك هذا التعديل.... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، ما هي نسخة الأوفيس تبعك حتى تتم الإفادة حسب هذه النسخة؟ أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم زاكي، بإذن الله سأحاول شرح هذا في ملف تنفيذي أحضره على نسخة أوفيس 2013 بالفرنسية... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إن سبب ذلك من وجهة نظري سببان : يمكن أن يكون مستوى أمان الماكرو مرتفعا في الأوفيس تبعك ولحل هذه المشكلة عليك تخفيض هذا المستوى إلى الأدنى (وكل نسخة للأوفيس لها طريقتها)، ويمكن أن تكون تعمل بنسخ الأوفيس المتقدمة 2007 أو 2010 أو 2013 وفي هذه النسخ الملفات التي بها أكواد يجب تسميتها بغير الامتداد xlsx أي بأحد الامتدادات التالية : xlsm أو xlsb... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم فضل، بالنسبة للمشكل الذي اعتبرته صعبا فهذا بإذن الله حله بسيط، يمكن تغيير الكود في حدث الورقة باستعمال الخاصية Worksheet_Calculate أو يمكن جعل تنفيذ الكود يدويا بوضعه في موديول Module وربطه بزر لتنفيذه يدويا... أما فيما يخص شرح السطر (C = Choose(X, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58 فالأعداد المذكورة في هذه الصيغة تمثل أرقام أعمدة "المجموع" للمواد على الترتيب والتي تخصها العملية نفسها (عندما تكون "خلية عمود المجموع للمادة المختارة أصغر من قيمة الخلية من العمود نفسه من السطر 9 الثابت" أو كانت "قيمة خلية العمود الذي قبله -عمود آخر العام- أصغر من قيمة الخلية من العمود نفسه من السطر 9 أو كانت هذه الخلية تحوي حرف غ" تكون نتيجة الدالة IIF العدد 1 و 0 إذا كان غير ذلك)... والدالة CHOOSE بهذا الشكل تقوم باختيار رقم عمود المادة بالترتيب حسب قيمة X المتغير من 1 إلى 12... ثم نتائج الدالة IIF حسب المواد والشرط المذكور أعلاه يتم جمعها في متغير سمّي S والذي يُستعمل في نتيجة المعادلة في العمود BV حسب رقم الصف الذي يحدده المتغير I في الكود... أرجو أني وُفقت في الشرح.... أخوك بن علية

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