أبومروان

جزاكم الله خيرا يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى

جزاكم الله خير الجزاء .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين.

جزاك الله خير وعمل اكثر من رائع

وعليكم السلام ورحمه الله وبركاته اتفضل شاهد الرابط أدناه ⬇️ لعله تجد ما تريده

وعليكم السلام معادله مقدار الدرجات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,10,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,10,0)) معادله الملاحظات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,9,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,9,0)) تجربة 1.xls

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

الـحَمْدُ للـهِ الَّذِي بِنِعْمَتهِ تَتِمُّ الصَّالِـحَاتُ . مشكور لكلماتك الطيبه .كلنا بنساعد بعض . لم اعلم سبب الكود لم يعمل تلقائي لدليك انتظر ربما نجد من يساعدنا ويعلمنا لنصل الي حل افضل من احد عملاقه المنتدي الكبير

ذا لسبب ما تريد تعطيل الاختصارات بما في ذلك مفتاح Windows (فوز + مفاتيح الاختصار)، يمكنك القيام بذلك ببساطة شديدة عن طريق محرر نهج المجموعة. فتح محرر نهج المجموعة (نوع GPEDIT.MSC in يجري وتعطي Enter) وانتقل إلى تكوين المستخدم> قوالب الإدارة> Windows المكونات> Windows Explorer (File Explorer إلى Windows 8) في الجزء الأيسر، وتحديد ثم انقر نقرا مزدوجا فوق الإدخال أوقف Windowsمفاتيح الاختصار X +

عدل في كود الموقت كما تريد نجد في هذا الكود 10 ثواني اترك الجهاز 10 ثواني علي شيت الاكسل بدون الضغط ع اي شي سوف يعمل الكود تلقائي ان شاء الله DownTime = Now + TimeValue("00:00:10")

وعليكم السلام ورحمه الله جرب الكود التالي Private Sub TextBox1_Change() If Me.TextBox1.Value > Me.TextBox2.Value Then CommandButton2.Enabled = False CommandButton28.Enabled = False End If CommandButton2.Enabled = True CommandButton28.Enabled = True End Sub Private Sub TextBox28_Change() If Me.TextBox1.Value > Me.TextBox2.Value Then CommandButton2.Enabled = False CommandButton28.Enabled = False End If CommandButton2.Enabled = True CommandButton28.Enabled = True End Sub

السلام عليكم حالات تثبيت القيم عند سحب المعادلات عندما تكون علامة الدولار في يسار الحرف مثل A$ معناها الخلية مثبتة أفقيا ، اي عند السحب الأفقي لا تتغير القيمة المدخلة في الخلية عندما تكون علامة الدولار في يمين الحرف مثل $A معناها الخلية مثبتة رأسيا، اي عند السحب الرأسي لا تتغير القيمة المدخلة في الخلية عندما تكون علامة الدولار في يسار و يمين الحرف مثل $A$ معناها الخلية مثبتة أفقيا و عموديا ، اي عند السحب الأفقي و العمودي لا تتغير القيمة المدخلة في الخلية

جرب هذا المرفق بعد التعديل لعله المطلوب https://www.raed.net/file?id=210713

خاصية زر الاغلاق من الاكس الصق هذه السطر في حدث الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub واما لو ظهور اسم المستخدم وكلمه المرور اضف الكود التالي كما في الصوره اعذرني الملف كبير الحجم لم استطيع ارفاقه TextBox1 = " " TextBox2 = " "

استاذ @ابو .. عبدالرحمن الكود يعمل عندي بكفاءه كما في الصوره

وعليكم الشلام ورحمه الله وبركاته تم عمل فورم به ليست بجميع اسماء الشيتات التي يحويها الملف مع امكانية البحث وانظر لهذا الموضوع لعله يفيد تم اخذ الفورم والاكواد منه Add Sheets.xlsm

استخدام Google Drive Google Drive هو أسهل طريقة للعمل في مشروع في وقت واحد. يمكن لأي شخص لديه حساب Google الوصول إلى الملفات وتعديلها حسب الحاجة. سجّل الدخول إلى حسابك وانتقل إلى جوجل درايف. بمجرد دخولك ، يمكنك إنشاء ملف جديد أو تحميل ملف موجود. بمجرد إنشاء المستند أو تحميله ، انقر فوق الزر مشاركةفي الجزء العلوي الزاوية اليمنى من ورقة العمل. سيمنحك هذا الخيار لمشاركة جدول البيانات عن طريق إدخال عنوان بريد إلكتروني أو مشاركة رابط مع زملائك. جميع التغييرات يتم تعقبها وحفظها تلقائيًا. يمكنك العمل على المستند معًا في الوقت الفعلي وهو مناسب جدًا.

و عليكم السلام ورحمه الله وبركاته استاذ @Ashraf Ehab رااجع الموضوع ادناه قد يفيدك

جرب هذا الموقع للتحويل ملفات pdf

وعليكم السلام ورحمه الله دا كود سكون الشاشه لو يكن 10 ثواني وبعدها يظهر فورم1 واخفاء الشيت https://www.raed.net/file?id=210288 im DownTime As Date Sub SetTimer() DownTime = Now + TimeValue("00:00:10") Application.OnTime EarliestTime:=DownTime, _ Procedure:="ShutDown", Schedule:=True End Sub Sub StopTimer() On Error Resume Next Application.OnTime EarliestTime:=DownTime, _ Procedure:="ShutDown", Schedule:=False End Sub Sub ShutDown() Application.DisplayAlerts = False ' MsgBox "انتهت جلسة العمل يجب التفعيل مرة اخرى " & " " & UserName, , " منظومة النتائج الاساسي والثانوي جميع السنوات الدراسية""" Application.Visible = False UserForm1.Show End Sub

السلام عليكم ورحمة الله اتفضل لعله المطلوب حساب تاريخ المعاش.xlsx شاهد الرابط ادناه

السلام عليكم ورحمه الله وبركاته الساده الافاضل تحياتي وكل عام وانتم بخير هل يمكن عمل كود يكون بصيغه add-in xlam لتجنب او تصحيح تلقائي الاخطاء الناتجه عن عدم توافق الكود مع الجهاز 32 او 64 بت كما في الصوره .