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

وعليكم السلام ورحمة الله وبركاته .. هذه مساهمة بسيطة كبداية . استكمل باقي العمل حتى تشعر بمتعة العمل 😊 . St.Sys.accdb

روووعة من طبعه الكرم يعطي بزيادة كان طلبي أداة ربط الجداول فكان الرد كنز من الأدوات ألف ألف شكر أخي @Moosak وأضم صوتي لصوت الأخ @jjafferr الف تحية لأبناء عمان

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

وهذه مساهمة مني بادراج الوحدة النمطية الموجودة في الملف St.Sys2.rar

فعلا كنت أقصد القائمة اللي على اليمين 😅 .. ولكن لو لليسار معنى أن تضيف ما هو غير موجود فالخير خيرين 😎✌ ................................................................................................................ المشكلة أن المستخدم قد يلخبط بين الجداول وقد يرتكب جرائم في البيانات من غير قصد 😅 لذلك تبسيطها له يكون هو تسهيل من ناحية وهو حماية للبيانات من ناحية أخرى ..👌 بعد تطبيق الفكرة لاحظ كيف صار شكلها 🙂 : مع بقاء اسماء الجداول الحقيقية مخفية في العمود الأول .. Clean_Data.accdb أبشر يالغالي 🙂 ... مع ذكر أن الجزئية رقم (4) الخاصة بتصدير الجداول المحلية إلى القاعدة الخلفية غير مكتملة بعد 🙂 وفي الأصل هي جزء من مجموعتي الخاصة بأدوات المبرمج والتي أصحبها معي في كل برنامج ، وقد أدرجتها كلها كاملة لعلك تستفيد منها ( خذ ما شئت ودع ما أبيت ) 🙂 : Admin Tools.accdb

صراحة أنا فكرتي كانت أبسط وهي أن يقوم المستخدم بإنشاء إرتباط مع الجداول المطلوبة فقط ولكن قد تكون فكرتك أكثر شمولية ليش مافي شي يستاهل 😅 إذا أنت أصلاً قمت بما هو أصعب وهو مثال الاكسل المذكور ولا أعتقد أن العمل مع أكسس سيكون أصعب بعد أن قمت بإضافة المشاركة فوجئت بأن الأستاذ @Moosak قام بالرد وكانت فكرته ترجمة للفكرة التي ذكرتها وهي ربط الجداول المطلوبة فقط وياريت يشاركنا الأداة التي ذكرها

وعليكم السلام -تفضل معادلتين لطلبك .اختر منهما ما تشاء =MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32)) =MINIFS($E$7:$E$32,$C$7:$C$32,$M7,$G$7:$G$32,"") استخراج تاريخ اقدم الفاتورة-1.xlsx

السلام عليكم ورحمة الله وبركاته أود أن أحيطك علماً بأن جميع ما قمت به من حلول في المشاركات السابقة، كانت اجتهاداً شخصياً مني ، وذلك بسبب عدم شرح تفاصيل الطلب بدقة، وغياب الشكل المتوقع للمخرجات في بداية طلبك في اول مشاركة. وهنا أود أن أسترعي انتباهك ولجميع احبابنا اعضاء المنتدى الكريم لنقطة تنظيمية وإدارية هامة : عند طرح أي سؤال أو طلب فكرة برمجية مستقبلاً، من الأفضل دائماً تجهيز ورقة عمل (شيت) داخل الملف كنموذج تصوري للنتائج، أو شرح آلية ومكان ظهور المخرجات بدقة (مثل: شكل الجدول المطلوب، وتحديد الأعمدة، وهل تريدها في نفس الورقة أم في أوراق منفصلة؟). وهذا يضمن اختصار الوقت والجهد وتفادي كثرة التعديلات المتكررة. وتكون النتائج تماماً كما تريدها وبتنسيقها الصحيح وتفاعل اعضاء وخبراء المنتدى اكثر. على أية حال، حسب فهمي لطلبك في مشاركتك الأخيرة؛ فقد تم دمج الفعاليات النشطة واللجان الخاملة معاً في شيت واحد متكامل، كما تم تعديل عدد اسماء المشاركين الى 15 عمود في طلب سابق لكم. تقبل وافر شكري، وعميق تقديري لشخصكم . لا تتردد في طلب التعديل ان كان الحل لا يلبى طلبك مؤشر عمل اللجان1 (1).xlsb

