بن علية حاجي

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الكود بما تريد.... بن علية حاجي Book3.rar

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

السلام عليكم ورحمة الله الشروط الأولى أثرت على عمل الشرط الأخير، قمت بالتعديل على المعادلة بفصل الشرط الأخير عن الشروط الأولى بالعلامة & (وهي اختصار الدالة Concatenate) وتجد ذلك في الملف المرفق... إذا كنت تنوي إضافة شروط أخرى للمعادلة فأرجو أن تكتب لي كل الشروط من أولها التي يُحسب فيها العدد (فقط): 5 * H1 + 3 * I1 ولا تهتم بالحالات التي تعطي صفرا... لأنه يمكن تبسيط المعادلة أكثر ويسهل بعدها إضافة شروط أخرى... بن علية حاجي from 01.12 till 15.12.2017_2_4.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، لم أجد أي خطأ في كود التصفية وهو يعمل بصورة جيدة، وإذا كان هناك أي خطأ لم أنتبه له في عمل الكود فأرجو أن تدلني على مكان الخطأ... بالنسبة إلى إخفاء أسهم التصفية فلم أجد لذلك غير حيلة واحدة تتمثل في : نسخ الصف 3 (صف عناوين الجدول) ولصقه أعلى أو أسفل هذا الصف فيصبح للجدول صفين للعناوين (الصف 3 و الصف 4) ونخفي الصف الرابع كله... ثم نقوم بالتعديل على الكود وجعله يقوم بالتصفية انطلاقا من الصف الرابع بدلا من الصف الثالث مع تغيير النطاق المعني بالتصفية A3:T453 بالنطاق A4:T454 (يعني إزاحته إلى الأسفل بصف واحد)... كل هذا تم عمله في الملف المرفق... بن علية حاجي Book2.rar

السلام عليكم ذاك ما فعلته في الملف... أرجو أن أعرف في أي سطر ظهر الخلل عندك... أعيد عليك إرسال الملف من جديد... بن علية حاجي from 01_12 till 15_12_2017.rar

السلام عليكم ورحمة الله جرب الملف المرفق لعله المطلوب... بن علية حاجي from 01.12 till 15.12.2017_2.rar

السلام عليكم ورحمة الله تم التعديل على الأكواد وإضافة أكواد أخرى خاصة بالكائنات Shapes (لإخفائها أو لإظهارها) وإضافة تنسيقات شرطية أخرى على الشهادات... والهدف من كل هذا هو طباعة الشهادات المعنية بالطباعة فقط والموجودة في شيت البيانات بمعنى أنه: في الطباعة الجزئية لو أردت أن تطبع عدد الشهادات يختلف عن مضاعفات 3 (1 أو 2 أو 4 أو 5 أو غيرها) فتقوم الأكواد بطباعة ما تريد طباعته فقط مثلا : لو أردت طباعة 4 شهادات فتُطبع صفحتان الأولى فيها 3 شهادات والصفحة الثانية فيها شهادة واحدة فقط وباقي الصفحة بيضاء... والشيء نفسه بالنسبة للطباعة الكلية يمكن أن تحوي الصفحة الأخيرة إما شهادة واحدة فقط وإما شهادتين فقط وإما ثلاث شهادات... أرجو أن تفيدكم هذه التعديلات... بن علية حاجي حديد مشغول.rar

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

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

السلام عليكم هذه من بعض أخطاء الحساب في الإكسيل... ولا يوجد في الإكسيل الذي معك فهذا الخطأ يظهر في كل نسخ الإكسيل... لاحظ أنه لو عوضت معادلتك بالمعادلة التالية لظهرت النتيجة صحيحة: =740,43*1000000/100-7404000 بن علية حاجي

السلام عليكم ورحمة الله تفضل الملف المرفق بعد التعديل على المعادلات حسب المطلوب الجديد... بن علية حاجي from 01.12 till 15.12.2017.rar

السلام عليكم ورحمة الله تم عمل المطلوب بمعادلة بشرط ترتيب البيانات ترتيبا تنازليا حسب قيم عمود مجموع العلامات... بن علية حاجي ترتيب.rar

السلام عليكم ورحمة الله تفضل المطلوب في المرفق، هو شرط على "نوع النقل" تم إضافته لبعض المعادلات... بن علية حاجي مستخلص نهاية المدة.rar

السلام عليكم هذا الخلل يظهر عندما لا تكون هناك قيم ثابتة أو نصية في النطاق المحدد... ولأجل هذا قمت بتعديل الكود إلى الكود التالي: Sub one() Dim lr As Integer Sheets(3).Activate lr = [A1000].End(xlUp).Row If lr < 3 Then MsgBox ("!!!لا توجد بيانات للترحيل"): Exit Sub Range("A3:I" & lr).Copy Sheets(2).Activate Range("A" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Range("A3").Select Sheets(3).Activate Range("A3:I1000").SpecialCells(xlCellTypeConstants, 23).ClearContents Range("A3").Select x = MsgBox("تم الترحيل") End Sub بن علية حاجي

السلام عليكم تقصد الكلمة الموجودة في الأمر: Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents هذا الأمر في الكود يمسح كل القيم الثابتة فقط (ِConstants) في النطاق A3:I1000 دون المعادلات والتنسيقات والتأطيرات وغيرها... والكلمة xlCellTypeConstants تعني "كل الخلايا التي مضمونها قيم ثابتة"... والله أعلم بن علية حاجي

السلام عليكم تقصد شرح معادلة التسمية MinV والتي هي: =SMALL(شيت!$A:$A;1+COUNTIF(شيت!$A:$A;0)) هذه المعادلة تحدد أصغر قيمة في العمود A من شيت "شيت" غير المعدومة (بمعنى آخر القيمة الأكبر مباشرة من قيمة الصفر المتكررة في هذا العمود)... بن علية حاجي

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

السلام عليكم قلت لك إنك تعمل بالكود القديم... عليك تبديله بالكود التالي: Sub one() Dim lr As Integer Sheets(3).Activate lr = [a1000].End(xlUp).Row Range("a3:i1" & lr).Copy Sheets(2).Activate Range("a" & [a1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Range("a3").Select Sheets(3).Activate Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents Range("a3").Select x = MsgBox("تم الترحيل") End Sub بن علية حاجي

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

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

السلام عليكم ورحمة الله تم التعديل على الملف حسب ما تريد... بن علية حاجي مستخلص نهاية المدة.rar

السلام عليكم أرفق إليك ملفا تنفيذيا تم تحضيره من الملف الذي أرفقته بالأعلى بعد تطبيق الكود عليه... لاحظ النتائج المتحصل عليها... عندك ربما ما زلت تعمل بالكود القديم... بالنسبة للكود الجديد فقد أضفت له الأمر Range("A3").Select الذي يقوم بتحديد (الانتقال إلى) الخلية A3 من شيت "السجل العام" بعد عملية الترحيل مباشرة وقبل العودة إلى شيت "ورقة حساب يومي"... بن علية حاجي سجل المحل.rar

وأين الملف المرفق على هذه النتائج مع توضيح الخلل عليها؟

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

السلام عليكم ألق نظرة على الملف لعل فيه ما تريد... بن علية حاجي مستخلص نهاية المدة.rar