کمک در مرد نمایش افقی اطلاعات در لیست باکس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Nima

    • 2011/07/22
    • 385
    #1

    کمک در مرد نمایش افقی اطلاعات در لیست باکس

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

    چه کار کنم اطلاعات به صورت افقی نمایش بده؟؟

    با تشکر

    نمونه
    [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]
    برچسب ها: هیچ‌کدام
    • sh_amar

      • 2010/10/06
      • 168
      #2
      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]

        کامنت

        قبلی template بعدی
        چند لحظه..