الاثنين، 18 نوفمبر 2019

Excel VBA | How To Fill Combobox with Item New Searchable Combobox

بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركاتة


اهلا بكم فى موقع عالم الاوفيس

اكسل vba | خدعة جدية فى تعبئة الكومبوبوكس Combobox  وعمل كومبو بوكس بحث

درس جديد وكود جديد من اكواد اكسل VBA  

اليوم ان شاء الله نتعرف على مهارة جديدة من مهارات الاكسل وكيفية تعبئة الكومبوبوكس Combobox بمجرد اختيار اول حرف من الكلمة يتم اضافة الايتم ADD ITEM الى Combobox وذلك من خلال كود سهل وبسيط جدا

الكود

Dim cell As Range
Dim lr As Integer
If Me.ComboBox1.Value = "" Then Me.ComboBox1.Clear: Exit Sub
lr = Cells(Rows.Count, 1).End(xlUp).Row
For Each cell In Sheet1.Range("a2:a" & lr)
  If Left(cell.Value, 1) = Me.ComboBox1.Text Then
    Me.ComboBox1.AddItem cell.Value
     End If
    Next

ومن خلال هذا الكود يتم فرز الكلمات ولكن منخلال حلقة تكرارية ويتم اضافة الكلمات التى تبدا بنفس اول حرف الى قائمة الكومبوبوكس من خلال طريقة سهلة جدا وبسيطة



للاستماع الى شرح الفيديو 


ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة