그러시다면..첨부파일은 메일로 보내주세요..

abyul@naver.com

일반적으로 DRM시스템을 유지하는 회사도 메일까지 DRM을 걸지는 않습니다.

머.. 감시는 하겠지만요.. 회사 기밀에 해당하는 내용을 제거하시고 샘플 데이터로 만드신 파일을 보내주시면 됩니다.

질문게시판에 질문 올리실때는 "엑셀 파일은 메일로 송부했습니다"라고 적어주시면 제가 메일을 참조하겠습니다.

제가 메일 확인하면서 첨부파일은 질문 게시물에 올려놓도록 하겠습니다.

비슷한 류의 질문을 하실 분들은 기존의 답변을 참고하시게 하려는 목적이지요..

만약 게시물에 올리는걸 원치않으시면 "홈페이지 게시하지 않으셨으면 합니다."라고 적어주시면 됩니다.

각설...

아래처럼 이용하시면 VBA에서도 워크시트의 함수를 사용하실 수 있습니다.

Application.WorksheetFunction.워크시트함수()

예를 들면..

아래와 같은 데이터가 있다고 했을 때...

나 상품의 수량의 합계를 구하고자 할때..

워크시트에서는 아래처럼 셀에 입력하겠죠..

=SUMPRODUCT((A2:A6="나")*(B2:B6))

VBA에서는 아래처럼 처리하시면 됩니다.

Sub testSumproduct()
    Dim array1
    Dim array2
   
    array1 = Range("A2:A6")
    array2 = Range("B2:B6")
   
    For i = LBound(array1) To UBound(array1)
        array1(i, 1) = IIf(array1(i, 1) = "나", 1, 0)
    Next i

    Selection.Value = Application.WorksheetFunction.SumProduct(array1, array2)
   
End Sub

응용하시면.. 나 상품이면서 빨간색이며 마트에서 판매하는 수량의 합계 같은 다중 조건도 가능하겠죠?

하지만..

다중 조건의 합계인 경우.. VBA는 순환문(FOR, WHILE 등)을 사용할 수 있기때문에..

굳이 SUMPRODUCT함수를 사용하지 않고..

자동필터, 고급필터, FOR문의 중첩 사용등을 이용해서 다중조건의 합계를 구하기도 합니다.

예제가 있어야 자세한 답변이 가능하겠네요..

이건 머 워낙 케이스가 많아서요..

도움이 되셨기를..

감사합니다. 아별님.

집에서 다시 파일을 만들어서 다시 오려 봐야 것네요.

그리고 두가지 조건일때도 설명해주시면 감사하겠습니다.