با سلام.
دوست عزیز تقریبا کدتون صحیح بود منتها در قسمت properties مربوط به فرم مقدار columncount را برابر 4 قرار دهید.
فقط یکی دو مورد بود که عوضش کردم.البته کدی که نوشتین محدودیت هایی دارد و اگر پویا بود بهتر میشد.اما تا همینجا هم کارتون خوبه
کد PHP:
Dim c As Range
For Each c In Sheet1.Range("B2:B1000")
If c.Value <> "" Then
ListBox1.AddItem c.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3)
End If Next
علاقه مندی ها (Bookmarks)