Excel 테이블과 VBA를 사용하여 동적 열의 각 행을 반복합니다.

Question

VBA를 사용하여 가로 테이블에 다양한 요소를 반복하여 전달하려고합니다. 세로 테이블은 질문 목록 (이름, 레이블, 값)이 포함 된 양식이며 가로 테이블에는 세로 테이블의 질문 이름을 사용하는 열이 포함됩니다. 그들은 동적되도록

Dim row As Range 
Dim rowCount As Integer: rowCount = 1 
For Each row In [tbl_QUESTIONS[name]].Rows 
    Sheets(ANSWERS).Cells(r,rowCount).Value = row.Value 
    rowCount = rowCount + 1 
Next 

내 질문은, 어떻게 테이블 참조 및 열 참조를 수정할 수 있습니다

코드는 다음과 같이 보입니다?

[tbl_QUESTIONS[name]].Rows 

나는 이런 식으로 뭔가를 할 수 있도록하고 싶습니다 :

["tbl_" & tblName & "[" & colName & "]]".Rows 

는하지만이 사용 VBA를 참조하는 간단한 방법이 있나요 ... 작동하지 않는 것? 나는 "[tbl_" tblName] 중 ListObject를 생성하는 방법이 있어야한다는 느낌을 갖지만 ListObject 또는 ListObject.Rows 내부에서 'colName'을 참조 할 수 없었습니다.

도움말 감사하겠습니다.

아, 가능하면 Excel 2007 VBA와 호환되도록 유지하고 싶습니다.

건배!

Answer 1

내가 우연히 만났습니다 this link 트릭을 수행하는 것 같습니다. 내가 사용 범위를 만들 수 있습니다처럼

가 보이는 다음

Dim TBL As Range 
Set TBL = Range("tbl_" & tblName & "[" & colName & "]") 

난 여전히 ListObject를 유지하는 대신 범위를 정의하는 방법을보고 싶어요,하지만 난 때까지이 갈 것이다

대안이있다.

는

Answer 2

당신은 아마 지금이 문제를 알고 있지만 문제는 아무 대답이 없기 때문에 ...

는 listObject를 선택 LisObjects 수집을 사용하고

서브/함수에 매개 변수로 되었