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

في ملفك قم بالاتي:- اضغط بيمين الفأرة على ملف الإكسيل (وهو مغلق) واختر Properties. (حصائص) في الأسفل، إذا وجدت كلمة Unblock (إلغاء الحظر) بجانب رسالة تحذير أمني، ضع عليها علامة صح واضغط OK اليك الملف مرة احرى ملف الحجز (1).xlsb

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك انك تقصد بالعمود الثالت العمود A يناء عليه اليك معادلة صعها بداية من D2 ثم اسحبها لاسفل او ضغها في عمود بداية من الصف2 =INDEX($B$2:$B$500;MATCH(A2; $C$2:$C$500; 0)) ارجو ان يكون في ردي ما يفيد تحياتي

أهلاً بكم في انطلاقة سلسلتنا الجديدة "الفعاليات والتحديات الشهرية". في عالم قواعد البيانات ، المحترف الحقيقي ليس من يكتب مئات الأسطر من الأكواد ، بل هو "المعماري" الذي يبني قاعدة بيانات قوية ، ذكية ، وتحمي نفسها بنفسها ! تحدي اليوم سيعيدنا إلى الجذور ، إلى قوة محرك آكسيس الكامنة في جداوله . فهل أنت مستعد لخوض التجربة الأولى ؟؟ 📖 قصة التحدي :- طلب منك عزيزي المشارك ( مصنع تقني ) بناء نظام لإدارة شؤون الموظفين ، ولكن لديهم شروط صارمة جداً لمنع أي موظف مُدخِل بيانات من ارتكاب أخطاء . حيث أن الإدارة ترفض تماماً استخدام أكواد ( VBA ) ، وتريد أن تكون الحماية مزروعة ومتأصلة في قلب الجداول مباشرة ، لضمان أقصى درجات الأمان . 🛠️ المطلوب :- إنشاء جدول باسم tbl_Managers ، يحتوي على الحقول التالية :- اسم الموظف ( EmpName ) تاريخ الميلاد ( DOB ) تاريخ التعيين ( HireDate ) الدرجة الوظيفية ( JobGrade ) = (A أو B أو C) الراتب الأساسي ( Salary ) 🚫 شروط التحدي :- يجب عليك ضبط إعدادات الجدول (Property Sheet) ليقوم بالمهام التالية تلقائياً :- يُمنع الحفظ في حال مخالفة القوانين والأحكام ، حيث يُمنع تسجيل أي موظف عمره أقل من 18 عاماً ( بناءً على تاريخ ميلاده مقارنة بتاريخ اليوم ) . حماية التسلسل الزمني ، حيث يُمنع أن يكون تاريخ التعيين قبل تاريخ تأسيس المصنع ( 01/01/2020 ) . يُمنع أن يكون تاريخ التعيين في ( المستقبل ، أي بعد تاريخ اليوم الحالي ) . حماية هيكل الرواتب : يجب ربط الراتب بالدرجة الوظيفية كالتالي :- إذا كانت الدرجة A : الحد الأقصى للراتب هو 10,000 . إذا كانت الدرجة B : الحد الأقصى للراتب هو 7,000 . إذا كانت الدرجة C : الحد الأقصى للراتب هو 5,000 . الرسائل المخصصة ، بحيث عند وقوع أي خطأ ، يجب أن يظهر للمستخدم رسالة تنبيه واضحة باللغة العربية تشرح له سبب الرفض بالضبط . 🚫 قوانين المشاركة :- يُمنع منعاً باتاً استخدام أكواد VBA أو الـ Macros - الماكرو . الحل يجب أن يكمن في خصائص الجدول ( Table Properties ) فقط . ♻ كيف تشارك ؟ قم برفع ملف مرفق فقط . وتذكر أنك عزيزي المشارك تملك الحق في 3 محاولات لإجاباتك خلال التحدي الواحد فقط .

وعليكم السلام ورحمة الله وبركاته الطريقة حدّد كل الجدول (أو النطاق الكبير اللي تشتغل فيه). من القائمة: اختر (تنسيق شرطي) ثم (قاعدة جديدة) ثم (استخدام صيغة لتحديد الخلايا المراد تنسيقها) اكتب الصيغة التالية: =ROW()=CELL("row") اختر اللون اللي تحبّه. اضغط (موافق) الأن كلما تكتب في أي خلية في السطر اضغط السهم لليمين أو اليسار وواصل الكتابة ـ يعني لاتنزل سطر جديد ولكن تابع الكتابة في نفس السطر تقبل تحياتي

