احمد بدره

ممكن تبدليه بهذا الكود

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.HasFormula = True Then

ActiveCell.Offset(0, 1).Select

ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select

ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select
End If

End Sub

و بعذ إذن أستاذنا الفاضل سليم   أرى أن يكون التعديل هكذا

اكتب في السطر الذي قبل  كلمة Dim  في الماكرو

ActiveSheet.Unprotect "123"

واكتب في السطر الذي قبل كلمة End sub

  ActiveSheet.Protect "123"

Option Explicit

Sub get_my_studiants()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "123"
Dim A As Worksheet
Dim B As Worksheet
Set A = Sheets("ALL_STD")
Set B = Sheets("B")
Dim col%, r, x, LB
LB = B.Cells(Rows.Count, "B").End(3).Row
If LB < 5 Then LB = 5
B.Range("a5").Resize(LB - 4, 6).Clear
Dim my_clas$: my_clas = B.Range("e2")
Dim my_mad$: my_mad = B.Range("K2").Value

 If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub
  col = A.Rows(1).Find(my_clas, lookat:=1).Column
  r = A.Columns(1).Find(my_mad, lookat:=1).Row
  x = Application.CountIf(A.Columns(1), my_mad)
   B.Range("b5").Resize(x).Value = _
   A.Cells(r, 2).Resize(x).Value
  B.Range("c5").Resize(x, 3).Value = _
  A.Cells(r, col).Resize(x, 3).Value
  With B.Range("A5").Resize(LB - 4, 6)
    .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)"
    .Columns(1).Interior.ColorIndex = 6
    .Borders.LineStyle = 1
    .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)"
    .Value = .Value
    .Font.Size = 26
    .Font.Bold = True
    .InsertIndent 1
  End With
Exit_Sub:
  Application.ScreenUpdating = True
  ActiveSheet.Protect "123"

End Sub

My_students (1).xlsm

أ / مصطفى كمال متولى 

لا شكر على واجب المهم أنه تم تنفيذ المطلوب بنجاح

بعد إذن أستاذنا الفاضل سليم

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

جرب هذا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula = True Then
ActiveCell.Offset(0, 1).Select
End If
End Sub

My_students (1).xlsm

محاولة منى جرب الكود

=IF(B1="نصف";A1&"و "& B1;SUM(A1:B1))

إذا لم تشتغل المعادلة استبدل الفاصلة المنقوطة بفاصلة

مرفق ملف

جمع.xlsm

بعد إذن أستاذنا الفاضل عمر الحسيني

يمكن عمل التحقق من الصحة الأرقام بين 0 و20 

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

كما بالصورة  بعدها إظهار القيم الخطا قم بتحديدها ومسحها

Test_2.xlsm

بعد إذن الأستاذ مهند 

أولاً قم بالذهاب إلى المطور  ثم اختر إدارج يظهر صندوق اختر منه مربع تحرير وسرد  بعد ذلك قم بالضغط والسحب ليتم رسم الشكل

قم بعمل  كليك يمن على الشكل يظهر شكل اختر تنسيق عنصر تحكم  اختر منه عنصر تحكم قم بإدخال النطاق  ثم حدد ارتباط الخلية

مرفق صورة للتوضيح

33.xls

حسب المطلوب رقم 1 

جرب هذا  في فورم 3

بالنسبة للمطلوب رقم 3  لا يوجد خلل في الاستعلام في الفورم 2 

بعد فتح الفورم تحدد الاسم نوع الاستعلام ( المعتمرين ) ، ( الرحلات )

بعدها اضغط على زر استعلام  حتى يتم تنشيط خيارات البحث

حدد خيار البحث المطلوب ثم اكتب في التكست بوكس المقابل لنوع البحث تكست بوكس 16

تلاحظ أنه يأتي بالاستعلام

برنامج المعتمرين _A4.xlsm

بارك الله فيك

الشرح موجود داخل الملف  الماكرو اسمه الدرجة

1اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsm

لا شكر على واجب المهم أنه تم العمل بنجاح

تم التعديل

saf.xlsm

