개체가 필요합니다 : 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

특성 : 대신`Range`로

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