VBA의 evaluate()에있는 교차 워크 시트 수식

Question

"Data"시트의 A 열의 해당 값이 다른 시트의 범위에 해당 할 때 "Data"시트의 i 번째 열의 조건부 최대 값을 계산하려고합니다. 결과". 아래 코드를 사용해 보았지만 잘못되었습니다 :

Worksheets("Result").Cells(r , 4)=Evaluate("=STDEV(IF(Data!A:A>=Result!range(r,1) and Data!A:A<Result!range(r,2),Data!columns(i)))") 

수식을 작성하는 올바른 방법은 무엇입니까?

Answer 1

문자열에서 vba 부품을 제거하고 &으로 연결해야합니다.

그리고 배열 수식이 잘 작동하지 않고 대신 *를 사용하여 두 개의 부울 값을 비교합니다.

Worksheets("Result").Cells(r,4)=Worksheets("Result").Evaluate("=STDEV(IF((Data!A:A>=Result!" & Cells(r,1).Address & ")*(Data!A:A<Result!" & Cells(r,2).Address & "),Data!" & columns(i).Address & "))") 

경고 : 당신은 배열 수식에서 전체 열 참조를 사용하고 있습니다. 루프가 너무 많으면 느려질 것입니다. 전체 열 참조를 데이터 집합의 범위로 변경하는 것이 좋습니다.

Answer 2

Scott Craner의 조언에 따라 Intersect를 사용하여 실제 데이터에 맞게 열 범위를 트리밍합니다.

=STDEV(IF((Data!$A$1:$A$19>=Result!$A$10)*Data!$A$1:$A$19<Result!$B$10),Data!@$E$1:$E$19))

새로운 변수 선언 :

Dim DataA As String, DataI As String, sFormula As String 

코드를 i 및 r 루프에 삽입 여기

는 r = 10: i = 5 및 Worksheets("Data") 데이터의 19 개 행이 샘플 출력 :

With Worksheets("Data") 
    DataA = Intersect(.Columns("A"), .UsedRange).Address 
    DataI = Intersect(.Columns(i), .UsedRange).Address 
    sFormula = "=STDEV(IF((Data!" & DataA & ">=Result!$A$" & r & ")*(Data!" & DataA & "<Result!$B$" & r & "),Data!@" & DataI & "))" 
End With 

With Worksheets("Result") 
    .Cells(r, 4) = .Evaluate(sFormula) 
End With