الملف به تقرير من أعمال العلامة الكبير أستاذنا الفاضل عبدالله باقشير

تم عمل ماكرو لتشغيله  ولكن يشترط أن تلغي التصفية قبل تشغيله حتى يعمل على النمط الذي تريده

برنامج المعتمرين _A4.xlsm

التفقيط في الماكرو معمول حسب العمود Y

قمت بإضافة دالة الترقيم لأستاذنا الفاضل محمد صالح

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

وأعتقد أنها أفضل حل

جرب هذا

1اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsm

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

وأيضًا التفقيط الذي قمت به تم في نفس الكود

فبمجرد الضغط على الماكرو يتم حساب الدرجة الكلية وأيضًا التفقيط في العمودين ولكن بشرط العمود w  لا يكون فارغ

وياريت عند رفع أي ملف يكون محفوظ بأي صيغة من الموجودين في الصورة  لأن أنا أو غير من الزملاء يضطر أن يحفظ الملف مرة أخرى حتى يتم الأكواد والماكرو  في الملف

اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsm

عليك السلام ورحمة الله وبركاته

جرب هذا لعله يفي الغرض

اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsx

ممكن استدعاء اسم القارة وأيضًا عاصمة الدولة بمجرد كتابة اسم الدولة عن طريق الدالة vlookup بشرط وضع جدول به اسم الدولة واسم العاصمة واسم القارة بنفس الترتيب كما بالمرفق

ممكن أن تكمل الجدول المرفق حتى 2000 اسم

الدول والعواصم1.xls

بعد إذن الأستاذ / أحمد يوسف

جرب هذا

Bon de livraison Said Jouet.xlsm

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

وعندما أخذت الملف وجدته يحتاج أي أشياء كثيرة

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

تم تعديل المعادلات حتى يكون للطالب الغائب نتيجة

وأنا أرى أنه لا داعي لهذا الترتيب فممكن طباعة الناجحون في كشوف منفصلة  وكذلك الراسبون

تم عمل استدعاء الناجح أو الراسب أو جميع الطلاب  بالأكواد

جرب الملف

saf.xlsm

جرب هذا ربما يفي الغرض

اعمال سنة بالحروف تربية اعدادى رياضية.xlsx

أخي الفاضل Mohmad83  الإضافة التي كنت أضفتها هي وضع آخر سجل تم إضافته في الليست بوكس

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

أما الذي تقصده حسب فهمي ممكن تحتاج إلى فرز تنازلي حسب رقم المسلسل داخل الشييت نفسه بعد عملية الإخال

جرب هذا

اضهار اول صف فارغ.xlsm

بعد إذن أستاذنا الفاضل سليم

جرب هذا لعله يفي الغرض

اضهار اول صف فارغ.xlsm

جرب هذا

Bon de livraison Said Jouet.xlsm

وعليك السلام ورحمة الله وبركاته

قم بوضع هذه الأسطر أسفل كود الترحيل قبل End Sub

ActiveWorkbook.Save
With ActiveSheet.PrintOut
End With

أستاذ حسين مامون بارك الله فيك ولك بمثل ما دعوت

بارك الله فيك أستاذنا الفاضل سليم

ولكن بعد إذنك  أقترح أن تكون المعالة

=AND(ISNUMBER(A1);SUM($A$1:$A$5)<=20)

حتى إذا تم تغيير الأرقام الأولى بعذ ذلك فيظل التحقق من الصحة  يعمل

أستاذ حسين مامون بارك الله فيك ولكن بعد إذنك من الأفضل أن يوضع الكود في حدث  Worksheet_Change

لأن في حدث Worksheet_SelectionChange

ممكن يقبل أي رقم زائد ولا يعطي الرسالة إلا بعد تحديده

VERIFICATION.xlsx

هذا الملف محفوظ بنوع بدون وحدات ماكرو

يجب أن يتم حفظ الملف بأحد الخيارات التي في الصورة المرفقة حتى يتم تشغيل وحدات الماكرو

بعد إذن أستاذنا الفاضل سليم

جرب المرفق

التقرير السنوى.xls