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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items

السلام عليكم إخواني الكرام أقدم لكم دالة معرفة مفيدة جداً لكم إن شاء العلي القدير ، وتقوم بالدالة باستخراج القيم الغير ..



10-03-2019 02:54 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 

السلام عليكم إخواني الكرام

أقدم لكم دالة معرفة مفيدة جداً لكم إن شاء العلي القدير ، وتقوم بالدالة باستخراج القيم الغير مكررة (أي القيم الفريدة) من نطاق محدد ، ويمكنك استخدامها لتعبئة الكومبوبوكس 

بفرض أن لديك بيانات في العمود الأول بهذا الشكل
ZdukTwDjwT18bGA

وتريد تعبئة الكومبوبوكس بحيث تتجنب تكرار البيانات بدون داعي ، لتكون الكومبوبوكس بهذا الشكل
K4ITEXux4REmfsZ

خطوات العمل بسيطة وسهلة إن شاء الله
أدرج موديول جديد وضع فيه الكود بهذا الشكل

Sub ShowForm()
    UserForm1.Show
End Sub

Public Function UniqueListFromRange(rgInput As Range) As Variant
    Dim d           As Object
    Dim dataSet     As Variant
    Dim rgArea      As Range
    Dim x           As Long
    Dim y           As Long

    Set d = CreateObject("Scripting.Dictionary")

    For Each rgArea In rgInput.Areas
        dataSet = rgArea.Value
        If IsArray(dataSet) Then
            For x = 1 To UBound(dataSet)
                For y = 1 To UBound(dataSet, 2)
                    If Len(dataSet(x, y)) <> 0 Then d(dataSet(x, y)) = Empty
                Next y
            Next x
        Else
            d(dataSet) = Empty
        End If
    Next rgArea

    UniqueListFromRange = d.Keys
End Function


ثم أدرج فورم وضع عليه أداة الكومبوبوكس ComboBox1 .. 


وأخيراً إليكم الملف المرفق

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أرجو أن يكون الموضوع مفيد لكم ، وتقبلوا وافر تقديري واحترامي


إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: ali mohamed ali، محمدعبدالسلام،





10-03-2019 10:04 مساء
مشاهدة مشاركة منفردة [1]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
جزاكم الله خيرا وأحسن إليكم
ما شاء الله بارك الله موضوع ومعالجة متميزين. 
أسأل الله تعالى أن يكون علما نافعا ومتقبلا. ..آمين. 
والسلام عليكم ورحمة الله وبركاته 



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



11-03-2019 06:17 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
تصدق بالله الموضوع ده كان على بالى عايز ابحث عنه لاحتياجى له واحتفظ بالكود واذا بي اجده قبل ما ابحث عنه

ايه حكايتك قارء خواطر كمان ايه وايه وايه تعبك من كتر الوصف طلع كمان ما في الجراب يا حاولى

ربنا يبارك فيك ويكرمك ويكتبلك كل الخير

تحياتى وتقديرى وامتنانى لشخصكم الكريم
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب


12-03-2019 01:37 صباحا
مشاهدة مشاركة منفردة [3]
OmarGad
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 5
قوة السمعة : 318
الاعجاب : 25
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
ربنا يحفظك يااستاذ ياسر ويزيدك من فضله على ماتقدم من"علم ينتفع به" ان شاءالله فى ميزان حسناتك





12-03-2019 06:59 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
بارك الله فيكم وجزيتم خيراً
كنت أعتقد أنني قدمت الموضوع من فترة ، ولكن يبدو أنني نسيت .. فلما واجه أحد الأخوة مشكلة مشابهة بحثت عن الموضوع لأعطيه الرابط اعتقاداً مني أنني قدمته من قبل ... ولكن لم أجد الموضوع
فقمت بطرحه على الفور لأنه من الأكواد المهمة والمطلوبة بكثرة

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





12-03-2019 12:28 مساء
مشاهدة مشاركة منفردة [5]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 363
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 34
قوة السمعة : 1393
الاعجاب : 29
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
بارك الله فيكم وجزيتم خيراً





12-03-2019 06:54 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
وجزيت خيراً أخي الكريم رمضان ومشكور على مرورك





19-03-2019 01:01 مساء
مشاهدة مشاركة منفردة [7]
بوبو
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-10-2017
رقم العضوية : 804
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 4-4-1987
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 3
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
مشكور جدا وتحياتى اليك 





19-03-2019 11:09 مساء
مشاهدة مشاركة منفردة [8]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 371
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 496
الاعجاب : 21
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
بارك الله فيك استاذى الكريم





20-03-2019 06:41 صباحا
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items

جزاكم الله خيرا يا غالى
رائعه جديده من روائعك
123





توقيع :الصقر

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



25-03-2019 06:39 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
وجزيتم خيراً إخواني وأحبابي في الله بمثل ما دعوتم لي وزيادة





25-03-2019 07:31 مساء
مشاهدة مشاركة منفردة [11]
essam_bit
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-03-2019
رقم العضوية : 12061
المشاركات : 55
الجنس : ذكر
تاريخ الميلاد : 12-3-1968
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 2
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
بارك الله فيكم وجزيتم خيراً





26-03-2019 06:35 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items
وجزيت خيراً بمثل ما دعوت لي أخي الكريم







الكلمات الدلالية
تعبئة ، الكومبوبكس ، ببيانات ، فريدة ، (غير ، مكررة) ،


 







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



الساعة الآن 07:44 مساء

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