با سلام به دوستان و اساتيد گرامي.فرمي دارم كه شامل 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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.