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

[~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