VBA를 사용하여 Excel의 수식에서 셀 값을 가져 오는 방법은 무엇입니까?

Question

숫자 값으로 계산되는 워크 시트의 셀 범위에 수식이 있습니다. 함수에 전달 된 범위에서 VBA의 수치 값을 얻으려면 어떻게해야합니까?

의 워크 시트에서 열 A의 처음 10 개 행을 가정 해 봅시다은 랜드를 포함() 나는

public Function X(data as Range) as double 

    for c in data.Cells 
     c.Value 'This is always Empty 
     c.Value2 'This is always Empty 
     c.Formula 'This contains RAND() 
    next 

end Function 

나는 셀에서 함수를 호출 ... 내 함수에 인수로 있음을 전달하고있다 .. .

=X(a1:a10) 

어떻게 셀 값을 얻는가? 0.62933645?

엑셀 2003, VB6 VBA (2003 엑셀)에서 실행하는 경우 다음 코드는 나를 위해 작동

Answer 1

:

Public Function X(data As Range) As Double 

For Each c In data.Cells 
    a = c.Value  'This works 
    b = c.Value2 'This works too (same value) 
    f = c.Formula 'This contains =RAND() 
Next 

End Function 

A와 B는 같은과 동일 제가 (전달하고있어 어떤 Rand()가있는 셀 범위입니다. 그 밖에 무슨 일이 일어나고 있는지 모르겠습니다.

아하! X를 설정해야합니까? 이 함수가 정확히 무엇을 기대하는지 모르겠지만 함수의 이름 인 X를 반환 할 값으로 설정해야합니다. 다음 라인을 추가하십시오 :

X = a 

Answer 2

게시 한 레이아웃을 사용하여 문제를 복제 할 수 없습니다. 게시 된 코드에 몇 가지 구문 오류가 있음을 확인했습니다 (예 : "for"는 "for each"이어야 함). 내가 넣을 때 = A1에서 RAND() : A10과 = X (A1 : A10)은 다음의 몇 가지에 대한 자세한 조금 확장 단지에, 그러나

Public Function X(data As Range) As Double 
    Dim c As Excel.Range 
    Dim sum As Double 
    For Each c In data.Cells 
     sum = sum + c.Value 
    Next 
    X = sum 
End Function 

나는이와 잘 수익을 얻었다 당신이 닦았 던 다른 질문들. 당신은 너무 같은 결과를 수식을 평가할 수 :

Public Function X(data As Range) As Double 
    Dim c As Excel.Range 
    Dim sum As Double 
    For Each c In data.Cells 
     sum = sum + Excel.Evaluate(c.Formula) 
    Next 
    X = sum 
End Function 

그러나 일반적으로는 기본적으로 두 번 같은 값을 계산하는대로에 싶지 않을 것입니다 말하기.

Answer 3

값을 요청하기 전에 계산을 수행해야합니다.

는 값을 사용할 수 있습니다 전에 계산을 강제해야한다이 상태에서 .. 종종 미리 형성되어

'Set Reasonable default 
Application.CutCopyMode = False 
Application.ScreenUpdating = False 
Application.Interactive = False 
Application.Calculation = xlCalculationManual 

을 다음과 같은 매크로 뭔가를 가속화합니다.

Public Function X(data As Range) As Double 
    'You may need the following as well 
    'Application.Calculate 
    Dim c As Range 
    For Each c In data.Cells 
     c.Calculate 
     c.Value 'This is now has a value 
     c.Value2 'This is now has a value 
     c.Formula 'This contains RAND() 
    Next 
End Function