需要的對象：VBA Excel

Question

我有一個範圍，我正在調換和分配給一個帶有rowsource的列表框。當我將我的範圍（TSelected_Range）分配給rowsource的行上運行我的程序時，出現'Object required'錯誤。任何想法？

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1)) 
Dim TSelected_Range As Variant 
TSelected_Range = Application.Transpose(Selected_Range) 

With TabData.DataTable 
    .ColumnHeads = True 
    .ColumnCount = counter + 1 
    .RowSource = TSelected_Range.Value ********errors here 
End With 

Answer 1

這應該爲你工作我用數組和列表屬性來代替：

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1)) 
Dim TSelected_Range() As Variant 
TSelected_Range = Selected_Range.Value 
TSelected_Range = Application.Transpose(TSelected_Range) 

With TabData.DataTable 
    .ColumnHeads = True 
    .ColumnCount = counter + 1 
    .List = TSelected_Range 
End With 

Answer 2

使用List財產

With TabData.DataTable 
    .ColumnHeads = True 
    .ColumnCount = counter + 1 
    .List = TSelected_Range 
End With