Excel 2013 VBA 크기 조정이 작동하지 않습니다.

Question

VBA를 실행하는 일부 단추가있는 Excel 시트를 작성하고 있습니다. 각 버튼은 본질적으로 사용할 범위의 시작, 길이 (사용할 셀 수) 및 사용자가 입력 한 몇 가지 다른 매개 변수에서 셀을 선택하고 그 정보를 하위 셀로 보냅니다 나는

Sub GetFromCTLGX(RangeToFill As Range, Name, TagName, TagLength) 
RangeToFill = RangeToFill.Resize(1, TagLength) 

내 범위를 사용하는 경우 현재 길이

에 입력 된 세포의 수에 하나 개의 셀을 포함하는 범위의 크기를 조정하는 "RangeToFill는"전혀 변경되지 않습니다.

내가

Sub GetFromCTLGX(RangeToFill As Range, Name, TagName, TagLength) 
RangeToFill.Resize(1, TagLength) 

코드 오류를 사용하여 컴파일하지 않습니다.

다른 사람이이 문제를 겪고 있습니까? 내가 누락 된 항목이 있습니까?

Answer 1

코드에 쉽게 적응,

이 있었어야

Set RangeToFill= RangeToFill.Resize(1, TagLength)  

그것은 이상한하지만 .... 그것을 아직도있어 설명이 안된다 왜 그냥

RangeToFill.Resize(1, TagLength)  

이 작동하지 않습니다. 이는 제가 본 대부분의 예제에서 사용 된 것입니다. 거기에 Set 키워드가 없다는 오류가 없다는 것에 놀랐습니다.

Answer 2

이 예에서는 RangeToFill의 크기를 조정하여 한 행과 한 열씩 확장합니다. http://msdn.microsoft.com/en-us/library/office/ff193274%28v=office.15%29.aspx

numRows = RangeToFill.Rows.Count 
numColumns = RangeToFill.Columns.Count 
Set RangeToFill = RangeToFill.Resize(numRows + 1, numColumns + 1) 

내 코드에서 실수를 발견