اضافه کردن ردیف های یک لیست باکس با شیت

[~M*E*H*D*I~]

درود
سوال فوق توسط دوست عزیز daghyad مطرح شده

فرم جستجویی حاوی یک لیست باکس داریم که بعد از جستجوی رکوردها میخوایم محتویاتی که در لیست باکس نمایش داده میشه به شیت مجزایی اضافه کنیم.

[~M*E*H*D*I~]

خب از حلقه زیر میشه استفاده کرد

    for i = 0 to listBox1.ListCount - 1
        Cells(0, i) = listBox1.list(i , 0) 
    next i