بن علية حاجي

جرب المرفق لعل المشكل تم حله... برنامج.xlsm

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

وعليكم السلام ورحمة الله تفضل الملف المرفق فيه ما تريده.... بن علية حاجي Raport.xlsm

السلام عليكم ورحمة الله تم التعديل على ملفك حسب ما فهمت من المطلوب بإضافة شيتات مساعدة (معلومات - بيانات) وإضافة المعادلات المناسبة لكل من شيت "البيانات" (الأعمدة الملونة بالأصفر) والشيتات الثلاثة: "دخول"، "خروج"، "الخلاصة"... ملاحظات: * شيت "معلومات" تُحجز فيه معلومات المؤسسة والأقسام (الخلايا الملونة بالأصفر) * شيت "بيانات" تحجز فيه البيانات الخاصة بالدخول والخروج على حد سواء... * كل الشيتات محمية بالكلمة السرية: hb لمنع مسح المعادلات بالخطأ... * تجدني، إن شاء اله في الخدمة، لأي استفسار أو طلب آخر.... أرجو أن تفي الغرض المطلوب... بن علية حاجي حركة دخول وخروج التلاميذ.xlsm

السلام عليكم ورحمة الله صحح الجزئية التالية في الكود G1015" & LR بالجزئية : G" & LR بمعنى حذف الرقم 1015 في الأمر الملزن بالأصفر ثم في الأوامر (الثلاثة) التي تليه... والكود يصبح كالتالي: Sub Macro1() If ActiveSheet.Name <> "ورقة1" Then Exit Sub Dim LR As Long LR = Range("C" & Rows.Count).End(xlUp).Row Range("C16:G" & LR).Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("G16:G" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E16:E" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("F16:F" & LR) _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("D16:D" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("C16:G" & LR) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("C14").Select End Sub بن علية حاجي

السلام عليكم لم أجد حلا سوى إضافة عمود مساعد سميته "رقم الدفتر" وتمت إضافة المعادلات المناسبة للمطلوب... بن علية حاجي المصنف3.xlsx

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

السلام عليكم محاولة في الملف المرفق... بن علية حاجي المصنف2.xlsx

السلام عليكم ورحمة الله ومحاولة أخرى بمعادلة بسيطة... بن علية حاجي monney_1.xlsx

السلام عليكم ورحمة الله هذه محاولة مني بالمعادلات... بن علية حاجي monney_2.xlsx

المصنف1 (1).xlsx

السلام عليكم جرب سحب المعادلة التي وضعتها في الخلية C1 إلى الأسفل في الملف المرفق... بن علية حاجي Book1 (2).xlsx

السلام عليكم هل الخلايا المقصودة متصلة (صفوف متتابعة) أم منفصلة (صفوف غير متتابعة)؟ بن علية حاجي

السلام عليكم ورحمة الله جرب الكود التالي بدل الآخر: Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 If ActiveCell.Value > Range("d1").Value Then ActiveCell.Value = Range("d1").Value: Exit Sub ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub

السلام عليكم زد على ذلك لا توجد علاقة بين مطلوب الموضوع ومطلوب ملف الإكسيل المرفق!!!!!

هل جربت طريقة لصق خاص باستعمال خاصية Text Unicode؟

السلام عليكم ورحمة الله تم تصحيح الخلل في المعادلة... أرجو أني قد وفّقت في ذالك... بن علية حاجي series (1).xls

تفضل المطلوب في الملف المرفق لا شكر على واجبنموذج.xls

السلام عليكم ورحمة الله حل آخر في المرفق... أرجو ان يفي الغرض المطلوب... بن علية حاجي series.xls

السلام عليكم وفي السياق نفسه مع الدالة Reverse بتصرف بسيط... بن علية حاجي مشكلة الكتابه المعكوسه.xlsm

السلام عليكم تم عمل المطلوب في الملف المرفق... وأرجو أن يفي الغرض المطلوب... بن علية حاجي النسبة.xlsx

السلام عليكم ورحمة الله حل آخر بالمعادلات باستعمال الدالة OFFSET... بن علية حاجي Book1_1.xls

السلام عليكم وهذا حل آخر للمطلوب الجديد حيث تم التعديل على الملف مرة أخرى... أولا تم ترتيب الشهور بداية من الشهر 8 إلى 12 للعام الأول (2018) ثم من الشهر 01 إلى الشهر 07 للعام الثاني (2019) مع تعديل كل المعادلات للتتناسب مع هذه التغييرات... وثانيا فيما يخص العطل الأخرى خلال العام الدراسي يمكن إضافة تواريخها في العمود A بداية من الخلية A16 وستدرج في الجدول تلقائيا مع تنسيق شرطي (التلوين بالأزرق لأعمدتها حسب كل شهر) ولا يهم ترتيبها... تم إضافة كود أخي الكريم سليم الذي يخص "كليك يمين" حسب ملاحظاته... أرجو أن تفي الغرض المطلوب. أخوكم بن علية كشف _hben.xlsm

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

السلام عليكم جرب المرفق بعد التعديل على ورقة "اجمالي " (المخفية) حسب ما فهمته... بن علية حاجي مرتبات مدرسة وحدة دروة المجمعه-2018 -.xls