صلاح الصغير

الاخوة الكرام السلام عليكم و رحمة الله و بركاته اريد معادلة او كود على المثال التالي لمقارنة بيانات جدولين مع امكانية كيفية توسيع النطاق ( كود أو معادلة ) لان المقارنة سوف تكون على اعمدة كثيرة جدا ( مفردات مرتب ) مقارنة جدولين.rar

الاخ ابرهيم انا متشكر جدا لسعة صدرك اعتقد ان سيادتك بتكلم عن الكود الثانى انا اكلمك عن هذا الكود Option Explicit Private Sub Workbook_Open() Application.Caption = "Microsoft Excel yahiaoui" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim MyFilePath$, Extension$ MyFilePath = MyPCpath("MyDocuments") Extension = Left(ThisWorkbook.Name, Len _ (ThisWorkbook.Name) - 4) & " Backup" On Error Resume Next '<< folder exists MkDir MyFilePath & Extension '<< create folder 'save current version of this book in the folder ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _ Extension & "\" & Extension & _ (Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls" End Sub Public Function MyPCpath$(Folder) MyPCpath = CreateObject("WScript.Shell").SpecialFolders _ (Folder) & Application.PathSeparator End Function ممكن اكون انا موصلتس المطلوب بشكل جيد بالفعل الكود لا يقوم بعمل نسخة الا فى حالة حفظ الملف الموضوع انه عند فتح الملف و عمل مثلا تلوين خليه ثم غلق الملف يتم حفظ التغيير و المطلوب ظهور رسالة الحفظ من عندمه و عند الحفظ يتم عمل النسخة و فى حالة عدم الحفظ لا يحفظ التغيير و بالتالى لا يقوم بعمل نسخة

اخى ابراهيم الكود الاول بالفعل به هذا السطر Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) و يقوم بحفظ تلقائى عند الخروج و المطلوب يكون الحفظ و عمل النسخة من خلال زر save فقط و بارك الله قيك

بجد اكثر من رائعة يا ام عبد الله المعادلة دى مطلوبة جدا للمقارنة بين جدولين جزاكى الله خير جزاء

رائع يا اخ ابراهيم بس فى مشكلة الملف يحفظ تلقائيا عند الخروج منه ممكن نخلى الكود يعمل فقط عند حفظ الملف ( يحفظ البيانات و يقوم بعمل نسخة ) و فى حالة الدخول و اجراء تعديلات على الملف و الخروج دون حفظ ( لا يعمل نسخة و لا يحفظ البيانات ) و يا ريت نستعير الجزء الخاص بعمل فولدر لل backup و اكثر من نسخة احتياطية بالوقت و الزمان انا اكتشفت ان المشكلة كانت اما فى نسخة الويندوز او فى الاوفيس الكود الاصلى كان جميل و لكن ينقصه شى مهم و هو انه كان بيحفظ الملف فور الخروج تلقائيا و المفروض انيقتصر عمل الحفظ و النسخة الاحتياطية عند عمل حفظ بالطريقة التقليدية فقط و هذا لا يقلل من مجهودك ابدا حضرتك و الاساتذة الافاضل فلولاكم بعد ربنا ما توصلنا للاعمال المبدعة هذه و لا تعلمنا شى لو حضرتك مش فاضى انا ممكن اشتغل على الملف على كده و اعتمد على اننى لا اقوم باى تعديل غير مرغوب فيه فى الملف و عذرا لصراحتى

شكرا يا استاذ ابراهيم دائما فى العون سوف اجرب الكود الخاص بك و لكن بالنسبة لمشكلة الاوفيس انا مكنتش عارف المشكلة فين لكنى قمت بتنزيل نسخة ويندوز 7 فى العمل و كذلك اوفيس 2013 و الملف يعمل بصورة جيدة شكرا الف شكر

استاذ / رجب دائما مبدع جذاك الله خيرا

للرفع و عناية جميع الاساتذة الافاضل المحترمين جذاهم الله كل خير على كل ما يفعلونه لمساعدتنا فى اعمالنا

و الله يا استاذ ابراهيم اطلالتك تسعدنى و استسمحك تراجعلى موضوع تعطيل الماكرو من ملف اكسيل اخر لان المشكلة ظهرت من جديد و سؤال اخر هل تتعارض بعض الاكواد من office الى اخر لان الملف بعد اضافة كود النسخة الاحتياطية بيهنج على 2007 و اليك الملف و المشكلة الجديدة التى تحدث عند حفظ الملف http://www.officena.net/ib/index.php?showtopic=53846 salah 2014.rar

احترم كل الاراء و المهم الفكرة و كيف يمكن الاستفادة منها اما بالنسبة لسؤال الاستاذ / احمد فالموضوع منقول عن احد الاساتذة و ليس لى علاقة بالاكواد و المطلوب امكانية تشغيل الملفات الصوتية متتالية و ليس ملف واحد فقط حسب الاختيار

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

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

