کمک در مرد نمایش افقی اطلاعات در لیست باکس

[Nima]

در فایل ضمیمه یه لیست باکس دارم که اطلاعات رو از یه شیت نمایش میده اما به صورت عمودی

چه کار کنم اطلاعات به صورت افقی نمایش بده؟؟

با تشکر

نمونه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[sh_amar]

سلام

من کد خودتون را یه تغییر کوچیک دادم شما نیز امتحان بفرمایید ببنید جواب میده

Private Sub CommandButton1_Click()
For Each c In Sheet1.Range("B2:B5000")
    If ComboBox1.Value = c.Value Then
    ListBox1.AddItem c.Value
    For i = 1 To 5
    
               
            ListBox1.List(ListBox1.ListCount - 1, i) = c.Offset(0, i).Value
            
            Next i
                End If
                    Next
        

End Sub