ماهو الخطا في هذا الكود

[هاني بدر]

السلام عليكم

في المرفق المطلوب هو اظهار باقي الاعمدة في الليست بوكس

تقبلوا تحياتي

test_List.rar

[أبوعبد الله]

أخي العزيز هاني

في عجالة تم حل المشكلة أرجو الاطلاع على المرفق .

تحياتي

test_List-1.rar

[هاني بدر]

عزيزي ابوعبدالله

قبل القراءة والاطلاع تحياتي لك وعاوز اقولك اننا مفتقدينك وسلمت يداك

[هاني بدر]

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

تم التجربة والحل سليم ذادك الله من فضله وعلمه

ولى استفسار بسيط

هل يمكن الاستعاضة عن تحديد

Row Source

من خلال خصائص الليست بوكس وكتابة السطر التالي في الكود

 

With SEARCH_FOR_FB.ListBox1
.Clear
.RowSource = Sheets("Sheet1").Range("A10:Q5000")
.ColumnCount = 15
.ColumnWidths = "60,200,60,60,60,90,60,60,60,60,60,60,60,60,60"
End With

تقبل تحياتي

[أبوعبد الله]

أخي العزيز هاني

أشكرك على كلماتك الطيبة

قم بمسح تعريف نطاق ال Row Source من مواصفات الليست بوكس واستبدل الكود الموجود بهذا الكود وسيتحقق نفس المطلوب مع ملاحظة اختصار الكود حيث الجزء المحذوف أصبح عديم الجدوي في ظل تحديد نطاق ال Row Source .

تحياتي

Sub Oval1_Click()

On Error Resume Next

Dim Lastrow As Integer, R As Integer, T As Integer

With SEARCH_FOR_FB.ListBox1

.Clear

.RowSource = "my_source"

.ColumnCount = 15

.ColumnWidths = "60,200,60,60,60,90,60,60,60,60,60,60,60,60,60"

End With

SEARCH_FOR_FB.Show

End Sub

 

[هاني بدر]

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

صديقي العزيز ابوعبدالله لك الشكر والتحية

اعلم جيدا ان  لك صدرا يتسع لكل استفسارات السائلين 

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

ففي مثالي لا اريد اظهار  كل  التعريفات بالصنف بحيث يظهر باقي الاعمدة   

تقبل تحياتي وخالص شكري لك

[هاني بدر]

Dim HANY As Range

With SEARCH_FOR_FB.ListBox1
      Set HANY = Sheets("Sheet1").Range("A10:Q5000")
   .ColumnCount = 15
.ColumnWidths = "60,200,0,0,0,90,0,60,60,60,60,60,60,60,60"

    .List = HANY.Value  
    .ListIndex = 0       
        
         End With

 

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

تقبل تحياتي