請問大大 小弟在sheet5有30幾個欄位從D欄位~AN欄位 要顯示在listbox上
但是出現了問題:
第十欄位以後就引述無效,
編碼如下,謝謝。- Dim i As Integer
- With Listbox1
- .ColumnCount = 37
- .ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
- End With
- With Sheet5
- i = 1
- Do While .Cells(i, "A") <> ""
- With Listbox1
- .AddItem
- r = .ListCount
- .List(r - 1, 0) = Sheet5.Cells(i, "D")
- .List(r - 1, 1) = Sheet5.Cells(i, "E")
- .List(r - 1, 2) = Sheet5.Cells(i, "F")
- .List(r - 1, 3) = Sheet5.Cells(i, "G")
- .List(r - 1, 4) = Sheet5.Cells(i, "H")
- .List(r - 1, 5) = Sheet5.Cells(i, "I")
- .List(r - 1, 6) = Sheet5.Cells(i, "J")
- .List(r - 1, 7) = Sheet5.Cells(i, "K")
- .List(r - 1, 8) = Sheet5.Cells(i, "L")
- .List(r - 1, 9) = Sheet5.Cells(i, "M")
- .List(r - 1, 10) = Sheet5.Cells(i, "N")
- .List(r - 1, 11) = Sheet5.Cells(i, "O")
- .List(r - 1, 12) = Sheet5.Cells(i, "P")
- .List(r - 1, 13) = Sheet5.Cells(i, "Q")
- .List(r - 1, 14) = Sheet5.Cells(i, "R")
- .List(r - 1, 15) = Sheet5.Cells(i, "S")
- .List(r - 1, 16) = Sheet5.Cells(i, "T")
- .List(r - 1, 17) = Sheet5.Cells(i, "U")
- .List(r - 1, 18) = Sheet5.Cells(i, "V")
- .List(r - 1, 19) = Sheet5.Cells(i, "W")
- .List(r - 1, 20) = Sheet5.Cells(i, "X")
- .List(r - 1, 21) = Sheet5.Cells(i, "Y")
- .List(r - 1, 22) = Sheet5.Cells(i, "Z")
- .List(r - 1, 23) = Sheet5.Cells(i, "AA")
- .List(r - 1, 24) = Sheet5.Cells(i, "AB")
- .List(r - 1, 25) = Sheet5.Cells(i, "AC")
- .List(r - 1, 26) = Sheet5.Cells(i, "AD")
- .List(r - 1, 27) = Sheet5.Cells(i, "AE")
- .List(r - 1, 28) = Sheet5.Cells(i, "AF")
- .List(r - 1, 29) = Sheet5.Cells(i, "AG")
- .List(r - 1, 30) = Sheet5.Cells(i, "AH")
- .List(r - 1, 31) = Sheet5.Cells(i, "AI")
- .List(r - 1, 32) = Sheet5.Cells(i, "AJ")
- .List(r - 1, 33) = Sheet5.Cells(i, "AK")
- .List(r - 1, 34) = Sheet5.Cells(i, "AL")
- .List(r - 1, 35) = Sheet5.Cells(i, "AM")
- .List(r - 1, 36) = Sheet5.Cells(i, "AN")
- End With
- i = i + 1
- Loop
- End With
複製代碼 |