ترتيب قائمة الكومبوبوكس أبجدياً

[me4you]

لو تكرمتم أخواني كيف يمكن ترتيب قائمة الكومبويوكس أبجدياً مع العلم أن عنوان القائمة مُحدد ضمن خصائص الكومبوبوكس أي في الـ RowSource

مع جزيل الشكر والاحترام

[عصام نزهى]

UserForm_Initialize()

 rngAnimalList  Range
 arrAnimalList
 n  
 Index  
 bolAdded  
  
  
   rngAnimalList = Sheet1.Range("ListAnimals")
  
  arrAnimalList = rngAnimalList.Value
  
  
  
   n = (arrAnimalList, 1)  (arrAnimalList, 1)
     Me.ComboBox1
       .ListCount > 0 
        
        bolAdded = 
         Index = 1  .ListCount
          
           arrAnimalList(n, 1) < .List(Index - 1) 
            .AddItem arrAnimalList(n, 1), Index - 1
            bolAdded = 
             
           
        
          bolAdded  .AddItem arrAnimalList(n, 1)
      
        .AddItem arrAnimalList(n, 1)