جمع كم عدد الدورات لعدد من المتدربين بغض النظر عن تكرارها (عنوان معدل )

[senmar]

لدي ملف اكسل يحتوي على اسماء معلمين كالتالي ومشتركين في دورات تدريبية

 

الاسم                    الدورة التدريبية

احمد                            دورة١

ناصر                           دورة١

خالد                             دورة٢

ابراهيم                          دورة٣

حمد                             دورة٣

وليد                             ورة١

 

المجموع                        ٣

 

 

 

اريد ان يكون لدي مجموع الدورات التي عملتها ٣

بغض النظر عن كم مرة كررت 

فمطلوب ان اعمل ٣ دورات تدريبية لمجموعه من المتدربين

[نجم الدين ابراهيم]

تفضل أخى العزيز

 

 

الدورات.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / senmar

بارك الله فيك

واهلا وسهلا بك في منتدانا الرائع

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

فيجب عليك مراعاة ذلك مستقبلا

 

قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[حمادة عمر]

تم تعديل العنوان ...

===============

الادارة

===============

[senmar]

السلام عليكم

كل الشكر للأخوة 

لكن لم تحل المشكلة بالشكل المطلوب

موجود الملف في الرابط

https://www.dropbox.com/s/1h0t7zhtxk0y9zr/Book11.xlsx

[وليد فتحي]

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

 

أتفضل أخي الفاضل لعله المطلوب

Book11.rar

تم تعديل فبراير 25, 2014 بواسطه وليد فتحي

[أبو حنــــين]

السلام عليكم

جرب هذا الكود

Sub MyNmbr()

Dim i As Byte, MyRng As Range, Lr As Long, j As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row
    For j = 2 To Lr
    Set MyRng = Cells(j, 2)
    For i = 1 To Len(MyRng)
If IsNumeric(Mid(MyRng, i, 1)) = True Then
rr = Application.WorksheetFunction.Max(Mid(MyRng, i, 1))
        End If
    Next
Next
MsgBox rr

End Sub

[وليد فتحي]

 

السلام عليكم

جرب هذا الكود

Sub MyNmbr()

Dim i As Byte, MyRng As Range, Lr As Long, j As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row
    For j = 2 To Lr
    Set MyRng = Cells(j, 2)
    For i = 1 To Len(MyRng)
If IsNumeric(Mid(MyRng, i, 1)) = True Then
rr = Application.WorksheetFunction.Max(Mid(MyRng, i, 1))
        End If
    Next
Next
MsgBox rr

End Sub

 

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

جزاك الله كل خير أخي الفاضل أبو حنين

أكيد الكود بيكون أسهل وأسرع بكتير من المعادلات

وخصوصا لو كانت البيانات كثيرة

بارك الله فيك وزادك من علمه

[الخالدي]

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

جزاكم الله خيرا اخي الاستاذ / أبو حنين

ايضا المعادلة التالية تقوم بالعد بدون تكرار

=SUMPRODUCT(1/COUNTIF(B2:B7;B2:B7&""))

بالتأكيد الكود اخف على الملف من المعادلات

في امان الله

[أبو حنــــين]

السلام عليكم

أخي وليد فتحي

جزاكم الله خيرا

حفظكم الله و رعاكم و جعل الجنة مثواكم

[senmar]

السلام عليكم ..

كل الشكروالتقدير لكم على هذه الجهود زز جعلها الله في ميزان حسناتكم

لكن أريد أن تحل المشكلة بمعادلة إذا أمكن

أو يتم تنفيذ المطلوب في ملف الاكسل 

تحياتي لكم

[وليد فتحي]

السلام عليكم ..

كل الشكروالتقدير لكم على هذه الجهود زز جعلها الله في ميزان حسناتكم

لكن أريد أن تحل المشكلة بمعادلة إذا أمكن

أو يتم تنفيذ المطلوب في ملف الاكسل 

تحياتي لكم

 

أخي الحبيب

لقد ارفق لك اخونا الفاضل أبو حنين الحل بالكود

ان لم تكن تريد الحل بالكواد ( علما بأنه أخف بكثير منل المعادلات )

قام الاخ الفاضل الخالدي بوضع المعادلة المطلوبة

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

الرجاء مراجعه المشاركات السابقه

تقبل مروري

[senmar]

السلام عليكم

هل من الممكن تنفيذ الكود في ملف اكسل

لانه لم يضبط لدي

[وليد فتحي]

السلام عليكم

هل من الممكن تنفيذ الكود في ملف اكسل

لانه لم يضبط لدي

 

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

بعد أذن أستاذنا الفاضل أبو حنين

أتفضل أخي الفاضل لعله المطلوب

Book_22.rar