نجوم المشاركات

السلام عليكم ورحمة الله وبركاته نظل نتعلم من المهد حتي اللحد بعد العمل من خلال ال VBA لأكثر من 25 سنه عندما كانت 98% من موضوعات الاكسيل بقسميه ( كان يوجد قسم خاص بال VBA ) سابقا كانت معظم الموضوعات تدور في فلك الصيغ والمعادلات اجد نفسي لا اعرف االكثير من اسرار الاكسيل علي الاخص ( VBA ) وقفت مبهورا امام موضوعين هما الدالة NUMBEROUT مساعدة فى ملف خارج من جهاز البصمة قام بالرد عليهما الاخ سليم-حاصبيا وقد استخدم اسلوب Reg_Match اي Regular Expression وهو اسلوب جديد علينا يختصر الكثير من الااكواد والجهد عَلَّمَ الْإِنسَانَ مَا لَمْ يَعْلَمْ فأرجو من الاخ سليم-حاصبيا شرح واف لأسلوب ال Pattern ولا يبخل علينا يالمستندات التي يستقي منها اكواد ال Pattern وله الشكر

اخى الفاضل الاستعلام المرفق كان يعطى خطأ بالكامل تمام لو نظرت اليه الان هتلاقى بعض القيم والبعض خطأ اكمل باقى التعديلات على الكود مثال التالى سوف تضيف val وتفتح القوس ثم الحقل ثم تغلق القوس وكمل Val([asasy2019])+Val([agr_wazify])+Val([agr_mokamel])+val([elawa_tawedy]) طبق على باقى الكود فى الاستعلام واخبرنا بالنتيجه تقبل تحياتى وتمنياتى لكل وللجميع بالتوفيق طبتم واهتديتم Database11.rar

هي موجودة في قاعدة البيانات ، ولكن مخفية 🙂 جعفر

أخي الكريم دائما استخدم خاصية البحث في المنتدى ..... تجد الكثير من الموضوعات المشابهه لموضوعك ..... تفضل الشق الأول من مطلوبك .... حاول تصمم تقرر بالمطلوب واستخدم خاصية التنسيق الشرطي في التقرير ..... Database1.mdb

السلام عليكم 🙂 مع ان هذا الخيار ممكن استعماله ، ولكن ، للأسف الشديد ، هناك الكثير من المبرمجين يستعملون حقل الترقيم التلقائي كأحد الحقول التي يعتمد عليها البرنامج في التسلسل/الترقيم ، ومرتبط بجداول اخرى ، بينما يجب ان يكون حقل الترقيم التلقائي لإستخدام البرنامج (للفهرسة والوصول للسجلات) وليس لاستخدام المبرمج (لإستعماله في تسلسل/ترقيم الارقام او العملاء) . وعليه ، فإذا كان البرنامج يستعمل هذا النوع ، فإن حقل الترقيم التلقائي لن يحتفظ بالارقام الاصلية في البرنامج ، واستعلام الالحاق سيخلق ترقيم جديد ، مما سيجعل البرنامج لا يقوم بعمله بصورة صحيحة !! جعفر

وعليكم السلام-تفضل شهادات.xlsm

بارك الله فيك وزادك الله من فضله

بارك الله فيك اخى الحبيب احمد .. تم عمل المطلوب ... والنتيجه ممتازه اشكرك جدا .. وجزاك الله خيرا

وعليكم السلام ممكن عملها باكثر من طريقة الطريقة الاولى في المرفق في النموذج المسمى table تم عملها بدون استخدام اكواد عن طريق منشئ التعبير مع الاستعانة بمربعات نص غير منظمة ووضع تعبير مشروط اذا كانت خانة الاختيار =-1 تكون قيمة مربع النص تساوي القيمة الفعلية للحقل واذا كانت خانة الاختيار غير مؤشر عليها "صفر" تكون قيمة الحقل الغير منظم تساوي صفر وهكذا لبقية الحقول ثم جمعنا مربعات النص الغير منظمة للحصول على النتيجة الطريقة الثانية في النموذج المسمى جدول1 عملنا زر امر عند النقر يقوم بحجز متغيرات واستخدمنا كود بواسطة دالة IIF وبنفس الفكرة السابقة ولكن بدلا من مربعات النص غير المنظمة استخدمنا المتغيرات ممكن عملها بطريقة اخرى ولكن في اعتقاد هذة اسهل الطرق للحصول على النتيجة والله اعلم aa.accdb

