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

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

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




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





داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب

السلام عليكم تم بفضل الله برمجة داله جديده معرفه تقوم بجلب القيم الفريده ( الغير مكرره ) من داخل نطاق AlsqrRDup ولا تنس ..




13-03-2018 05:02 مساء
مشاهدة مشاركة منفردة [25]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1500
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 408
قوة السمعة : 12943
الاعجاب : 3164
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
لا ارى لها جدوى والحاجه ام الاختراع 
وانا قلتلك على الحل بالبوست قبل السابق يؤدى الغرض ايضا



توقيع :الصقر

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



13-03-2018 05:18 مساء
مشاهدة مشاركة منفردة [26]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 505
الاعجاب : 190
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
المشاركة الأصلية كتبت بواسطة: الصقر »
لا ارى لها جدوى والحاجه ام الاختراع 
وانا قلتلك على الحل بالبوست قبل السابق يؤدى الغرض ايضا

عنوان الموضوع عن كود رائع وليست معادلات ..
مجرد سؤال هي الجدوى من وجهة نظر المؤلف ام من وجهة نظر المستخدم ؟
مجرد سؤال بدون حساسيه

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




13-03-2018 06:35 مساء
مشاهدة مشاركة منفردة [27]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 384
الاعجاب : 185
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
دالة راااااااااائعة ، جعللها في ميزان حسناتكم وكتبها لكم صدقة جارية
وزادكم الله علما ونفع بكم ، وجزاكم الله عنا خير الجزاء وبارك الله فيكم 
وفي أوقاتكم وفي أعمالكم وفي أعماركم .
اللهم آآآآآآآآآآآآآآآآآميييييييين يا رب العالمين .

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، الصقر،




13-03-2018 08:48 مساء
مشاهدة مشاركة منفردة [28]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 334
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
بعد إذن أخي الحبيب حسام
تفضل أخي العزيز ناصر الدالة المعرفة التالية تقوم بالغرض (حيث ستجلب البيانات الغير مكررة وتقوم بالترتيب)
Sub Test_GetUnique_UDF()
    Dim r           As Range

    Set r = Range("B2:B12")
    Range("I1").Resize(r.Rows.Count).Value = GetUnique(r)
End Sub

Function GetUnique(r As Range)
    Dim c           As Range
    Dim i           As Long

    With CreateObject("System.Collections.ArrayList")
        For Each c In r.Cells
            If c <> "" Then If Not .contains((CStr(c.Value))) Then .Add (CStr(c.Value))
        Next c
        .Sort
        For i = 1 To r.Count
            .Add ("")
        Next i
        GetUnique = Application.Transpose(.ToArray())
    End With
End Function

أثارت هذه المشاركة إعجاب: ناصر سعيد1، Eslam Abdullah، الصقر،




13-03-2018 10:12 مساء
مشاهدة مشاركة منفردة [29]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 505
الاعجاب : 190
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
الاستاذ المبجل ياسر خليل
السلام عليكم ورحمة الله وبركاته
 جزاك الله كل خير وزادك علما
يارب

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




13-03-2018 10:19 مساء
مشاهدة مشاركة منفردة [30]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 334
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
وعليكم السلام أخي العزيز ناصر
وجزيت خيراً بمثل ما دعوت لي وزيادة
تقبل تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، الصقر،




13-03-2018 10:26 مساء
مشاهدة مشاركة منفردة [31]
nyfmpha
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
شكرا لتعبك اخي الكريم

أثارت هذه المشاركة إعجاب: Eslam Abdullah، الصقر،




13-03-2018 10:38 مساء
مشاهدة مشاركة منفردة [32]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 505
الاعجاب : 190
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
الكود في ابهى حلته
Sub GetUnique_UDF()
'هذا الكود انشئ بواسطه المحترم ياسر خليل
'الهدف من الكود هو استخراج القيم الفريده
'تم هذا الكود في 13 مارس 2018
'*****************************************
    Dim r           As Range
Dim Main As Worksheet
' متغير اسم صفحة المصدر
Set Main = Sheets("Main")

'متغير رقم عمود في صفحة المصدر به بيانات
    Lr = Main.Cells(Rows.Count, 3).End(xlUp).Row
    
    'اسم العمود المطلوب استخراج القيم الفريده
   Set r = Main.Range("K9:K" & Lr)
   
   'في صفحة الهدف خليه بدايه لصق القيم الفريده
    Range("H5").Resize(r.Rows.Count).Value = GetUnique(r)
End Sub

Function GetUnique(r As Range)
    Dim c           As Range
    Dim i           As Long

    With CreateObject("System.Collections.ArrayList")
        For Each c In r.Cells
            If c <> "" Then If Not .contains((CStr(c.Value))) Then .Add (CStr(c.Value))
        Next c
        .Sort
        For i = 1 To r.Count
            .Add ("")
        Next i
        GetUnique = Application.Transpose(.ToArray())
    End With
End Function


أثارت هذه المشاركة إعجاب: Eslam Abdullah، الصقر،




14-03-2018 11:07 مساء
مشاهدة مشاركة منفردة [33]
محمد مصطفى حسن
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-03-2018
رقم العضوية : 4859
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 1-8-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
جزااااااااااااكم الله خيرااااا

أثارت هذه المشاركة إعجاب: الصقر،




16-03-2018 10:12 مساء
مشاهدة مشاركة منفردة [34]
Dreamier
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2018
رقم العضوية : 3965
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 25-10-1981
يتابعهم : 5
يتابعونه : 0
قوة السمعة : 59
الاعجاب : 21
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بعد إذن أخي الحبيب حسام
تفضل أخي العزيز ناصر الدالة المعرفة التالية تقوم بالغرض (حيث ستجلب البيانات الغير مكررة وتقوم بالترتيب)
Sub Test_GetUnique_UDF()
    Dim r           As Range

    Set r = Range("B2:B12")
    Range("I1").Resize(r.Rows.Count).Value = GetUnique(r)
End Sub

Function GetUnique(r As Range)
    Dim c           As Range
    Dim i           As Long

    With CreateObject("System.Collections.ArrayList")
        For Each c In r.Cells
            If c <> "" Then If Not .contains((CStr(c.Value))) Then .Add (CStr(c.Value))
        Next c
        .Sort
        For i = 1 To r.Count
            .Add ("")
        Next i
        GetUnique = Application.Transpose(.ToArray())
    End With
End Function

ممكن توضيح بسيط لطريقه كتابه الداله





17-03-2018 09:35 صباحا
مشاهدة مشاركة منفردة [35]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 334
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
أهلاً بك أخي الكريم
انسخ الأسطر الخاصة بالكود وضعها في موديول .. أو حمل المرفق في المشاركة الأولى وطبق عليه الكود
وحاول دراسة الكود إذا كنت تريد أن تتعلم وإذا تعثرت في نقطة معينة فاسأل فيها .. ولكن أفضل أن يكون الطرح في موضوع جديد
تقبل تحياتي

أثارت هذه المشاركة إعجاب: الصقر،




14-04-2018 06:53 صباحا
مشاهدة مشاركة منفردة [36]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 384
الاعجاب : 185
 offline 
look/images/icons/i1.gif داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب
جزاكم الله كل خير وبارك الله فيكم أستاذنا الفاضل
وزادكم الله علما ونفع بكم ، وكتبها الله لكم صدقة جارية .

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر،






الكلمات الدلالية
داله ، معرفه ، AlsqrRDup ، لجلب ، القيم ، الفريده ، الغير ، مكرره ، حسام ، خطاب ،


 







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



الساعة الآن 02:15 مساء

أعلن هنا
أعلن هنا
أعلن هنا