بن علية حاجي

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

السلام عليكم تم عمل المطلوب في الملف المرفق، وذلك باستعمال الكود نفسه من موضوعك السابق الذي رابطه أمر طباعة الكل مع بعض التعديل... aشهادات .xlsm

الكود طباعة الكل يعود إلى الصفحة 1 بعد أن يكمل عملية الطباعة... وبالنسبة للعدد الذي يصل إلى الآخر فهذا لا أستطيع أن أعرفه لأن البيانات Source غير موجودة في الملف.. الكارتة1.xlsm

السلام عليكم ورحمة الله محاولة في الملف... Book1.xlsm

السلام عليكم جرب الكود التالي (بتحفظ): Sub Conditional_Print() For I = 1 To 3 With Worksheets("ورقة" & I) .Activate If .Cells(3, 2) = "راسب" Or .Cells(3, 2) = "غائب" Then GoTo 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End With 1 Next Worksheets("ورقة1").Activate End Sub

السلام عليكم الكود السابق تركته للصفحات الحالية (صفحة واحدة)، أما كود طباعة الكل فقد تم إنشاؤه من الكود السابق ثم التعديل عليه لطباعة جميع البطاقات مع إخفاء الصفوف الصفرية في كل بطاقة... أرجو أن يفي الغرض المطلوب. ملاحظة : تم إضافة معادلة في الخلية A2 لتحديد العدد الإجمالي للبطاقات. لم يتم تجربة الكود لأن الملف مرتبط ببيانات غير موجودة فيه. الكارتة.xlsm

السلام عليكم ورحمة الله ملف فارغ لا فيه عمود الوقت ولا ليست بوكس! أين هي البيانات في الملف؟

السلام عليكم وأين الملف الذي تريدنا أن نعمل عليه؟

السلام عليكم محاولة في المرفق لكن ليس بكود بل بمعادلات استُعملت فيها الدوال VLOOKUP و INDEX... ملفك غير منظم. قائمة المبيعات.xlsm

السلام عليكم تم تعديل معادلات العمود K في ورقة "تسجيل" مرتبطة بالشهر المحدد في الخلية E1 في الورقة "Result"، والمعادلات تم تبسيطها باستعمال نطاقين بالتسمية Rng و Col... تجد كل ذلك في الملف المرفق... Salah_Print - FINAL_29-11-2026.rar

مرحبا باستعمال الدالة COUNTIF تم عمل المطلوب في الملفالمرفق... استفسار.xlsx

السلام عليكم تم التعديل حسب المعطيات الجديدة... Salah_Print - FINAL_29-11-2026 (1).rar

السلام عليكم تم تصويب المعادلات في العمود K من شيت "التسجيل"... Salah_Print - FINAL_29-11-2026.rar

السلام عليكم ورحمة الله بعد إضافة معادلات مساعدة في العمود K من شيت "التسجيل" وتعديلات طفيفة على الكود تم عمل المطلوب في الملف المرفق... أرجو أن يفي الغرض المطلوب... Salah_Print - FINAL_29-11-2022 (1).rar

السلام عليكم هذا الرقم 32092 يظهر لأن الخلايا في العمود K المجاورة لهذا الرقم فارغة... ولتصحيح هذا الخلل أضف إلى معادلتك دالة شرطية IF فتكون مثلا المعادلة في السطر 11 (كما في الصورة) مثل ما يلي: =IF(K11="";"";NETWORKDAYS.INTL(K11;TODAY();7)) ثم تقوم بتمديد هذه المعادلة إلى باقي الأسطر (بالأعلى والأسفل)...

السلام عليكم ورحمة الله في الحقيقة لم أفهم ما تريده بالضبط، وفي الملف المرفق محاولة (بتحفظ) لما استطعت فهمه من المطلوب... lajnah.xlsx

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

السلام عليكم ورحمة الله وللحساب أكثر دقة (ليست دقة مطلقة) وبطريقة منطقية عما سبق نتبع الطريقة التالية : استعمال الدالة DATEDIF بين تاريخ اليوم (تاريخ البداية) وتاريخ آخر ترقية مضاف إلية 04 سنوات (تاريخ النهاية). قمت بتطبيق ذلك في الملف المرفق... حساب مدة اخر ترقية (1).xlsx

السلام عليكم سأحاول غدا بحول الله وقوته ما أستطيع عمله في الملف...

السلام عليكم نعم صحيح أن استعمال date(4,0,0) تعطي نتائج غير دقيقة ولكن يمكن استبدالها بـ date(4,1,1) أو date(4,1,0) (الفرق بينهما 01 يوم)... مع ملاحظة أنه في كل الأحوال النتائج غير دقيقة (اختلاف طفيف)... غير أنها تفي الغرض حسب اعتقادي...

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

السلام عليكم في أي شيت تريد ترتيب القائمة حسب الأسماء؟

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

السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm

أهلا ومرحبا تم عمل المطلوب بالمعادلات وكود لدالة مخصصة أسميتها ConcatRng تعمل عمل الدالة CONCATENATE لتجميع مضامين خلايا من نطاق معين... 1111Microsoft Excel Worksheet.xlsm