جرب هذا الكود وهو نفس الكود في ملفك وبواسطة AND يمكن اضافة اكثر من جهاز Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub حماية برقم الهارد ديسك.xls وجدت الكود في ملفاتي ويعمل على خمسة اجهزة ويمكن زيادتها الى ما تشاء Private Sub Workbook_Open() 'Dim PC1$, PC2$, PC3$, PC4$, PC5$ 'PC1 = "74828D32" ' رقم الايدي للجهاز 1 'PC2 = "12BE1EE2" ' رقم الايدي للجهاز 2 'PC3 = "2D4F902" ' رقم الايدي للجهاز 3 'PC4 = "282B91B1" ' رقم الجهاز 4 'PC5 = "" ' رقم الايدي للجهاز 5 'With CreateObject("Scripting.FileSystemObject") 'If Hex(.Drives.Item("c:").SerialNumber) = PC1 Or Hex(.Drives.Item("c:").SerialNumber) = PC2 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC3 Or Hex(.Drives.Item("c:").SerialNumber) = PC4 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC5 Then 'Else: MsgBox "نأسف هذا البرنامج مخصص لجهاز اخر " 'ThisWorkbook.Close SaveChanges = True 'End If 'End With End Sub

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

تفضل فقط يمكنك استخدام معادلة المصفوفة هذه =IF(ROWS($K$4:K4)<=SUMPRODUCT(--(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1)),INDEX($D$4:$D$150,SMALL(IF(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1,ROW($D$4:$D$150)-ROW($D$4)+1),ROWS($K$4:K4))),"") Etat de developpement de solde.xlsx

انظر للمرفق اخي الكريم/اتمنى يكون طلبك DBdb.rar

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

فقط عن طريق التنسيق الشرطى تم التلوين كما تريد وهذه المعادلة تم استخدامها فى حالة الخسارة بالتنسيق الشرطى =AND($J$2="صافي خسارة",$J$3<0) وهذه فى حالة الربح =AND($J$2="صافي ربح",$J$3>0) وكما ترى بالصورة

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

وعليكم السلام-تفضل tasne31.xlsx

مرحبتين فيك أخونا الكريم عبدالاله عليك البدء خطوة خطوة وأي مشكلة تواجهها ستجد حلها هنا بإذن الله .. الاكسس يعتبر واحد من اسهل لغات البرمجة لعمل برامج كل ماعليك فعله هو ان تضع فكرة بسيطة لتنفيذها مثلاً فكرة عمل تخزين بيانات الموظفين ومن ثم الاستعلام عن بيانات اي موظف تريد عن طريق نموذج بحث بسيط وبعدها تستطيع تطوير برنامجك خطوة بخطوة وتعلم مهارات وافكار عديدة من خلال هذا المنتدى الذي يضم عمالقة وخبرات كبيرة لايستهان بهم مستعدين للإجابة على جميع التساؤلات إن شاء الله تحياتي

مبروك أستاذ أحمد بدره إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

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

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

فورم عدم تكرار المسلسل والاسم ورقم التليفون الفيديو

اولا . يجب وضع ملف الاكسل وملف الاكسس في نفس المكان او المجلد ثانيا . امسح محتويات الجدولين mark و Temp3 ثالثا . افتح النموذج واضغط على الزر وانتظر ظهور الرسالة رابعا . افتح الجدول mark تجد فيه ما تريد ... بالتوفيق

انظر جدولك المسمى mark ليس لك علاقة بجدول Temp3

