در فایل ضمیمه یه لیست باکس دارم که اطلاعات رو از یه شیت نمایش میده اما به صورت عمودی
چه کار کنم اطلاعات به صورت افقی نمایش بده؟؟
با تشکر
نمونه
چه کار کنم اطلاعات به صورت افقی نمایش بده؟؟
با تشکر
نمونه
-
[CENTER][COLOR=#ff0000]************************************[/COLOR]
No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
[COLOR=#ff0000]************************************[/COLOR]
[/CENTER] -
RE: کمک در مرد نمایش افقی اطلاعات در لیست باکس
سلام
من کد خودتون را یه تغییر کوچیک دادم شما نیز امتحان بفرمایید ببنید جواب میده
کد: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[b]The beginning , is the most important part of the work [/b]
[b]( آغاز هر كار مهمترين بخش آن است )[/b]
کامنت