حساب عدد مرات زيارة المدرسة في الشهر

[إبراهيم حماد]

السادة اعضاء منتدي اوفسينا الكرام 

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

لي طلب صغير واعرف اني ساجده هنا لانني تعودت منكم علي المساعدة 

 

عاوز أعمل معادلة حساب عدد زيارة المدارس في خانة عدد مرات زيارة المدرسة في الشهر

 

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

 

عاوز لما ااقف علي عامود اسم المدرسة

يطلع في المربع اللي تحت  عدد زيارة مرات زيارة المدرسة في الشهر عدد المرات المزارة للمدرسة

 

المرفق يوضح ما اريد وشكرا مقدما

 

المصنف1.rar

[إبراهيم حماد]

لا أله ألا الله 

[طارق محمود]

السلام عليكم

تفضل أخي المرفق وبه الكود التالي في حدث تغيير الإختيار بالورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E10:E50]) Is Nothing Then
v = Target.Value
x = WorksheetFunction.CountIf([E9:E49], v)
If x = 0 Then x = ""
    Else
        x = ""
End If
    Shapes.Range(Array("مربع نص 2")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x
    Target.Select
End Sub

 

المصنف1_b.rar

[إبراهيم حماد]

استاذي الفاضل / طارق اشكرك جدا للأهتمام 

 

فعلا هذا ما اريده 

 

ولكن اريد ان افهم شيء انا عاوز النتيجة تطلع لما ااقف علي اسم المدرسة اللي في العامود B اللي هو باسم مدارس السيد الموجه 

 

واشكرك للاهتمام

[زائر]

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

الاستاذ الراائع البشمهندس // طارق

حل ولا اروع من كدة كعادتكم

جعله الله في ميزان حسناتكم..

واظن والله اعلم انه من الافضل ان يستبدل

If Not Intersect(Target, [e10:e50]) Is Nothing Then

بــــ

If Not Intersect(Target, [b10:b50]) Is Nothing Then

للترتيب و سهولة البحث ..

[زائر]

الاستاذ // إبراهيم حماد

بعد اذن الاستاذ الفاضل طارق

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

وبعد اذن الاستاذ القاضل البشمهندس // طارق

هذا هو الحل

 

المصنف1_c.rar

[إبراهيم حماد]

صورة توضيحية

[إبراهيم حماد]

استاذ محمد اشكرك للاهتمام 

 

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

 

[زائر]

جزاكم الله خيرا أخي الفاضل

ووالله ما اعلم السبب

ولعل احد يفيدنا بهذا الامر

ولعل هذا الامرحدث من قبل مع احد الاساتذة..

[زائر]

على العموم اخى ممكن تستبدل الكود في ملفك السليم بهذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [b10:b50]) Is Nothing Then
v = Target.Value
x = WorksheetFunction.CountIf([E9:E49], v)
If x = 0 Then x = ""
    Else
        x = ""
End If
    Shapes.Range(Array("مربع نص 2")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x
    Target.Select
End Sub

[إبراهيم حماد]

في الانتظار

[إبراهيم حماد]

استاذ ابو البراء انا لا اعرف كيف اضع الكود او انسخه واضعه فين

[إبراهيم حماد]

انا في الانتظار وجزاكم الله خيرا 

[طارق محمود]

السلام عليكم
ماتفضل به اخونا الكريم / محمد أبو البراء ، مضبوط ولاأدري لماذا لايعمل معك

عموما تفضل أخي المرفق به التعديل

المصنف1_c.rar

[إبراهيم حماد]

تسلم ايدكم جميعا بجد انا مش عارف من غيركم اعمل ايه دائما فاعلين للخير وبجد انا بتعلم منكم كل يوم تقبلوا تحياتي 

 

واذا سمح وقتكم ياريت تتفضلوا وتقولوا لي اين اضع الكود ومكانه فين 

 

وشكرا 

[إبراهيم حماد]

استاذي الفاضل ابو الراء دمت عطاء واشكرك للمساعدة 

[جمال عبد السميع]

بعد هذه الحلول القيمة من الأساتذة الرائعين

ألا يمكن أن يكون الحل هكذا أبسط بالنسبة لحضرتك

المصنف3.rar

[إبراهيم حماد]

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