[حل شده] افزايش ستون ليست باكس

[narcissus]

عرض سلام و خسته نباشيد خدمت اساتيد
حداكثر تعداد ستون نمايش داده شده در ليست باكس چند تاست؟
من يه فايلي دارم كه تا ١٠تا ستون نمايش ميده راهي هست كه همه ستونها نشون داده بشه؟؟

[میثم مقدم نیا]

عرض سلام و خسته نباشيد خدمت اساتيد
حداكثر تعداد ستون نمايش داده شده در ليست باكس چند تاست؟
من يه فايلي دارم كه تا ١٠تا ستون نمايش ميده راهي هست كه همه ستونها نشون داده بشه؟؟

سلام
بله میشه ستونهای بیشتر را نمایش داد
میتونید یک فایل نمونه قرار دهید ببینیم تا برسی کنیم

[ali.b]

عرض سلام و خسته نباشيد خدمت اساتيد
حداكثر تعداد ستون نمايش داده شده در ليست باكس چند تاست؟
من يه فايلي دارم كه تا ١٠تا ستون نمايش ميده راهي هست كه همه ستونها نشون داده بشه؟؟

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

Dim arrLstBox(1 To 10, 1 To 18)
 Me.ListBox1.List = arrLstBox()

[narcissus]

سلام و عرض ادب
کد رو اضافه کردم ردیف ها اضافه شد!!

Dim c As Range, b As Range
For Each b In Sheet2.Range("e1:n1")
    If b.Value <> "" And b.Value = ComboBox1.Text Then
        For Each c In Sheet2.Range(b.Offset(1, 0), b.Offset(1000, 0)).Offset(0, (ComboBox2.ListIndex))
            If c.Value <> "" And c = ComboBox4.Text Then
                    ListBox1.AddItem c.Offset(0, -c.Column + b.Column).Value
                For I = 1 To 10
                    ListBox1.List(ListBox1.ListCount - 1, I - 1) = c.Offset(0, (-c.Column + b.Column - 1) + I).Text
                  
                Next I
            End If
        Next c
    End If
Next b 

[narcissus]

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

Dim arrLstBox(1 To 10, 1 To 18)
 Me.ListBox1.List = arrLstBox()

آقا اوکی شد ممنونم