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

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

السلام عليكم انظر للملف المرفق اخي الكريم وحسب ماطلبت اعلمنا ملاحظاتك تحياتي test.rar

مشاركة مع الاخوة راجهع هذا هنا

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

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

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

السلام عليكم اخوتى الكرام هل يوجد طريقه لإخفاء الاكسس من شريط المهام على سطح المكتب حتى لا يعبس بها المستخدم انا تمكنت من اخفاء الاكسس وإظهار النمازج لكن الاكسس مازال يظهر فى شريط المهام وبعد تسجيل الدخول يفتح طبيعى جدا وانا اخشى من عبس المستخدم بالفورم او بالاكواد وهذه هى القاعدة اسم المستخدم / Admin كلمة المرور / 1 متابعة الائتمان 2.rar

ربما كان المطلوب (تم تغيير اسماء الشيتات الى اللغة الاحنبية من اجل نسخ الكود ولصقة دون مشاكل لغوية) الكود Sub fil_data_val() Dim S As Worksheet, T As Worksheet Dim dic As Object Dim i%: i = 3 Set S = Sheets("SOURCE_SH") Set T = Sheets("TARGET_SH") Set dic = CreateObject("Scripting.Dictionary") Do Until S.Range("B" & i) = vbNullString dic(S.Range("B" & i).Value) = vbNullString i = i + 1 Loop With T.Range("BK21").Validation .Delete .Add 3, Formula1:=Application.Transpose(Join(dic.keys, ",")) End With dic.RemoveAll: Set dic = Nothing End Sub الملف مرفق ADMINASTREATIONS.xlsm

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

شكرا للأخ أحمد الفلاحجى على الدروس المرفقة

استاذي / @kha9009lid الله الله عليك استاذى كود صغير وجميل ويحقق المطلوب الله يبارك فيك ويجعله في ميزان حسناتك والله لم اجد كلمة تعبر عن ما تفعله حضرتك في اكسس وانا كم استفيد من اكواد وطريقة تفكيرك فى الحلول كما اشكر استاذنا / احمد الفلاحجى على متابعته للموضوع ومحاولته لايجاد حل شافي ربنا يجزاه كل خير واشكر الاستاذ @husamwahab على مشاركته وتقديم المساعده لى جزاه الله خيرا والى الجميع كل التقدير والاحترام

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

افتح النموذج واضغط على نقل جداول طلاب الفراغات ..... ربما هو المطلوب ... Database1 (1).mdb

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

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

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

ألف مبروك والى الأمام دائما ترقية مستحقة أعانك الله على هذه المسؤلية

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

هذا الملف بدون حمايه مؤقت1.xlsm

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

يمكنك استخدام هذه المعادلة لجلب ارقام الشيكات بدلا من معادلة المصفوفة فهى معادلة عادية وبالتالى تكون اخف =IFERROR(LOOKUP(2,1/(((COUNTIF($V$2:V2,$P$3:$P$100)=0)*(COUNTIF($P$3:$P$100,$P$3:$P$100)>=1))),$P$3:$P$100),"")

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

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

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

وذلك لأنك أخطأت فى المعادلة الموجودة بالعمود V الخاصة بجلب أرقام الشيكات فهذه معادلة مصفوفة وليس معادلة عادية فلابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تجميع المكررات1.xlsx

بالاضافه لما قاله استاذ @sandanet ارفق لك ملف به بعض الدروس للاستفاده منها Lessons اهم الدروس.rar وجزاه الله كل خير صاحبها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

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

ربما كان المطلوب Takssim.xlsx