السلام عليكم و رحمة الله و بركاته الاساتذة الافاضل انا عندى فى البيت office 2013 و فى العمل office 2007 و الملف اصلا معمول ب 2007 الملف كان شغال كويس قوى فى البيت و فى العمل لحد ما قمت بوضع كود مهم جدا لعمل نسخة احتياطية لاحد اساتذة المنتدى و اعذروى للنسيان انا الرامات عندى بعافية شوية المهم : الملف على office 2007 لا يقوم بالحفظ و لا عمل نسخة احتياطية و يعطى رسالة وجود اضرار كثيرة بالملف و سوف يقوم باصلاحها مع الحفظ مرة اخرى و لكن يتعذر الحفظ و و يعلمنى بحفظه فى مكان على ال c/users/gs/appdata/romain/microsoft/office و بعد كده ملف بصيغة xlsb و مش عارف ايه المشكلة فى الكود و لا ايه علما بأنه الملف شغال كويس على office 2013 الباس الاول : اول ثلاث ارقام من الشمال × اخر ثلاث ارقام من اليمين الباس الثانى : 1310 باس الاكواد : 24229197 ملحوظة مهمة : الاكواد بالملف ليس لى اى دخل بها فهى انتقاء ما يناسبنى من ابداعات السادة الافاضل أ / ابراهيم ابو ليلة أ / الحسامى أ / رجب جاويش أ / سليم حاصبيا أ / محمد ابو البراء أ / عبد الله باقشير و الله يا جماعه كلهم اساتذة افاضل استفدت منهم كتير و اعذرونى تانى مرة لو كنت نسيت حد ارجو مساعدتى و لكم جزيل الشكر salah 2014.rar

للرفع

للرفع

شكرا لكل من حاول المساعده لقد وجدت الحل فى الموضوع التالى http://www.officena.net/ib/index.php?showtopic=34297#entry179620 و يمكن اثراء الموضوع للاستفادة الكود يقوم بعمل نسخة فقط عن طريق زر فقط فى حالة الحاجة و لكنه لا يعمل فولدر للحفظ ممكن اثراء الموضوع من الكود فى المشاركة السابقة يا ريت يقوم الزر بعمل حفظ للملف و كذلك يقوم بعمل فولدر للنسخة الاحتياطية و عند عمل تغيير على الملف فى وجود تغيير فى البيانات اذا قمت بالحفظ يحفظ الملف فقط دون عمل نسخة و اذا قمت بعدم الحفظ لا يحفظ و لا يعمل نسخة لان عمل النسخة و الحفظ سيكون فقط من خلال الزر و اسف للاطالة

Option Explicit Private Sub Workbook_Open() Application.Caption = "Microsoft Excel yahiaoui" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim MyFilePath$, Extension$ MyFilePath = MyPCpath("MyDocuments") Extension = Left(ThisWorkbook.Name, Len _ (ThisWorkbook.Name) - 4) & " Backup" On Error Resume Next '<< folder exists MkDir MyFilePath & Extension '<< create folder 'save current version of this book in the folder ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _ Extension & "\" & Extension & _ (Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls" End Sub Public Function MyPCpath$(Folder) MyPCpath = CreateObject("WScript.Shell").SpecialFolders _ (Folder) & Application.PathSeparator End Function 1 - ممكن تعديل الكود ليعمل عند حفظ الملف فقط لعمل نسخة احتياطية عند الحاجة و لا يقوم بحفظ الملف عند الخروج

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

للرفع

السلام عليكم و رحمة الله و بركاته الموضوع عايز صبر شوية للوقوف على المشكلة و اعتقد ان حلها سهل بالنسبة للاساتذه الافاضل و الموضوع للاستاذ / ابراهيم ابو ليله و كان مرفوع قبل كده و اعذرونى للنسيان لان الاكواد تخص اكثلا من استاذ فى المنتدى و الموضوع هو : ان الملف يقوم بالحماية بعدم فتح نافذة الاكسيل فى حالة تعطيل الماكرو من مركز التوثيق و فى حالة تمكين الماكرو تظهر رسالة السيريال و هى عباره عن حاصل ضرب اول ثلاث ارقام من الشمال × اخر ثلاث ارقام اول مره فقط لفتح الملف ثم تظهر شاشة اليوزر و رقم السر 123 المشكله ان الملف تقريبا و الله اعلم بيعلق فى حالة تعطيل الماكرو يفتح الملف عادى جدا بدون يوزر فورم و المفروض ان فى هذه الحالة يغلق نافذة الاكسيل لاكتشاف الخطأ : قم بتمكين الماكرو من ملف اكسيل اخر و افتح الملف ثم قم بالتعطيل و افتح الملف كرر هذه الحركة اكثر من مرة ستجد ان فى مرة ما سوف تعطل الماكرو و يفتح الملف عادى جدا بدون يوزر اتمنى ان يكون الشرح وافى و الله انا متأكد من الموضوع و جربته اكثر من مرة و عذرا للاطالة protect with drive.rar

السلام عليكم و رحمة الله و بركاته 1 - لماذا يظهر ال combo بهذا الشكل فى office 2013 فقط 2 - كيف يمكن تنسيق النص داخل ال combo من حيث الخط و التوسيط و ما الا ذلك combo box.rar

استاذ / رجب عذرا لمقاطعتكم و اشغالكم بتعليقى فقط اردت ان ابدى اعجابى باعمالك بجد اكثر من رائع

بارك الله فيك و عليك بجد انا سعيد بمعرفتك و ربنا يزيدك من علمه و اتمنى من سيادتك دوام التواصل معى لانى استفدت كتير من عملك ممكن بس اعرف ايه الفرق بين excel binary و excel enable macro و شكرا جزيلا

استاذ / ابراهيم الله ينور عليك بارك الله فيك لحد دلوقتى مفيش مشكله انا جربت تعطيل الماكرو و تفعيله من ملف اكسيل تانى و تم العمل بشكل جيد ممكن بس لو امكن التعديلين السابقين لانى من اول تنزيل للملف و انا ناقل الاكواد الى ملف شغلى بدل ما اغلط فى نقل الاكواد و الله انا حريص على ان يكون الملف بدون اى اخطاء هذه نافذة اكسيل تظهر فى حالة عدم الرغبة فى الدخول على الملف و الضغط على زر خروج ( cxl ) جزاك الله خيرا الف شكر Untitled2.rar

اخى ابراهيم ظهرت هذه الرسالةعند فتح الملف Untitled.rar