شوقي ربيع قام بنشر مارس 9, 2015 الكاتب قام بنشر مارس 9, 2015 استاذى الفاضل شوقى ربيع هذا السطر بالكود Me.ComboBox1.List = b.keys أود الاستفسار عن هذه الجزئية b.keys ( انا فاهم ان b تشير الى القاموس ) فماذا تعنى keys تقبل تحياتى السلام عليكم keys جمع key ومهناها مفاتيح السيغة العامة لتعبئة قاموس Scripting.Dictionary هي key, Item حيث key هو مفتاح السطر ان سحا التعبير كما هو الحال في ال ListView و جداول الاكسيس مثال لدينا اسماء اشخاص واعمارهم Sub Main() Dim keyArray, itemArray, element Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") With dict .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 keyArray = .Keys For Each element In keyArray Debug.Print element Next itemArray = .Items For Each element In itemArray Debug.Print element Next End With Set dict = Nothing End Sub في هذا الجزء .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 ملئنا بيانات القموس باسماء الاشخاص وهو key و اعمارهم وهي Item لكي نملء المصفوفة بالمفاتيح مرة واحدة استخدمنا Keys وهو الذي تسال عنه keyArray = .Keys يعني Keys تسمح لنا نقل جميع Key الى مصفوفة او قائمة دفعة واحدة وهذا الشيئ الجميل فيها اذا اردنا جلب الاسماء الان نستخدم حلقة تكرارية للمصفوفة التي ملئنا بياناتها منذ قليل For Each element In keyArray Debug.Print element Next واذا اردنا جلب اعمارهم من القاموس نستخدم مصفوفة اخرى لاكن هذه المرة مع Items itemArray = .Items ونفس الشيئ لطباعت الاعمار نستخدم حلقة تكرارية For Each element In itemArray Debug.Print element Next لتفريغ القاموس نستعمل Set dict = Nothing ارجو ان تكون الفكرة من القواميس قد وصلت لك اخي الصقر لاتنسى ضغط Ctrl+G قبل او بعد تنفيذ الكود لروئية النتائج على محرر الاكواد تحياتي 1
الصـقر قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 استاذى الفاضل شوقى ربيع جزاكم الله خيرا شرح رائع ومبسط وااستفت منه والله بارك الله فيك وزادك علما تقبل تحياتى 1
إبراهيم ابوليله قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 اخى شوقى قمت باخذ نسخه من الكود وارفقته فى محور الاكواد فى شيت جديد ولكن عند الدخول الى الورقه يحدث الخطأ الاتى ويقف عند السطر Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean ارجو الافاده
شوقي ربيع قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 اخى شوقى قمت باخذ نسخه من الكود وارفقته فى محور الاكواد فى شيت جديد ولكن عند الدخول الى الورقه يحدث الخطأ الاتى ويقف عند السطر Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean ارجو الافاده السلام عليكم هذا لانك لم تدرج كمبوبوكس في الشيت
خالد الشاعر قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 استاذى شوقى ربيع عمل ممتاز جزاكم الله خيراً
شوقي ربيع قام بنشر مارس 11, 2015 الكاتب قام بنشر مارس 11, 2015 لسلام عليكم استاذ شوقي ربيع جزاكم الله كل الخير استاذى الفاضل شوقى ربيع جزاكم الله خيرا شرح رائع ومبسط وااستفت منه والله بارك الله فيك وزادك علما تقبل تحياتى استاذى شوقى ربيع عمل ممتاز جزاكم الله خيراً روعه ثم روعه ثم روعه جزاكم الله خير وبارك الله فيكم تحياتي للجميع
الصـقر قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 استاذى الفاضل شوقى ربيع لو تسمح لى فى استفسار بسيط حضرتك اعتمد على تغذية الكمبوبوكس من خلال حدث UserForm_Initialize فتقوم بتعريف a ومن ثم list combox = a فلماذا لا يتم تعريف النطاق وليكن الاصناف ثم تغذية الكمبوبوكس من row sorce بخصائص الفورم وكتابه اسم النطاق وهو الاصناف وبذالك فى حدث تغيير الكومبو يتم التنبؤ بالقائمه المعرفه وهى الاصناف تقبل تحياتى
شوقي ربيع قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 استاذى الفاضل شوقى ربيع لو تسمح لى فى استفسار بسيط حضرتك اعتمد على تغذية الكمبوبوكس من خلال حدث UserForm_Initialize فتقوم بتعريف a ومن ثم list combox = a فلماذا لا يتم تعريف النطاق وليكن الاصناف ثم تغذية الكمبوبوكس من row sorce بخصائص الفورم وكتابه اسم النطاق وهو الاصناف وبذالك فى حدث تغيير الكومبو يتم التنبؤ بالقائمه المعرفه وهى الاصناف تقبل تحياتى السلام عليكم احسنت السؤال اخي الصقر ما قلته اخي الصقر صحيح و لاكن ؟؟؟؟ بحسب الطريقة التي ذكرتها الكبو تتنبئ بالاصناف لاكن هته الطريقة تجلب لك اسم واحد فقط وليس كما هو الحال مع الملف الذي ارفقته فما فعلته عبارة عن فلترة محتوى الكمبوبوكس وهو ما يسمى بالنص التنبئ كما هو الحال عندما تقوم بالبحث عبر محرك البحث قوقل يجلب لك اقرب الكلمات تبعا للحروف التي تكتبها اما المتغير a ليس متغير عادي فهو مصفوفة وقد عرفته على كامل الفورم لانه الاساس فس عملية البحث شكرا على سؤالك القيم واي استفسارات اخرى لا تتردد تحياتي للجميع
الصـقر قام بنشر مارس 14, 2015 قام بنشر مارس 14, 2015 استاذى الفاضل شوقى ربيع يبدو انى لم اوفق فى توضيح ما اريد الاستفسار عنه انا مش عايز طريقه التنبوء من خلال الفيجوال نفسة لانه بيعرض اسم واحد كما تفضلت انا عايز طريقة حضرتك ولكن ما كنت اريد الاستفسار عنه هو لما تم تغية الكمبو فى حدث UserForm_Initialize انا فكرتى انى ممكن نعتمد على تعريف النطاق ثم كتابته فى row source ومن هنا يكون الكود الموجود فى حدث تغيير الكمبو يعمل على النطاق المعرف وهذا هو الكود حدث الكمبو Private Sub ComboBox1_Change() Set b = CreateObject("Scripting.Dictionary") d = UCase("*" & (Me.ComboBox1) & "*") For Each c In a If UCase(c) Like d Then b(c) = "" Next c Me.ComboBox1.List = b.keys Me.ComboBox1.DropDown End Sub وهنا حضرتك عملت حلقه وقلت ان c فى النطاق a لماذا لا يتم استبدال a بالنطاق المعرف ارجو ان اكون وفقت فى ما اريد الاستفسار عنه تقبل تحياتى
رامي قلعجية قام بنشر أبريل 30, 2019 قام بنشر أبريل 30, 2019 (معدل) رائع وجميل جدا يا ريت زي ما قال اخونا الصقر الكود رااااائع لكن اريده ان يبحث لي عن كلمات في نطاق من شيت اخر مثال. ربيع احمد خالد لو كتبت ربيع حيجيب ربيع لكن لو كتبت ربيع خالد مش حيجيب ربيع احمد خالد انا عاوز لما اكتب اول كلمة او اخر كلمة او عاشر كلمة يجبلي الصف الي فيه الكلمات الي بكتبها وشكرا لك وعلى مجهودك الرائع واجمل ما في الامر الكومبوبوكس المتحرك والسلام عليكم تم تعديل أبريل 30, 2019 بواسطه رامي قلعجية
وجيه شرف الدين قام بنشر مايو 1, 2019 قام بنشر مايو 1, 2019 ماشاء الله شيت فى غاية الجمال والروعة جعله الله فى ميزان حسناتك
الردود الموصى بها