عبدالله بشير عبدالله

جرب التعديلات الاتية في ThisWorkbook ضع الكود التالي Private Sub Workbook_Open() Application.Visible = False UserForm1.Show vbModeless End Sub حتى يظل الفورم ظاهراً فوق أي ملف إكسل آخر تفتحه، أضف الجزئية في اعلي اكواد الفورم #If VBA7 Then Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr #Else Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Const HWND_TOPMOST = -1 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 قم باضافة هذا الكود للفورم Private Sub UserForm_Initialize() Dim hwnd As LongPtr hwnd = FindWindow("ThunderDFrame", Me.Caption) If hwnd <> 0 Then SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End If End Sub واخيرا في ThisWorkbook ضع الكود التالي Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True ThisWorkbook.Save ThisWorkbook.Close End Sub وكنت سارفق لك رابط لاخينا واستاذنا Foksh به حل للمشكلة ولكن وجدت انك صاحب الطلب نفسه فعدلت عن ذلك وهذا كل ما لدي لجل المشكلة وبالاستعانة ببرامج الذكاء الاصطناعي

وعليكم السلام ورحمة الله وبركاته لم توضح لنا ما هي الاكواد التي جربتها ولم تنجح لكي لا تكررها اذا كان السطر Application.Visible = False موجود ضمن الكود فهذا السطر يخفي برنامج إكسل من الجذور، مما يجعل أي ملف إكسل آخر تفتحه مخفياً أو غير قابل للوصول ويمكن استبدالها ThisWorkbook.Windows(1).Visible = False كذلك يكون الفورم vbModeless ضع الكودين في ThisWorkbook Private Sub Workbook_Open() UserForm1.Show vbModeless ThisWorkbook.Windows(1).Visible = False End Sub وع Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub

وعليكم السلام ورحمة الله وبركاته انت تستخدم الحرف a لادراج علامة الصح الظاهرة و بخط Marlett عليه تكون المعادلة =SUMPRODUCT(($F$7:$BQ$7)*(F9:BQ9="a")) الملف وبه التطبيق تقويم القراءة الأدائية.xlsm

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

يمكن غمل ذلك من تنسيق خلايا ثم مخصص ثم اكتب h:mm AM/PM المواعيد.xlsb

وعليكم السلام ورحمة الله وبركاته تم تنسيق الارقام كوقت يمكنك تغيير تاريخ الجهاز كتجربة اذا كان الوقت الحالي ليس به حصص المواعيد.xlsb

السلام غليكم ورحمة الله وبركاته اليك الملف ولا نتس تمكين الماكرو ان لم يكن مفعلا تقسيم المبلغ.xlsb

السلام عليكم ورحمة الله وبركاته اضافة الى مشاركة الزميلين أبومروان - Foksh محاولة اعادة تنظيم اكواد الملف ما تم عمله وتنظيمه - الغاء جميع الاكواد المتعلقة بتحديد النوع والمكررة في صفحات الانتظام والانتساب الثمانية وتم عمل كود واحد في WORKBOOK يقوم بتحديد نوع الشخص مع امكانية استتناء الصفحات التي ليس لها علاقة اظهار عناوين الجدول في شيت طباعة إضافة عمود سبب الاعفاء للجدول إضافة الاجمالي بعد اخر صف به بيانات اضافة دالة التفقيط تعديل اعدادات الورقة لتتناسب مع الطباعة إضافة زر طباعة تحياتي للجميع Copy of تجميع.xlsm

المعادلة لا تغمل على اصدار 2010 تعمل على اصدار 2013 وما فوق يمكن استخدام كود لتلوين الخلايا التي بها معادلات الخطوات حدد العمود او الاعمدة - ثم اصغط على الزر تلوين خلايا المعادلات.xlsb

قم بتحميل الملف الثاني للاستاذ Foksh به اعادة ترتيب التسلسلي وبه التقديرات يمكنك تعديلها بالكود اعتقد ان التقييم غير صحيح ربما تقصد جيدجدا مع مرتبة الشرف

وعليكم السلام ورحمة الله وبركاته اليك الحل باكثر من طريقة فصل الاحاد والعشرات والمئات.xlsx

لا اعلم بوجود المعادلة الا من خلال ردك الاخير فعذرا وكلامك هو الصواب

مغلمنا Foksh الفاضل جزاك الله خيرا مع ملاحظة ان النطاق للفرز الى .SetRange ws.Range("A1:M" & lastRow) وليس .SetRange ws.Range("A1:L" & lastRow) كما ارجو تعديل التقديرات حسب فهمي لتقسيم التقديرات من الملف ان تكون التقديرات هكذا لك كل التقدير والاحترام Select Case Cell.Value Case Is >= 92 Cell.Offset(0, -1).Value = "ممتاز مع مرتبة الشرف" Case Is >= 90 Cell.Offset(0, -1).Value = "ممتاز" Case Is >= 85 Cell.Offset(0, -1).Value = "جيد جداً مع مرتبة الشرف" Case Is >= 75 Cell.Offset(0, -1).Value = "جيد جداً" Case Is >= 65 Cell.Offset(0, -1).Value = "جيد" Case Is >= 50 Cell.Offset(0, -1).Value = "مقبول" Case Else Cell.Offset(0, -1).Value = "مقبول س" End Select

لا حول ولا قوة الا بالله الفاضل / أبو مسلم الحازم أشكرك أخي الكريم، ولكن وجب التنويه إلى أن الحل الصحيح والجهد الفعلي يعود للأخ [الاشتاذ أ / محمد صالح]، وما ردي إلا تأكيد لصحة كلامه فقط. أرجو ان تصحح الامر او من الإدارة أو المشرفين نقل اختيار «تمت الاجابة» إلى رده . مع جزيل الشكر لك وللجميع."

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