بن علية حاجي

وعليكم السلام ورحمة الله وبركاته تم عمل المطلوب بثلاثة نطاقات بالتسمية ومعادلات صفيف... تجد ذلك في الملف المرفق... aa.rar

السلام عليكم أكيد أن هناك خلل، إما في الكود (مع العلم أني جربته في ملف أنشأته كنموذج واشتغل جيدا) ويمكن أن تكون فيه (الكود) المصطلحات -الكلمات- التي هي باللغة العربية لا تظهر عندك في الكود بالشكل الصحيح، وإما الخلل في ملفك ربما يكون في تسمية الأوراق (ورقة1، ورقة2، ورقة3 المعنية بالطباعة) أو في المصطلحات "راسب" أو "غائب" لعلك كتبتها بمسافات (في أولها أو في آخرها)... والأحسن أن ترفق ملفك (مع القليل جدا من البيانات ودون البيانات الشخصية...).

السلام عليكم محاولة أخرى بكود في الشيت "Feuil1" (بتحفظ)... مع الحل (بالمعادلات) السابق في شيت "Sheet1"... برمجة حساب راتب2.xlsm

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

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

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

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