با سلام خدمت دوستان
چرا هرکاری میکنم باوجود اینکه دیتای من در شیت اکسل راست چین هست، اما وقتی وارد لیست باکس می شود ، هنگام نمایش بصورت چپ به راست نمایش می دهد؟
منظور خودم را بصورت تصویر ارائه می دهم.:
در ضمن به هیچ هنوان هم سربرگ روی لیست باکس من نمی آید.
دستورش رو هم می گذارم تا ملاحظه بفرمایید
Public Sub addlist()
Dim n, col
n = 2
col = WorksheetFunction.CountA(Sheet3.Range("1:1"))
ListBox1.ColumnCount = col + 1
ListBox1.Clear
Do While Sheet3.Cells(n, 1) <> Empty
ListBox1.AddItem Sheet3.Cells(n, 6) 'n - 1 ' c.Row - 1
For i = 0 To col
ListBox1.List(ListBox1.ListCount - 1, i + 1) = Sheet3.Cells(n, i + 1) ' c.Value
Next i
n = n + 1
Loop
End Su[/LTR][/RTL][/LTR]b
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)