ابوصلاح قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 السلام عليكم باختصار اريد في المرفق عمل قائمة منسدة بـ ComboBox تظهر كل الكلمات التي بها مثلا م ولو ممكن يكون تقتصر اظهار بيانات القائمة علي الحرف فقط مثلا لو انا عايز محمد يتظهر كل الاسماء التي تبدا بمحمد ولكم جزيل الشكر قائمة منسدلة محددة.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 جرب هذا الملف الكود Option Explicit Dim My_list As Object Dim arr Sub fil_combo() Dim Rng As Range, rcell As Range Dim X Set My_list = CreateObject("System.Collections.Arraylist") Set Rng = Sheet1.Range("A5", Sheet1.Cells(Rows.Count, 1).End(xlUp)) Sheet1.ComBo_1.Clear For Each rcell In Rng.Cells X = ComBo_1.Text If Not My_list.Contains(rcell.Text) _ And Mid(rcell, 1, Len(X)) = X Then My_list.Add (rcell.Value) Next rcell My_list.Sort arr = My_list.ToArray End Sub '============================== Private Sub ComBo_1_Change() fil_combo ComBo_1.list = arr ComBo_1.DropDown End Sub Combo_with first_Letters.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 بارك الله فيك استاذ سليم عمل ممتاز 2 رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر يناير 31, 2019 الكاتب مشاركة قام بنشر يناير 31, 2019 كود جميل ويفي بالغرض باك الله فيك لكن الخلية المرتبطة بمجرد ان يتم مسح بيانات القائمة المنسدلة يتم مسح الخلية وهذه الخلية احتاجها في عملي ارجو التعديل وناسف لاضاعة وقتكم 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 تم ازالة الخلية المرتبطة لانه لا علاقة لها بالكود Combo_with first_Letters1.xlsm رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر يناير 31, 2019 الكاتب مشاركة قام بنشر يناير 31, 2019 حقيقة لم اقصد ازالة الخلية المرتبطة اريد الخلية المرتبطة لا تمسح بل القائمة فقط رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 8 ساعات مضت, ابوصلاح said: حقيقة لم اقصد ازالة الخلية المرتبطة اريد الخلية المرتبطة لا تمسح بل القائمة فقط لا استطيع فهم ما تريد بالضبط رجاء ارسل ملفاً(مختصراً) توضح فيه المطلوب رابط هذا التعليق شارك More sharing options...
abdallah mabrook@yahoo.com قام بنشر فبراير 20, 2019 مشاركة قام بنشر فبراير 20, 2019 في ٣١/١/٢٠١٩ at 14:21, سليم حاصبيا said: جرب هذا الملف الكود Option Explicit Dim My_list As Object Dim arr Sub fil_combo() Dim Rng As Range, rcell As Range Dim X Set My_list = CreateObject("System.Collections.Arraylist") Set Rng = Sheet1.Range("A5", Sheet1.Cells(Rows.Count, 1).End(xlUp)) Sheet1.ComBo_1.Clear For Each rcell In Rng.Cells X = ComBo_1.Text If Not My_list.Contains(rcell.Text) _ And Mid(rcell, 1, Len(X)) = X Then My_list.Add (rcell.Value) Next rcell My_list.Sort arr = My_list.ToArray End Sub '============================== Private Sub ComBo_1_Change() fil_combo ComBo_1.list = arr ComBo_1.DropDown End Sub Combo_with first_Letters.xlsm في ٣١/١/٢٠١٩ at 19:27, سليم حاصبيا said: تم ازالة الخلية المرتبطة لانه لا علاقة لها بالكود Combo_with first_Letters1.xlsm في ٣١/١/٢٠١٩ at 14:21, سليم حاصبيا said: Option Explicit Dim My_list As Object Dim arr Sub fil_combo() Dim Rng As Range, rcell As Range Dim X Set My_list = CreateObject("System.Collections.Arraylist") Set Rng = Sheet1.Range("A5", Sheet1.Cells(Rows.Count, 1).End(xlUp)) Sheet1.ComBo_1.Clear For Each rcell In Rng.Cells X = ComBo_1.Text If Not My_list.Contains(rcell.Text) _ And Mid(rcell, 1, Len(X)) = X Then My_list.Add (rcell.Value) Next rcell My_list.Sort arr = My_list.ToArray End Sub '============================== Private Sub ComBo_1_Change() fil_combo ComBo_1.list = arr ComBo_1.DropDown End Sub Combo_with first_Letters.xlsm 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان