أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





Count words

لدي مدي معين، كل خلية داخله تحتوي على كلمة او أكثر، غالبا تتكرر بعض الكلمات داخل المدي لكن لا تتكرر داخل الخلية اريد عد ..



05-03-2021 07:55 صباحا
Nader Shaker
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-03-2019
رقم العضوية : 12016
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 11-9-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

لدي مدي معين، كل خلية داخله تحتوي على كلمة او أكثر، غالبا تتكرر بعض الكلمات داخل المدي لكن لا تتكرر داخل الخلية 
اريد عد (احصاء) الكلمات داخل المدي بشرط عدم التكرار
مرفق صورة (النتيجة الصحيحة المفترض أن تكون في الصورة هي 6)
انتبه من فضلك عند رفع اى مشاركة ان تكون بالمكان المناسب ... تم نقل المشاركة بقسم الإكسيل أسئلة واجابات MTgzMzcyMQ3737IMG_20210304_235313_660
 
Please be careful when uploading any post to be in the appropriate place ... The post has been moved to the Excel section Questions and Answers
 
 
 


05-03-2021 10:52 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif Count words
السلام عليكم
جرب الدالة المعرفة التالية علها تفي بالغرض إن شاء الله
Function CountUniq(rng As Range, delim As String) As Long
    Rem =CountUniq(A2:A9,", ")
    Dim e, x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each e In rng.Value
            If Trim$(e) <> "" Then
                For Each x In Split(e, delim)
                    If Trim$(x) <> "" Then .Item(Trim$(x)) = Empty
                Next x
            End If
        Next e
        CountUniq = .Count
    End With
End Function

05-03-2021 11:57 صباحا
مشاهدة مشاركة منفردة [2]
Nader Shaker
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-03-2019
رقم العضوية : 12016
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 11-9-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif Count words
شكرا لجهودك ووقت
لكن للأسف لم تنجح

05-03-2021 12:01 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif Count words
كيف طبقت الدالة المعرفة؟
هل قمت بوضع الدالة في موديول جديد؟
وهل قمت بوضع المعادلة المشار إليها في الدالة المعرفة في تعليق داخل أي خلية وأشرت إلى النطاق المطلوب التعامل معه ..؟

ملحوظة إذا كنت تطبق الحل على الموبايل فأعتقد أن هذه هي المشكلة لأنه حسب علمي فإنه لا يدعم التعامل مع الماكرو ..

05-03-2021 12:26 مساء
مشاهدة مشاركة منفردة [4]
Nader Shaker
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-03-2019
رقم العضوية : 12016
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 11-9-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif Count words
تمام انا جربت واشتغلت 100%
لكني أرغب في عدم استعمالها كبرمجة لاني احتاج استخدامها في أكثر من ملف عمل

05-03-2021 02:28 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif Count words
إذا كنت تستخدم أوفيس 365 يمكنك استخدام المعادلة التالية
=COUNTA(UNIQUE(FILTERXML("<AllText><Num>"&SUBSTITUTE(TEXTJOIN(",",TRUE,$A2:$A9),",","</Num><Num>")&"</Num></AllText>","//Num")))




الكلمات الدلالية
Count ، words ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:04 صباحا