logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





10-10-2018 12:09 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
السلام عليكم ورحمة الله وبركاته
أهلا ومرحبا بكم أخوانى الكرام موضوع اليوم هو تقديم حل لاحدى المشكلات


قد قدم الكثير حلول لاستخراج القيم الفريدة ولكن وجدت ان من الامور المطلوبة كذلك هو استخراج القيم التى تم تكرارها
وهذا مثال بالنتيجة المتوقعه كما بالصورة التالية

Mjk1Njk1MQ3030005
كما موضح بالصورة الحل ب3 طرق واحدة باستخدام معادلات الصفيف وأخرى بإستخدام دالة معرفة وأخرى بإستخدام كود VBA
جميع الحلول تأخذ القيم التى تم تكرارها فقط ونقل قيمة واحدة لكل منهم فى عمود أخر ويتم تجاهل الخلايا الفارغة
معادلة الصفيف فى الخلية B2 كالتالى

CODE
=IFERROR(INDEX($A$2:$A$11,SMALL(IF(FREQUENCY(IF($A$2:$A$11<>"",MATCH($A$2:$A$11,$A$2:$A$11,0),""),MATCH($A$2:$A$11&"",$A$2:$A$11&"",0))>1,ROW($A$2:$A$11)-ROW($A$2)+1,""),ROWS($C$2:C2))),"")

بعد كتابة المعادلة نضغط على Ctrl+Shift+Enter لانها معادلة صفيف


كود الدالة المعرفة AlsaqrDuplicate كالتالى
CODE
Function AlsaqrDuplicate(rng As Range, rw As Long)
'Programming by Eslam Abdullah
Dim Content As New Collection, i&
On Error Resume Next
     For i = 1 To rng.Find("*", , , , , 2).Row
        If rng.Cells(i).Value <> "" And Application.CountIf(rng, rng.Cells(i)) > 1 Then _
           Content.Add rng.Cells(i), CStr(rng.Cells(i))
        If Content.Count = rw Then AlsaqrDuplicate = Content.Item(rw): Exit Function
     Next i
     AlsaqrDuplicate = ""
End Function

استخدام الدالة بسيط جدا تتكون من 2 باراميتر الأول هو النطاق والثانى هو رقم تسلسل القيمة المستخرجة


كود ال VBA كالتالى
CODE
Sub Duplicate()
'Programming by Eslam Abdullah
Dim dic As Object, lr&, i&
Cells(2, 4).Resize(Rows.Count - 1).ClearContents
    Set dic = CreateObject("Scripting.Dictionary"): dic.CompareMode = 1
    lr = Cells(Rows.Count, 1).End(3).Row
        For i = 2 To lr
            If Not dic.Exists(Cells(i, 1).Value) And Cells(i, 1).Value <> "" And Application.CountIf(Range("A2:A" & lr), Cells(i, 1)) > 1 Then _
            dic(Cells(i, 1).Value) = Cells(i, 1).Value
        Next i
    Cells(2, 4).Resize(dic.Count).Value = Application.Transpose(dic.Items)
End Sub




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

كان معكم ومعنا ومعاهم برضوا أخاكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81
 
 





look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 06:45 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
بارك الله فيك أخي الحبيب إسلام وجزاك الله كل خير ، وجعل ما تقدمه يكون لك شفيعاً إنك تاخد اعفا من الجيش




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 06:56 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20024
الاعجاب : 10
موقعي : زيارة موقعي

جزاكم الله خيرا يا غالى 3




توقيع :الصقر

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


look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 07:26 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
سلمت يمناك




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 09:03 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مروركم الغالى أساتذتى الأحباء ياسر وحسام
ومشكور مروركم الكريم أستاذ خالد
وربنا يسمع منك وأخد اعفا biggrin2




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 09:54 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
بارك الله فيك استاذ اسلام موضوع قيم ومطلوب دائما جعله الله فى ميزان حسناتك
وأتمنى من الله الكريم اذا كان هذا طلبك ورغبتك فى الإعفا ان يعطيك ويمن الله الكريم العزيز عليك بكل ما ترغب وتحب ان شاء الله



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 11:27 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مرورك العطر ودعائك الطيب أستاذ على 81




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 11:46 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 450
الجنس :
تاريخ الميلاد : 19-3-1990
قوة السمعة : 796
الاعجاب : 0
أحسنت استاذ اسلام بارك الله فيك




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 02:59 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مرورك العطر على الموضوع المتواضع أستاذ مهند 81




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 06:18 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
بارك الله بك اخي حسام
و زيادة في اثؤاء الموضوع هذا الكود
CODE

