بن علية حاجي

قمت بالتعديل على ملفك بترك صفحة واحدة (نموذج) يمكنك إضافة أو حذف ما تريد من الصفوف (يكفي فقط تمديد الأرقام التسلسلية في العمود الأول ونسخ معادلات الأعمدة الأخرى في حالة إضافة صفوف جديدة)... ثم الضغط على زر الطباعة لطباعة كل القوائم للصف المختار... أو الضغط على زر المدرج لمعاينة هذه القوائم... لم أرد أن ألغي الكلمة السرية ل 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

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

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

السلام عليكم ورحمة الله أخي العزيز، بمعية أعمدة مساعدة ومعادلات تم عمل المطلوب... غير أنه لم تُراعى فيه التكرارات في القوائم المنسدلة (لا في اسم العميل ولا في رقم القيد).... بن علية bjn3000.rar

السلام عليكم ورحمة الله أخي الكريم عبد العزيز، لا أقصد ما وضعته بل أقصد : TextBox1.Value = Format(TextBox1.Value, "#00.00") أو TextBox1.Value = Format(TextBox1, "#00.00") أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبد العزيز، يمكنك تصحيح هذا الخلل بالتعديل على كود TextBox1_Exit بتغيير الجزء (Val(TextBox1 بالجزء TextBox1.Value أرجو أن يفي هذا التعديل بالمطلوب... أخوك بن علية

ويمكن استعمال المرفق التالي بعد التعديل على كود الترحيل وتفريغ بيانات الملف المستقبل... Desktop.rar

في الحقيقة لم أفهم شيئا من الموضوع، الشرح غير كافي والمطلوب بالضبط مبهم... وإذا كان المطلوب هو مكان وضع كود لإمكانية تطبيقه على كل الشيتات في المصنف فلك الخيار أن تضعه داخل Workbook (إذا كنت تنفيذه تلقائيا على كل الشيتات) أو في Module (ولكن في هذه الحالة يتم تنفيذه يدويا -بطريقة مباشرة أو عن طريق زر Button-)....

السلام عليكم ورحمة الله أخي الكريم، عدد أرقام العدد أكثر من 15 رقم والإكسيل يُبدل الأرقام بداية من الرتبة 16 أصفارا... لذا إذا أردت أن يظهر العدد كاملا (بطبيعة الحال على شكل نص) يجب إدخاله بين علامتين نصيتين "" مع رمز يساوي = بالشكل التالي : "1265465255555455528593"= أو نسبقه فقط بالعلامة ' بالشكل التالي 1265465255555455528593' والله أعلم

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق لعل فيه المطلوب، مع إضافة صفوف بعدد الأشهر لكل سنة في الجدول المرحل إليه (يمكن تصفية الصفوف الفارغة حسب مثلا العمود الثاني) وإضافة تسمية لنطاق البيانات "المصدر" بالتسمية Rng... أرجو أن يفي الغرض المطلوب... أخوك بن علية Test.rar

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

السلام عليكم ورحمة الله في هذه الحالة ما عليك إلا تغيير النطاق G$2:$G$10000 في المعادلة بالنطاق E$2:$E$10000 (عمود الكميات) مع تغيير تنسيق الأرقام إلى "قياسي" Standard ثم سحب سحب المعادلة إلى باقي الخلايا الأخرى... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله حل من بين الحلول في الملف المرفق مع ملاحظة تخص العمود A... أخوك بن علية khaled.xlsx

السلام عليكم ورحمة الله أخي الكريم، تم تطويع كود للطباعة بصيغة PDF من موضوع سابق لأخي الحبيب أبو حنين (وأستسمحه في ذلك) مع بعض التعديلات عليه وإضافة تسميات ضرورية لعمل هذا الكود... وأيضا تم مسح خاصية دمج المراسلات من بعض الخلايا (الخلايا التي تحوي كلمتي "كشف الحساب" و "الاجمالي") واستبدال الدمج باستعمال خاصية "توسيط عبر التحديد"... أرجو أن يكون هذا جزء من المطلوب... ولم أستعمل في الكود خاصية AutoFilter بل استعملت خاصية "الإخفاء"... أخوك بن علية Hide Blank Rows Using AutoFilter.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... ورمضان كريم قمت ببعض التعديلات على كود PDF وإضافة تسميتين الأولى AreaPDF لتحديد ناحية الطباعة للكارت التي تم تحديدها بالخلية AN1 والتسمية الثانية NamePDF لتحديد رقم السطر لاسم الكارت من العمود B... وقد تركت التاريخ المضاف للاسم عند إرسال الملف إلى PDF... ولإرسال أي كارت إلى ملف PDF يكفي كتابة رقم Payroll للكارت المعني في الخلية AN1 ثم تنفيذ كود PDF... أرجو أن يكون هذا هو المطلوب... أخوك بن علية المرفق : PDF اسم الصفحة.rar

السلام عليكم ورحمة الله أخي الكريم صالح، لست أدري ما تريده بالضبط، إذا كنت تقصد أن تكون الخلية A6 في المعادلة ثابتة حتى وإن تم حذف كل الصف رقم 6 حيث لا يكون خطأ !REF# في المعادلة... نعم هذا يمكن جدا أي يمكن التحايل على المعادلة باستعمال الدالتين INDIRECT و ADDRESS والمعادلة التي وضعتها في مشاركتك تكون في هذه الحالة على الشكل التالي: =OFFSET(INDIRECT("مراجعة!"&ADDRESS(6;1));;;COUNTIF(مراجعة!$A:$A;">0")) إن كان الأمر غير ذلك فالرجاء التوضيح أكثر... أخوك بن علية

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

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