با سلام به دوستان و اساتيد گرامي.فرمي دارم كه شامل 12 ستون هستش.وقتي ويخوام توي ليست باكس اطلاعات مربوطه نمايش داده بشه فقط 10 ستون رو نشون ميده .هرچي اعداد فرمول رو جابجا ميكنم درست نميشه.از فرمول زير هم استفاده ميكنم .ممنون ميشم اگه دوستان كمك كنند.
ListBox1.Clear
Dim d As Range
For Each d In Sheet1.Range("a2:a100000")
If d <> "" Then
ListBox1.AddItem d.Value
For i = 2 To 10
ListBox1.List(ListBox1.ListCount - 1, i - 1) = d.Offset(0, i - 1).Text
Next i
End If
Next d
ListBox1.Clear
Dim d As Range
For Each d In Sheet1.Range("a2:a100000")
If d <> "" Then
ListBox1.AddItem d.Value
For i = 2 To 10
ListBox1.List(ListBox1.ListCount - 1, i - 1) = d.Offset(0, i - 1).Text
Next i
End If
Next d
کامنت