بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، أرى أن فكرة أخي الكريم قنديل الصياد هي الأفضل وكنت أنوي أن أقترحها لأن فتح ورقة جديدة لكل طالب عملية متعبة من عدة نواحي وتُكسب المصنف حجما كبيرا... وقد أضفت للملف كودا بسيطا لتغيير اسم الورقة حسب الاسم المختار في الخلية B10 ... أرجو أن تكون هذه الأفكار مفيدة وتفي بالغرض المطلوب... أخوكم بن علية الملف المرفق المعدل : Report Card-5C_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، أعتقد أنه تنقصك مكتبة Calendar في VBA يمكنك تحميل ملف MSCAL.OCX إذا لم يكن موجودا في جهازك ثم تفعيل المكتبة في VBA في خاصية TOOLS/References... أخوك بن علية ملف المكتبة : Mscal.zip

السلام عليكم ورحمة الله أخي الكريم الشيباني، معذرة على هذا التداخل في المواضيع اعتقادا منا أننا نتعامل مع السائل نفسه والخطأ منك أيضا لأنك لم تتابع موضوعك لحظة بلحظة وإلا لما تركت الردود تتابع في موضوع ليس موضوعك... المهم حصل خير... أقترح عليك الحل التالي في المرفق وإن شاء الله يستوفي المطلوب... ومعذرة مرة أخرى... أخوك بن علية الملف المرفق : كود طباعة hben.zip

