- 수식 참조 셀 때까지 작동하지는 VBA에서 작업

Question

, 나는 내가 행의 특정 번호를 붙여 찾고 있어요 간단한 워크 시트 함수를했습니다 활성화.

Dim RowCount As Integer 

RowCount = Worksheets("Sheet1").Range("H2").End(xlDown).Row 

With Worksheets("Sheet1") 
    .Range("L2" & RowCount).Value = "=IF(H2=""TRUE"",G2,"""")" 
    .Range("M2" & RowCount).Value = "=IF(I2=""TRUE"",G2,"""")" 
    .Range("N2" & RowCount).Value = "=IF(J2=""TRUE"",G2,"""")" 
    .Range("O2" & RowCount).Value = "=IF(K2=""TRUE"",G2,"""")" 
End With 

내 계산 옵션이 자동으로 설정되어 있으므로 문제가되지 않습니다. 또한 함수의 문자열에 ""을 사용하고 있습니다.

코드는 가야 워크 시트 기능을 배치하지만, 논리가 작동하지 않습니다. 항상 거짓으로 나옵니다. 그러나 H2 셀에서 함수 (I2, J2, K2)가 참조하는 셀을 클릭 한 다음 셀을 이스케이프하면 H2의 텍스트가 왼쪽으로 이동하고 수식이 작동합니다! 수천 개의 광고 항목에 대해이 작업을 수행하고 싶지 않습니다. 어떻게해야합니까?

Answer 1

셀 수식 대신 배열 수식을 사용하십시오. 그렇게하면 전체 범위에 대해 한 번만 수식을 입력 할 수 있습니다. 자세한 내용은 여기를 참조하십시오 : http://office.microsoft.com/en-us/excel-help/introducing-array-formulas-in-excel-HA001087290.aspx. 매크로를 기록한 후 필요에 따라 코드를 수정하십시오.