بعد اذنك الاخ ياسر و الاخ صلاح
اسمحوا لي بتعليق بسيط
الكود جيد من ناحية التطبيق لكنه متغير من حيث الوقت
مثلاً لو في اليوم الثاني جرى التلاعب بأي خلية من الخلايا المحفوظة فأن التاريخ والوقت سوف يتغيران
هذا رأي و انشاء الله ان اكون مخطئاً
بعد اذنك اخي علاء
من حيث النتيجة بالقروش العدد صحيح لكنه بصيغة نص و لا يمكن اجراء اي عملية رياضية عليه (جمع ,طرح ...)
*المعادلة الصحيحة بالمرفق
فلوس salim.rar
انسخ هذا الكود وصعه في حدث الصفحة:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next rng
End Sub
استبدل الكود على هذا الشكل:
Sub Macro1()
Dim cl As Range
q = 21: r = 21
For Each cl In Range("O21:O" & [O10000].End(xlUp).Row)
If cl.Value = "تنفيذ" Then
Range("Q" & q) = cl.Offset(0, -13)
Range("R" & r) = cl.Offset(0, -11)
q = q + 1: r = r + 1
End If
Next
End Sub
اخواني على ابواب الامتحانات احببت ان أقدم لكم شيئاَ مميزا (مرفق ملف وورد لتعليمات التشغيل)
علامات التلاميذ
1-نكتب اولاً اسم التلميذ
2- نملأ العلامات في الخانات الخضراء (من خلال الزر Tape يمكن التنقل من خانة الى اخرى دون المرور بالخلايا المحمية)
3- البرنامج يقوم بكل العمليات الحسابية و يعطي المعدلات والمجموع و النتيجة فقط عند امتلاء الخانات المناسبة
4-تختار عدد الصفوف المراد مشاهدتها (حسب الشهر ) ذلك من خلال ادراج رقم الصف في الخلية R4 والضغط على
زر أضافة /ازالة صفوف
5- بعد ذلك نضغط على زر جديد
أ-يقوم اكسل بادراج صفحة جديدة باسم التلميذ تحتوي على كل العلامات التي سبق و ادرجت
ب-يفتح لنا الصفحة الرئيسية فارغة لادراج علامات التلميذ التالي
ج- الصفحة الجديدة محمية من التلاعب بها و لا يمكن تغييرها الا من خلال الصفحة الرئيسية
د- اذا تكرر اسم التلميذ يعلمك اكسل بذلك و لك حق الاختيار بتبديلها او المحافظة على القديمة
(تستعمل حالة التبديل عادة مع قدوم الشهر التالي)
6-النتائج (ناجح/ناجحة/راسب /راسبة ) يمكن التحكم بها من خلال الصفحة الرئيسية –الخلية E1
e1 =1 يعني ذكر و 2 يعني انثى (الرقمان لا يظهران على العلن)
7- يمكنك نسخ البرنامج عدة مرات كل نسخة في مصنف مستقل حسب عدد الصفوف
وكتابة اسم الصف الجديد بعد الغاء حماية الصفحة الرئيسية و ثم اعادة حمايتها
ملاحطة : الخلايا الملونة في الصفحة الرئيسية تزول الوانها بعد التعبئة
notes 1.rar
تعليمات التسجيل.rar
انا اتكلم عن الاصدار 2010
اذا لم يكن لديك افعل ما يلي
1- حدد الخلية
2- اذهب الى data validation (لا اعرف ماذا تسمى بالعربية)
3 - مخصص و هناك تجد المطلوب