السلام عليكم ورحمة الله أخي الكريم، التعديل السابق يخص فقط المعاينة قبل الطباعة للنطاق الذي يحوي بيانات... ولطباعة هذا النطاق عليك أخي الكريم أن تقوم بتعديل آخر في الكود نفسه وذلك بتغيير السطر: With ActiveSheet بالسطر: With Range(Cells(1, "B"), Cells(TT, "O")) ومعذرة على هذا السهو مني.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم وأستسمح أخي الحبيب عبد الله على تعديل بسيط في الكود... السبب في عدم عمل الكود جيدا هو وجود المعادلات في العمود B وتوجد طرق لحل هذا المشكل وقد اخترت من بينها الحل التالي: قمت في الكود بتغيير السطر : TT = Cells(Rows.Count, "B").End(xlUp).Row بالسطر (TT = Application.Match("******", Range("B:B"), 0 ومكان النجوم ****** في الصيغة هي كلمة "الإجمالي" أي أن هذا الجزء من الكود يبحث عن رقم سطر وجود هذه الكلمة في العمود B وهو السطر الذي يحد الجدول وناحية الطباعة من الأسفل من الأسفل ... أرجو أن يكون هذا التعديل مستوفيا المطلوب... أخوك بن علية الملف المرفق: برنامج السخاوى.rar

السلام عليكم ورحمة الله أخي الكريم أحمد غانم، تم إضافة كود بسيط لطباعة الكشف مع إخفاء الصفوف الفارغة في النطاق A9:A55 ولأجل ذلك تمت إضافة تسمية ROW بمعادلة (يمكن الاطلاع عليها في قائمة التسميات) لتحديد رقم صف أول خلية فارغة من النطاق A9:A55 والكود يخفي الصفوف بداية من هذا الصف إلى الصف 55... والكود كالتالي: Sub Printing() Rows([Row] & ":55").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("9:55").EntireRow.Hidden = False End Sub والكود جعلته يقوم بالمعاينة قبل الطباعة PrintPreview ولكي يعمل الكود في طباعة الكشف يجب حذف العلامة ' (علامة الاقتباس المنفردة) من بداية السطر الرابع من الكود وإضافتها في بداية السطر الثالث لتفعيل الطباعة وإلغاء المعاينة قبل الطباعة... والكود بعد المعاينة أو الطباعة يعيد إظهار كل الصفوف المخفية في النطاق السابق... أرجو أن يفي هذا العمل بالمطلوب... أخوك بن علية الملف المرفق : كشف حساب بالمعادلات-2.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرب الصيغة (MainDataBase.Cells(xxx , 45 بدلا من الصيغة MainDataBase!R[" & xxx & "]C45 بالنسبة لسؤالك الثاني : هل يمكن تحويل شيت اكسل يحتوي على اوامر ماكرو إلي برنامج مستقل بذاتة لايحتاج إلي وجود اكسل على الجهاز ويعمل متسقلا بذاتة كبرنامج ؟؟؟؟ لا أعتقد أن ذلك ممكنا، الشيء الوحيد الذي أعرفه أنه يمكن تحويله إلى صيغة .exe (ملف تنفيذي) لكن تبقى علاقته وتنفيذه مرتبطين بوجود إكسيل على الجهاز..... والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أسنسمح أخي الحبيب طارق لأقدم الملف في نسخة 2003 مع تعديل طفيف على المعادلة... الملف المرفق يحوي النسختين 2003 و 2007 (وأكثر)... أخوك بن علية الملف المرفق: حضور-غياب.zip

السلام عليكم ورحمة الله أخي الكريم، تم تعديل ملف أخي الحبيب إبراهيم بتبسيط المعادلة بواسطة تسمية جزء منها بالتسمية Criterea في ورقة "الرصيد" وإضافة حل آخر في ورقة "الرصيد2" بمعادلات بسيطة للترحيل لكن مع إضافة عمود (لوّنته بالأصفر) في ورقة "العهد" (ضروري ويمكن إخفاؤه)... أرجو أن تكون الحلول مقبولة ومستوفية المطلوب... أخوك بن علية الملف المرفق : كشف حساب بالمعادلات-2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال الدالتين INDIRECT و ADDRESS بمعية الدالتين ROW و COLUMN بمعادلة واحدة في الخليتين A1 و A3 ثم سحبها يمينا أو يسارا حسب اتجاه الواجهة... أخوك بن علية الملف المرفق : اعمدة الى صفوف.rar

السلام عليكم ورحمة الله أخي الكريم أحمدعبد الحليم، المعادلة التي وضعتها ضحيحة جدا ولكنها معادلة صفيف لذا يجب تأكيدها بواسطة الضغط على : CTRL+SHIFT+ENTER... أخوك بن علية

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، تم تعديل على كود الفورم بتبديل السطر : If r > 0 Then Feuil3.Cells(derligne, r) = Ctrl بالسطرين : If r > 0 And r <= 28 Then MultiPage1.Value = 0: Feuil3.Cells(derligne, r) = Ctrl If r > 28 Then MultiPage1.Value = 1: Feuil3.Cells(derligne, r) = Ctrl تجد ذلك في الملف المرفق التالي : رخصة2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، هذه الخطوات السابقة بالعربية : يمكن التخلص من الرسالة السابقة في إكسيل 2007 باتباع الخطوات التالية : 1 النقر على زر القائمة Excel "في الجزء العلوي الأيسر من إطار" 2 فتح "خيارات إكسيل" 3 فتح "مركز التوثيق" 4 فتح "إعدادات مركز التوثيق" 5 فتح "خيارات التوثيق" 6 إلغاء تحديد الخيار "إزالة المعلومات الشخصية من خصائص الملف عند الحفظ" 7 النقر على OK للخروج من علبة "خيارات إكسيل" أتمنى أن تفيدك هذه المعلومات وتستوفي المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم ، جرب الخطوات التالية : Click on Excel Office Button Click on the Excel Options button Select the Trust Center tab Click on the Trust Center Settings… button Select the Privacy Options tab Uncheck the Remove personal information from file properties on save box Click OK twice أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال الدالة DATEDIF أو حتى الفرق بين التاريخين: تاريخ الخلية E9 و التاريخ المتحصل عليه بالصيغة (DATE(YEAR(E9);MONTH(E9)+1;6.... أخوك بن علية المرفق : 100.rar

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

السلام عليكم ورحمة الله أخي الكريم، إذا كنت تعمل على نسخ أوفيس 2007 فما فوق، فهل جربت أن تحفظ ملفك بصيغة xlsb. لأنه من العادة يكون حجم هذا النوع من الملفات أصغر بكثير مقارنة مع الأنواع الأخرى xls. أو xlsx. أو xlsm. والله أعلم