يا اخوان فزعة مشكلة في اللست بكس

[abdusayed]

يا اخوان 

عندي مشكلة في اللست بكس عدد الاعمدة عندي 11 عمود بالاضافة الى رقم الصف 

اذا بحثت تطلع عشرة فقط مع رقم الصف عمودين لا تظهر في التكست بوكس عشان التعديل 

مرفق الملف 

الى عنده خبر لا يبخل علينا 

تحياتي للجميع 

حل مشكلة اللست بوكس.xlsm

[سليم حاصبيا]

انا لا أعمل في مجال اليوزر فورم(  ولا أطيقه اصلاُ) لكن أعرف ان الليست بوكس
لا يمكن ان يعبىء كثر من 10 أعمدة بواسطة AddItem

للنغلب على هذه المشكلة يمكن استعمال الـــ Array كما في هذا الكود

Private Sub CommandButton1_Click()
'++++++++++++++++++++++
    Dim arr() As Variant
    Dim i As Long

   With Me.ListBox1
     ReDim arr(1 To 1, 1 To .ColumnCount)
        For i = LBound(arr, 2) To UBound(arr, 2)
        arr(1, i) = Me.Controls("TextBox" & i).Value
       Next i
   .List = arr()
  End With
End Sub

 

[abdusayed]

اشكر لك تعاونك ما قصرت 

ولكن لم تحل المشكلة حقيقة 

[سليم حاصبيا]

املا الكومبوبوكسات(اليوزر) في هذا الملف ثم اضغظ الزر "تعديل" 

اليس  هذا ما تريده ؟؟؟؟

abdusayed.xlsm