VBAcode에서 Sum, Vlookup 등과 같은 특정 워크 시트 함수를 참조해야하는 경우 Application 개체를 사용하여 직접 사용할 수 있습니다. 따라서 함수를 – Application.WorksheetFunction.Sum 또는 Application.WorksheetFunction.Vlookup_로 사용합니다. 여기서 _WorksheetFunction은 Application 개체의 메서드입니다 .

이 테스트 매크로가 있다는 것을 고려하면 Application.WorksheetFunction.

이미지 아래 공식을 보여주는 팝업이 표시됩니다

IMG1

예를 들어, vba –

sample

를 사용하여 A 열의이 범위 값을 합산하려면 여기에 합계를 저장하는 SalesTotal이라는 변수가 있습니다 .SalesTotal에서 합계를 얻으려면 표준 모듈에서 다음 VBA 코드를 사용합니다.

_Sub macro4 ()

Dim SalesTotal As Long SalesTotal = Application.WorksheetFunction.Sum (Range ( “A2 : A6”))

MsgBox SalesTotal End Sub_ 위 코드를 파일에 복사하려면 * 키보드에서 Alt + F11을 누릅니다.

  • 왼쪽에는 Microsoft Excel 개체가 표시됩니다.

  • 마우스 오른쪽 버튼을 클릭하고 삽입을 선택합니다.

  • 그런 다음 모듈을 클릭하십시오.

  • 코드를 오른쪽의 코드 창에 복사합니다.

이 샘플 매크로를 사용하면 Sales Total에 저장되고 매크로의 추가 코드 줄에서 사용할 수있는 값을 보여주는 메시지가 표시됩니다.

우리가 얻을 출력은-

IMG3

SalesTotal이 A7 셀에 표시되도록하려면 코드 라인을 Msgbox SalesTotalto Worksheets ( “Sheet1”). Range ( “A7”). Value = SalesTotal 셀에서 이러한 수치에 대한 평균 판매량도 필요하다는 점을 고려하여 변경할 수 있습니다. A9.

__Sub macro5 ()

아래 코드를 사용할 수 있습니다. Worksheets ( “Sheet1”)를 사용하여 SalesTotal을 작게 조정

SalesTotal = Application.WorksheetFunction.Sum (.Range ( “A2 : A6”))

Range ( “A7”). Value = SalesTotal .Range ( “A9”). Value = Application.WorksheetFunction.Average (.Range ( “A2 : A6”))

End With End Sub__ 이전 코드와 비교하여이 코드가 약간 변경되었습니다.

  • Average에 변수를 사용하는 대신 계산 후 해당 값을 A9 셀에 직접 채웠습니다. 따라서 .Range ( “A9”). Value = Application.WorksheetFunction.Average (.Range ( “A2 : A6”))

  • msgbox 행이 제거되었습니다.

  • SalesTotal 변수의 값은 A7 셀로 이동합니다.

  • 이상적으로는 SalesTotal = Application.WorksheetFunction.Sum (.Range ( “A2 : A6”)) _ _.Range ( “A7)를 대체하여 합계 코드 줄에 대해 평균에 사용 된 동일한 코드 줄을 반복 할 수 있습니다. ”) .Value = SalesTotal With _.Range (“A7”). Value = Application.WorksheetFunction.Sum (.Range (“A2 : A6”)) _ 그러나 다른 방법을 이해할 수 있도록 유지되었습니다. 동일한 작업을 코딩합니다. 마찬가지로 Application.WorksheetFunction을 사용하는 동안 다른 함수를 사용할 수 있습니다. 워크 시트에서 직접 사용할 수있는 모든 기능을 여기서 사용할 수 있습니다.

이렇게하면 코드에서 함수를 더 쉽게 사용할 수 있으므로 수식에 대한 코드를 만들지 않고도 필요한 수식을 계산할 수 있습니다.

image 48

_ _ 블로그가 마음에 들면 Facebook에서 친구들과 공유하십시오. Twitter와 Facebook에서도 팔로우 할 수 있습니다 .

_ 우리는 여러분의 의견을 듣고 싶습니다. 우리가 작업을 개선, 보완 또는 혁신하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]_ __