وعليكم السلام ورحمة الله وبركاته هذه الدالة تقوم بالمهمة ان شاء الله صعها في f3 ثم اسحب لاسفل تحياتي =IF(B3="فروج مسحب"; D3*E3*2.55; D3*E3*1.85)

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

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

وعليكم السلام ورحمه الله وبركاته استاذنا @عبدالله بشير عبدالله تحياتي الطيبة، بالطبع من الممكن تعديل صيغ مخصصة ثم دمجها في إكسل خصوصًا إن كنت تستخدم نسخة قديمة الاضافه تعمل بدون اي مشاكل ربما تكون حماية الجهاز عندك مُفعّلة بدرجة عالية شوية من المحتمل هذا السبب وراء ظهور التحذير وتم عمل موضوع مشابه علي المنتدا من عام 2020 XFunctions.rar XFunctions.zip

للاستفادة

وعليكم السلام ورحمة الله وبركاته حسب علمي في Microsoft Excel لا يمكن الانتقال لخلية أخرى “تلقائيًا بالكامل” أثناء الكتابة بدون أي إجراء من المستخدم، لأن الخلية تبقى في وضع التحرير حتى يتم تأكيد الإدخال. لكن يمكن بطريقة اخرى عن طريق فورم بحيث يتم فتح الفورم ثم اختيار اول خلية المراد ادخال الدرجة اليها ويكون الامر تلقائيا والتكست بوكس يتعامل مع اي عمود بشرط تحديد بداية اول للدرجات والكود يتعامل مع درجتين مثل 15 او 45 فبمجرد الانتهاء من كتابة الرقم الثاني يتنقل المؤشر تلقائيا الى الخلية التي اسفل منها اذا وجدت درجات من رقم واحد مثل 7 يجب كتابتها في التكست بوكس 07 اذا كانت لديك درجات من 3 ارقام مثل 123 يتم التعديل بالكود في الجزء If Len(v) >= 2 Then يتم تعديل 2 الى 3 ادخال الدرجات.xlsb

جرب هذا test1 ‫‬.xlsx

تفضل الملف بعد التعديل . كان فيه أخطاء كثيرة جدا في ارتباط الخلايا في اليوزرفورم مكتب_المحامي للتعديل2.xlsm

جرب التعديل التالي 115.xlsm

. افتح محرر VBA: اضغط Alt + F11 من القائمة: Insert → Module Sub بدء_النظام() Dim nomUtilisateur As String Dim motDePasse As String Dim cellule As Range Dim derLigne As Long Dim ligne As Long Dim feuille As Worksheet Dim trouve As Boolean Set feuille = ThisWorkbook.Sheets("Feuil1") ' غيّر اسم الورقة إذا لزم nomUtilisateur = InputBox("أدخل اسم المستخدم:") If nomUtilisateur = "" Then Exit Sub motDePasse = InputBox("أدخل الرقم السري:") If motDePasse = "" Then Exit Sub ' تحقق من صحة المستخدم (مثال بسيط: الاسم = الرقم السري) If nomUtilisateur <> motDePasse Then MsgBox "اسم المستخدم أو كلمة السر غير صحيحة!", vbCritical Exit Sub End If ' إظهار كل الصفوف أولاً feuille.Rows.Hidden = False ' افتراض أن الأسماء في العمود A derLigne = feuille.Cells(feuille.Rows.Count, "A").End(xlUp).Row trouve = False For ligne = 2 To derLigne ' نفترض أن الصف 1 فيه العناوين If Trim(feuille.Cells(ligne, 1).Value) <> nomUtilisateur Then feuille.Rows(ligne).Hidden = True Else trouve = True End If Next ligne If Not trouve Then MsgBox "لا توجد مهام مخصصة لهذا المستخدم.", vbExclamation Else MsgBox "مرحبًا " & nomUtilisateur & "، تم عرض المهام الخاصة بك.", vbInformation End If End SubPrivate Sub Workbook_Open() Call بدء_النظام End Sub