محمد يحياوي

ردا على طلب اخي احمد و ارجوا ان يكون طلب ايضا اخي رجب هذا الكود يحتوي على الشرح بالنسبة لـ private تصريح خاص و يمكن استعمال Dim Option Explicit Dim yah As String Dim med As String ' تصريح بالمتغيرات لاننا سنستعملها في جميع الاكواد Private Sub TextBox1_Change() yah = TextBox1.Text ' yah تعريف مربع النص باسم Call yah_med ' استدعاء الماكروyah_med عند تغير النص End Sub Sub yah_med() Dim i As Integer i = 3 ' 3 حتى نبدا الاختيار من السطر ListBox1.Clear ' اخلاء القائمة قبل بدأ التصفية While Cells(i, 3).Value <> Empty ' بداية الحلقة لان العود غير محدود med = Cells(i, 3).Value ' C و هي قيم القائمة المصدر و العمود If (Left(med, Len(yah))) = (yah) Then ' Len دالة لحسابة عدد حروف كلمة ' Left دالة لاستخراج الاحرف للجزء الايسر من الجملة بحسب عدد الحروف ListBox1.AddItem Cells(i, 3) ' اذا ستظهر في القائمة جميع العناصر التي يتوفر فيها الشرط End If i = i + 1 ' المتغير يضيف صف Wend ' نهاية الحلقة End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call yah_med 'استدعاء الماكرو عند تغير التحديد End Sub

اخي احمد هل تقصد شرح الكود ام كيفية البحث

اخي الكريم لاحظ الملف فلترة حسب الطلب.rar

الاخ الفاضل بيمين الماوس على الصورة تم الضغط على تعين ماكرو ثم اختيار الماكرو

الاخوة الافاضل - الاستاذ عبد الله - فراسكو حفظكم الله و وفقكم الى الخير

الاخوة الافاضل - ابو نصار - القومي - عباس السماوي بارك الله و وفقكم الى الخير

لله ما اعطى و لله ما اخذ و لا نقول الا ما يرضي ربنا ... اخونا احمد زمان عظّم الله اجرك و رحم الله الوالدة و غفر لها و جعل مثواها الجنة و اخلفها دارا خيرا من دارها و ابدلها اهلا خيرا من اهلها ... امين يارب العالمين

الاخ الفاضل ابو نصار عطاء بلا حدود و اكواد جميلة

اخي الكريم khhanna بارك الله فيك و وفقك الى الخير

يمكنك اضافة بعض الادوات عند الضغط بيمين الفارة على جهاو الكمبيوتر الملف Right Click On My Computer.rar

هذا الملف يمكنك من اضافة بعض الادوات عند الضغط بيمين الفارة على سطح المكتب لتسهيل الوصول الى بعض الادوات المهمة مثل ادارة المهام او الرجستري ... الملف يحوي مجموعة من الادوات غير انه يمكنك اضافة ادوات اخرى لكن الاكثار منها يجعل القائمة مزدحمة بالادوات لاحظ الصورة و الملف ادوات قشرة الوندوز.rar تم نعديل الملف

الاستاذ طارق بارك الله و هذا ايضا الملف به مجموعة من الاكواد لحذف الكل Book2.rar اما اذا اردت حذف كل صورة على حدى اكتب هذا الكود قم بتحديد الصورة و شغل الكود Sub Macro1() Selection.Delete End Sub

الاخوة الافاضل - نارت - مجدي يونس - نور انور بارك الله فيكم و وفقكم الى الخير

بارك الله فيك اخي نارت جزيت خيرا

اخي لاحظ المرفق color select.rar

اخي الفاضل الشهابي جزاك الله خيرا و موفق ان شاء الله

اسف اخي لم تظهر عندي الصورة (صورة ضفدع) بالنسبة لهذه الخاصية لا توجد الا في office2010

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

اخي الفاضل بليش شكرا جزيلا موفق ان شاء الله

تم تعديل الملف حسب الطلب طريقة التعديل.rar

الاخ الكريم اذا كنت تريد حفظ التخصيصات و هذا ما فهمته من طلب فلاحظ الضورة من استيراد و تصدير في اسفل النافذة

الاخوة الكرام ابو انس ، ابو ردينة جزاكم الله خيرا

اخي هل تقصد شريط ادوات الوصول السريع

الاخ الفاضل احمد فضيلة فكرة جميلة و رائعة بارك الله الاخ الكريم رجب شكرا على الاضافة الجميلة

اخي ابو احمد هل هذ الرابط صحيح لاني دخلت اليه و لم اجد له علاقة بالموضوع ... ارجوا التوضيح هل تقصد هذا الرابط http://www.officena.net/ib/index.php?showtopic=39748