اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

أهلأ إخواني و أشكركم على ردودكم 

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

1.png

2.png

Demand Answer .rar

تم تعديل بواسطه المسلم العربي
قام بنشر

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

باستعمال خاصية "التحق من الصحة" Validation (تجدها في قائمة DATA "بيانات") تم إدراج قائمة منسدلة للأقسام مع رسالة خطأ في حالة عدم توافق كتابة اسم القسم مع عناصر القائمة المنسدلة للأقسام (ومن مساوئ هذه الطريقة أنه إذا تم نسخ ولصق أي شيء في خلايا هذه القائمة فإن الإكسيل يقبلها ولا يُظهر رسالة الخطأ)... والله أعلم

بن علية حاجي

Demand Answer .rar

قام بنشر

السلام عليكم

قمت بكتابة الأقسام المعنية تحت بعض من الخلية AF4 إلى الخلية AF27 واستوحيت الفكرة من ملف أخي العزيز سليم لتقديم هذا الحل... فقط يجب أن يتم إدراج الأقسام بالتسلسل (أي يجب أن لا نترك خلايا فارغة في عمود القسم بين طالب وآخر)...

بن علية حاجي 

Demand Answer_hben.rar

قام بنشر
4 دقائق مضت, المسلم العربي said:

أخي سليم و لما الخلايا فارغة يجب أن لا تظهر الرسالة 

و هكذا هو الامر (فقط اذا تم تسجيل قسم خاطئ تظهر الرسالة)

اظر الى الصفحة Salim من هذا الملف

Demand Answer_Salim_2.rar

قام بنشر (معدل)

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

Capture.PNG

تم تعديل بواسطه المسلم العربي
قام بنشر
9 دقائق مضت, المسلم العربي said:

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

Capture.PNG

تم معاجة الامر

انظر الى الصفحة Salim من هذا الملف

Demand Answer_Salim_3.rar

قام بنشر

السلام عليكم

الحل في هذا الرد...

منذ ساعه, بن علية حاجي said:

السلام عليكم

قمت بكتابة الأقسام المعنية تحت بعض من الخلية AF4 إلى الخلية AF27 واستوحيت الفكرة من ملف أخي العزيز سليم لتقديم هذا الحل... فقط يجب أن يتم إدراج الأقسام بالتسلسل (أي يجب أن لا نترك خلايا فارغة في عمود القسم بين طالب وآخر)...

بن علية حاجي 

Demand Answer_hben.rar

بن علية حاجي

قام بنشر
7 ساعات مضت, المسلم العربي said:

أخر سؤال و هل يمكن عمل هذا العمل على شكل ماكرو Macro تلقائي مرن للتعديل لأن المعادلات معقدة وصعبة الفهم و شكرا أخوتي الكرام

تفضل الملف مع الكود

انظر الى الصفحة Salim _with_Macro

Demand Answer_Salim_4.rar

قام بنشر
3 ساعات مضت, المسلم العربي said:

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

2.PNG

هذا لان الكود يحتوي على اللغة عربية في بعض سطوره

انسخ هذين الكودين الى الملف من جديد

Option Explicit

Sub give_Alert()
Dim My_Sh As Worksheet
Dim R_G, Cel As Range
Dim y As Boolean
Dim r As Integer
Application.EnableEvents = False
Set My_Sh = Sheets("Salim _with_Macro")
Set R_G = My_Sh.Range("d4:d53")
R_G.Interior.ColorIndex = 0
For Each Cel In R_G

If Cel <> "" Then
y = Evaluate("=OR(""" & Cel & "" & """=AF4:AH11)")
 If Not y Then
 If r = 0 Then
Cel.Interior.ColorIndex = 3
MsgBox "خطأ في القسم التابع لــــــ : " & Cel.Offset(, -2) & _
Chr(10) & "تم تلوين الاخطاء بالأحمر" _
, vbMsgBoxRight, "سليم يقول لك"
End If
r = r + 1
Cel.Interior.ColorIndex = 3
  End If
End If
  Next
1:
Application.EnableEvents = True

End Sub
'=========================================
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim my_rg As Range
Set my_rg = Range("d4:d53")
If Not Intersect(Target, my_rg) Is Nothing Then
give_Alert
Target.Select
End If
Application.ScreenUpdating = True
End Sub

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information