안녕하세요.
회사에서 작성하는 엑셀파일이 전부 Drm으로 걸려있어 해제가 안되네요 ㅠㅠ
Sumproduct 함수 관련하여, 질문을 드립니다.
low data 에서 항상 Sumproduct 함수 를 사용하여 data 를 뽑아 오는데, 셀한개당 함수가 계속 붙어 있다보니
파일 용량도 커지고 사용시 렉도 생기는 것 같아 매크로로 대체 할수 없는지 알고 싶습니다.
질문이 또 포괄적이 되는데, Vba에서는 Sumproduct 함수 계산을 할수 없을까요?
항상 많은 도움을 주셔서 감사합니다.
![[레벨:2]](http://abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:426point (14%), 레벨:2/30"){kind=icon}
광택입니다
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142726point, 레벨:30/30"){kind=icon}
아별
그러시다면..첨부파일은 메일로 보내주세요..
abyul@naver.com
일반적으로 DRM시스템을 유지하는 회사도 메일까지 DRM을 걸지는 않습니다.
머.. 감시는 하겠지만요.. 회사 기밀에 해당하는 내용을 제거하시고 샘플 데이터로 만드신 파일을 보내주시면 됩니다.
질문게시판에 질문 올리실때는 "엑셀 파일은 메일로 송부했습니다"라고 적어주시면 제가 메일을 참조하겠습니다.
제가 메일 확인하면서 첨부파일은 질문 게시물에 올려놓도록 하겠습니다.
비슷한 류의 질문을 하실 분들은 기존의 답변을 참고하시게 하려는 목적이지요..
만약 게시물에 올리는걸 원치않으시면 "홈페이지 게시하지 않으셨으면 합니다."라고 적어주시면 됩니다.
각설...
아래처럼 이용하시면 VBA에서도 워크시트의 함수를 사용하실 수 있습니다.
Application.WorksheetFunction.워크시트함수()
예를 들면..
아래와 같은 데이터가 있다고 했을 때...
A
B
C
1
상품
수량
2
가
1
3
나
2
4
다
3
5
나
4
6
마
5
7
나 상품의 수량의 합계를 구하고자 할때..
워크시트에서는 아래처럼 셀에 입력하겠죠..
=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문의 중첩 사용등을 이용해서 다중조건의 합계를 구하기도 합니다.
예제가 있어야 자세한 답변이 가능하겠네요..
이건 머 워낙 케이스가 많아서요..
도움이 되셨기를..