mn20

وعليكم السلام ورحمة الله وبركاته بعد اذن استاذنا الاستاذ محمد بالمرفقات محاولة لعلها المطلوب باستخدام الدالة (DateDif) ارجو التجربة. حساب مدة اخر ترقية.xlsx

وعليكم السلام ورحمة الله وبركاته نسخة الأوفس لدي 2013 لذلك ارفق لكم تجربتي من خلال الدالة Match ، بدمج العمودين (A,B) المطلوب البحث فيهما في عمود واحد (D) ثم تطبيق الدالة Match , وكذلك الكود. جرب لعلها تفيد. xxzz.xlsm

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

وعليكم السلام ورحمة الله وبركاته لطباعة الصفحة الاولى فقط من جميع الأوراق في الملف جرب الكود: Sub Print1() Dim WS As Worksheet For Each WS In ActiveWorkbook.Sheets WS.PrintOut From:=1, To:=1 Next End Sub

السلام عليكم ورحمة الله وبركاته ممكن تجرب الكود Application.WorksheetFunction.Text(now(),"yy")&"/01/01"

وعليكم السلام ورحمة الله وبركاته ما شاء الله تبارك الله استاذنا محي الدين كود جميل وممتع التأمل والاستفادة فشكراً لكم. ولكن بعد اذنكم استاذي اقدم فكرة بان يكون عرض التوزيع وفق خليه تخصص لاختيار الصف بعدها ينعكس المعلمين والدروس على جدول الصف حسب الاختيار. ويمكن اضافة صف جديد وفق الخطوات في الملف. ارجو تجرب الملف المرفق، وهي فكرة من خارج الصندوق لعلها تناسب المطوب. التوزيع الحصص الدراسية بدون كود .xlsx

اخي الأستاذ أحمد الله يبارك فيكم .. المطلوب غير واضح .. ما الحاجة الى كود لتقريب الأعداد العشرية مع وجود الدوال Round، RoundUp، RoundDown ... وان كان مطلوبكم غير ذلك ، فلعلكم توضحون. دوال تقريب الاعداد العشرية.xlsx

وعليكم السلام ورحمة الله وبركاته حاولت أن أفهم المطلوب .. ارجو تجربة الملف المرفق لعله يوافق طلبكم. Function.xlsm

السلام عليكم ورحمة الله وبركاته ضع جميع الملفات (File1 , File2 , vba Code) في مجلد (فولدر) واحد وجرب .. لعله يفي بالمطلوب 😘. File1.xlsx File2.xlsx vba code.xlsm

واياكم 😘.

ابشر تم .. 😘 مقارنة.xls

جرب هذا الملف لعله يفي بالغرض . مقارنة.xls

وعليكم السلام ورحمة الله وبركاته أتوقع باستخدام الدالة (INDIRECT) ولعل هذا هو المطلوب 😘 نموذج (1).xlsx

لتنفيذ المطلوب يتطلب وجود رقم فريد لكل موظف يجب أن لا يتغير لتتم المقارنة بين القائمتين. ولمعرفة وجود موظفين جدد أو حذف آخرين. (لا بد من وجود رقم فريد لكل موظف ويجب أن لا يتغير مع مرور السنوات)😘

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

وعليكم السلام ورحمة الله وبركاته اسف على الاجتمهاد والتطفل على اساتذتي في هذا المنتدى .. ولعل هذا هو المطلوب. Report.xls

جرب الملف بعد التعديل عليه القرعة.xlsm

جرب هذا الملف لعله يفي بالغرض القرعة.xlsm

اخي الغالي جرب المرفق pp.rar

برنامج فحص الفيروسات اكتشف بالملف حصان طروادة !!! .... هل الأمر صحيح يا أخوة؟

اخي ماهي أخبار الملف ؟ اتمنى ان الامور سارت بشكل الصحيح !

عذراً أخي .. نحن في هذا الشهر الفضيل منشغلون قليلاً .. إليك الكود بعد التعديل أرجو أن يكون مناسب ... Sub ADO() Dim DB As Database Dim RS As Recordset Dim SQL As String Dim Endrow As Long Dim MyDbName as string Dim MyPassWord as string SQL = "ضع الاستعلام هنا" MyDbName = "C:\M\mah.mdb" 'ملف القاعدة MyPassWord = "111" 'كلمة المرور Set DB = OpenDatabase(MyDbName ,False, False,";pwd=" & MyPassWord) Set RS = DB.OpenRecordset(SQL) Endrow = Sheets(1).Range("A1").CurrentRegion.Rows.Count Sheets(1).Cells(Endrow + 1, 1).CopyFromRecordset RS RS.Close DB.Close End Sub و اكرر .. عذراً على التأخير

لا شكر على واجب الله يسلمك اخي لورد

عفوا أخي يجب اضافة المكتبة DAO باتباع الخطوات التالية من محرر البيسك من القائمة ( Tools ) اختر ( References ) ثم ضع علامة أمام المكتبة ( Microsoft DAO 3.6 Object Library ) ثم موافق بعدها جرب استخدام الكود يوجد لدي ملف جربت به الكود يحتاج تنسيق ، هل أنت في حاجة إليه ؟؟؟

اخي الكريم إليك الكود التالي : Sub OpenDataBasePwd() Dim rs As DAO.Recordset Dim MyDbName As String Dim MyPassWord As String MyDbName = "C:\db1.mdb" 'ملف القاعدة MyPassWord = "111" 'كلمة المرور ' مثلا tbl_aaa فتح القاعدة و تحديدا الجدول Set rs = OpenDatabase(MyDbName, False, False, _ ";pwd=" & MyPassWord).OpenRecordset("SELECT * FROM tbl_aaa _ ", dbOpenDynaset) a1 = rs!a1 'tbl_aaa الحقل الأول في الجدول a2 = rs!a2 'tbl_aaa الحقل الثاني في الجدول a3 = rs!a3 'tbl_aaa الحقل الثالث في الجدول rs.Close End Sub آمل أن يقدم لك بعض الفائدة لك تحياتي