شكرا يا أ عبد اللطيف على ردك بس اعئرني انا لسه في البدايات افهم من رأي حضرتك ان المطلوب مستحيل تحققه صح

السلام عليكم الخطأ في رقم العمود بدل 116 اصبح117 المصنف1.xlsb

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

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

العفو استاذ حلبى انا بحاول معكم لاتعلم ومن اسئله اخوانى بتعلم الكثير فبحاول على قدر معرفتى وابحث معكم لاتعلم اجد حلول فالاكسيس وفى الاكسيل وربنا بيسرها معى فتطويعها فالاكسيس والحمدلله بزق والحمدلله اساتذتنا لم يقصروا معنا جزاهم الله كل خير بالتوفيق اخى

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

السلام عليكم اخي العزيز ماقي مشكلة ليس لها حل ان شاء الله تفضل اخي الكريم طلبك : 1-البرنامج يحسب لك تاريخ استحقاق العلاوة الجديدة بصورة تلقائية لمدة سنة واحدة عند ادخال تاريخ العلاوة السابق. 2- عند وجود شكر للموظف يتم اختياره من القائمة المنسدلة ويقوم البرنامج بتقديم تاريخ استحقاق العلاوة الجديده لمدة شهر واحد. 3- اقصى حد للتشكرات التي تقوم بتقديم تاريخ العلاوة السنوية هو (3) . 4- عملت لك رسالة تنبيه باللون الاحمر (وميض متحرك) نعمل قبل 5 ايام من تاريخ الاستحقاق الجديد ويمكن زيادة مدة التنبيه الى اكثر من ذلك. 5- عملت لك تقرير بالعلاوات السنوية / في حالة وجود اي علاوة بقتح التقرير بصورة طبيعية / وفي حالة عدم وجود اي علاوة تظهر لك رسالة / لاتوجد علاوات هذا اليوم. اعلمنا النتائج ؟؟؟؟؟ تحياتي test.rar

جرب هذه المعادلة =IF(A2="","",CHOOSE((COUNTIF($L$2:$L$50,A2)>0)+1,"عام","خاص")) الملف مرفق count+ cHOOSE.xlsx

حسب فهمي لطلبك جرب المرفق حسابات 12020.xlsm تحياتي

وعليكم السلام-اهلا بك فى المنتدى , وبما ان الشرح لا يكفى المطلوب ولم تقم بوضع مثال والنتائج بالضبط على الملف فيمكنك استخدام هذه الموضوعات مهمة لك بموضوعك تكرر عشرات المرات وكان عليك قبل رفع المشاركة استخدام خاصية البحث بالمنتدى : مساعدة في شيت بصمة استخراج الوقت الصباحي والمسائي من عمود الوقت

أحسنت استاذ مجدى عمل رائع بارك الله فيك وزادك الله من فضله

تم التعديل Test_2.rar

عمل ممتاز ومجهود كبير جعله الله فى ميزان حسناتك

يمكنك استخدام معادلة المصفوفة هذه =INDEX($M$2:$U$8,MATCH($B2,$L$2:$L$8,0),) INDEX($M$2:$U$8,,MATCH($C2&E$1,$M$1:$U$1,0)) فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات المعادلة1.xlsx

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

وعليكم السلام-احسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل الحل بالمعادلات الحسابات1.xlsm

تفضل لك ما طلبت تجميع المكررات1.xlsx

وعليكم السلام-تفضل samples1.xlsm

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

أستاذ sam_farh أين الضغط على الإعجاب ؟!!

شاهد هذا الفيديو https://www.youtube.com/watch?v=UCiqBgdGFSs

استاذ محمود لا لزوم لخمس معادلات في هذه الحالة يكفي معادلة واحدة تكتب في الخلية J3 وتسحب يساراً =IFERROR(VLOOKUP($I$3,$B$6:$G$34,COLUMNS($I$2:J2),0),"")

تفضل ______12.xlsx