Option Explicit
Sub Extarct_dup()
Dim r%, m%: m = 4
Dim x%, Y%, k%
Range("d1").CurrentRegion.Offset(1, 0).Columns(1).ClearContents
r = Range("a1").CurrentRegion.Columns(1).Rows.Count
k = 2
Do Until k > r
    x = Application.CountIf(Cells(2, 1).Resize(r, 1), Cells(k, 1))
    Y = Application.CountIf(Cells(2, 4).Resize(k - 1, 1), Cells(k, 1))
       If x > 1 And Y = 0 Then
         Cells(m - 2, 4) = Cells(k, 1)
         m = m + 1
       End If
       k = k + 1
Loop
End Sub





look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 08:53 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: salim بارك الله بك اخي حسام
و زيادة في اثؤاء الموضوع هذا الكود
CODE

Option Explicit
Sub Extarct_dup()
Dim r%, m%: m = 4
Dim x%, Y%, k%
Range("d1").CurrentRegion.Offset(1, 0).Columns(1).ClearContents
r = Range("a1").CurrentRegion.Columns(1).Rows.Count
k = 2
Do Until k > r
    x = Application.CountIf(Cells(2, 1).Resize(r, 1), Cells(k, 1))
    Y = Application.CountIf(Cells(2, 4).Resize(k - 1, 1), Cells(k, 1))
       If x > 1 And Y = 0 Then
         Cells(m - 2, 4) = Cells(k, 1)
         m = m + 1
       End If
       k = k + 1
Loop
End Sub

انا اسلام استاذ سليم ركز biggrin2
ومشكور مرورك العطر ومشكور اثرائك للموضوع
ونصيحه حاول تبعد عن المنطق دا أغالى فى الكود
لانه مع البيانات الضخمه هيسبب بطئ شديد biggrin2
كما ان النتائج غير دقيقه
بمعنى أخر هيحصل أخطاء فى النتائج فى بعض الظروف جرب وشوف wink_3
تقبل وافر احترامى وتقديرى 81




look/images/icons/i1.gif استخراج القيم المكررة فقط
  10-10-2018 10:50 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
اعتذر عن الخطأ في الاسم أستاذ إسلام
لقد قمت بتجربة الكود على 500 صف والنتائح دقيقة وضعت عامود لحساب التكرار فلم اجد اي رقم يساوي 1
ارجو أعلامي اين يمكن للخطا ان يكون
الملف مرفق
 
 
  extract.rar   تحميل rar مرات التحميل :(17)
الحجم :(20.168) KB





look/images/icons/i1.gif استخراج القيم المكررة فقط
  11-10-2018 01:15 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مساهماتك المميزه استاذ سليم
فقط احذف خلايا فى بداية او منتصف النطاق وتابع النتائج
وتترتب هذه النتائج لاعتماد الكود على تحديد النطاق باسلوب CurrentRegion




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استخراج الارقام التى جمعها رقم معين SumSolver Eslam Abdullah
33 5376 Yasser Elaraby
دالة معرفة لاستخراج اسم الأب من الأسماء المركبة YasserKhalil
8 459 تاج الدين
كيفية استخراج بيانات من عمود بواسطة بوضع نجمة امامه وشوية تريكات mmagedmemo
2 902 EM_ACC
كود استخراج بيانات بسرعه اسم المستخدم
11 412 YasserKhalil
استخراج اسم الورقة من المعادلة jjebril
2 227 jjebril

الكلمات الدلالية
استخراج ، القيم ، المكررة ،









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

الساعة الآن 12:21 PM