وعليكم السلام ورحمة الله وبركاته غن طريق كود صغييييير Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim ws As Worksheet Set ws = Me ws.Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.Color = RGB(220, 230, 241) Target.Interior.Color = RGB(255, 255, 150) End Sub ملف كمثال تلوين صف وحلية.xlsb اذا اردت تغيير اللون اليك قائمة بالالوان أحمر فاتح: RGB(255, 200, 200) أخضر فاتح: RGB(200, 255, 200) أزرق فاتح: RGB(200, 220, 255) أصفر فاتح: RGB(255, 255, 150) برتقالي فاتح: RGB(255, 220, 180) رمادي فاتح: RGB(220, 220, 220) بنفسجي فاتح: RGB(230, 200, 255) سماوي: RGB(180, 240, 255) تحياتي

السلام عليكم تم انشاء القائمة للخليتين Horaire202.xlsx

السلام عليكم يجب على كل مبرمج ، سواء مبتدئ او محترف او يريد ان يبرمج ، ان يستعمل الذكاء الاصطناعي ليساعده في البرمجة بين الحين والآخر. الاُمي في هذا الزمان هو من لا يستعمل الذكاء الاصطناعي ، والذي يبدأ استعمال الذكاء الاصطناعي من اليوم فهو متأخر بضع سنين عن مبرمجين الغرب. المحترف: قد لا يحصل على كل كود يتمناه ، ولكن يمكنه الاستفادة بجزء من الكود او من الافكار التي يحصل عليها. قد لا يحصل على الكود الذي يستطيع به تحريك الكائنات في النموذج في وضع العرض ، ولكنه يستطيع الحصول على كود التأكد من وجود الانترنت ، او حساب عدد ملفات pdf الموجودة في مجلد الموظف. المبتدئ: ولأنه مبتدئ ، فطبيعي ان طلباته ستكون على مستوى يستطيع الذكاء الاصطناعي الرد عليها. الذي لا يعرف البرمجه ويريد ان يبرمج: اذا طلب من الذكاء الاصطناعي عمل شيء معين ، وبعد التجربة رأى ان الكود يعمل ، فقد حصل على مراده ، واذا لم يعمل ، فيستمر في طلبه وتجربته. وهذا الكود لن يكون مختلفا عن عمل الكثير والكثير المبرمجين المبتدئين الموجودين الان والتي برامجهم تملئ المكاتب بمئات المرات اكثر من برامج المحترفين ، وجزء كبير من الكود الذي يستعملوه هو عبارة عن نسخ/لصق ، ولا عيب في هذا مادام استطاع بالفعل ان يعمل برنامج يعمل بطريقة صحيحة. هناك اختلافات بين برامج الذكاء الاصطناعي ، وبين كل نسخة ، وبين كل تحديث. وبالتجربة تستطيع ان تعرف الانسب لك ، مثلا: هل استعمل ChatGPT 5.2 ، او استعمل Copilot والذي يستخدم ChatGPT 5.2 ؟ الجواب يأتي بالتجربة.

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

الأخ العزيز في ردي السابق طلبت منك وبما انك احترت تمت الاجابة فيعتبر هذا الطلب تمت الاجابة عليه وانتهى طلبت منك فتح موضوع جديد ليس هنا في نفس الصفحة بل انشاء موضوع جديد احر من الصفحة الرئيسية لمنتدى الاكسل ويمكنك وضع رابط لموضوعك السابق يجب عليك قراءة قواعد المشاركة بمنتدي أوفيسنا والتي من ضمنها 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص للاطلاع على قواعد المشاركة https://www.officena.net/Tips/Questions.htm انقل طلبك الاخير في مشاركة جديدة وابشر خيرا ان شاء الله

وعليكم السلام ورحمة الله وبركاته تم التجربة على اوفيس 2016 وتم تحديد حلايا والانتقال بين الصفحات لا يوجد تجمد والملف يعمل بسرعة ننتظر تجارب الزملاء

مشاركة مع الأستاذ @عبدالله بشير عبدالله ، هذه تجربتي .. استخدمت الحدثين التاليين في ThisWorkbook :- Private Sub Workbook_Open() Application.IgnoreRemoteRequests = True Application.Visible = False UserForm6.Show vbModeless End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Response As VbMsgBoxResult Dim MsgText As String MsgText = "سيتم اغلاق جميع أوراق العمل ومشاريع آكسل المفتوحة ، هل ترغب بالاغلاق؟" Response = MsgBox(MsgText, _ vbCritical + vbYesNo + vbMsgBoxRight + vbRtlReading, _ "تنبيه هام - إغلاق النظام") If Response = vbNo Then Cancel = True Exit Sub End If Application.IgnoreRemoteRequests = False ThisWorkbook.Saved = True Application.Quit End Sub وقمت بتعديل بسيط على الحدث UserForm_Activate :- Private Sub UserForm_Activate() ThisWorkbook.Application.Visible = False Load UserForm6 End Sub مشكلة.xlsm