나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     조회:  1194
제목:   [RE]SUMPRODUCT VBA 코딩 방법
　 　 　
　 이리저리 해 봐도 계속 에러가 납니다
죄송하지만..SUMPRODUCT함수를  VBA에서 코딩 방법 좀 알려주세요  부탁합니다 ㅠㅠ
==============[사랑나눔님 글에 대한 답변입니다]==============

Sub SUMPRODUCT()
    Dim rData As Range, rResult As Range, rX As Range
    Dim sFormula As String
    
    Set rData = Range("A1").CurrentRegion
    Set rData = rData.Offset(1).Resize(rData.Rows.Count)
    
    Set rResult = Range("E1").CurrentRegion
    Set rResult = rResult.Offset(1).Resize(rResult.Rows.Count - 1, 1)
    
    For Each rX In rResult.Rows
        sFormula = "=SUMPRODUCT((" & rData.Columns(1).Address & "<=" & rX.Address & ") * (" & _
            rData.Columns(2).Address & ">=" & rX.Address & "), (" & rData.Columns(3).Address & "))"
        rX.Offset(, 1).Value = Evaluate(sFormula)
    Next
End Sub 		　
[불량 게시물 신고]  
사랑나눔우와~~  감사합니다  이게 쉬운게 아니었군요 제 수준에..  다시 한 번 감사드립니다10-02 (20:51)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2018-10-02(17:22)
최종수정일 : 2018-10-02(17:22)
　


 ◎ 관련글
  제 목   작성자   날짜
SUMPRODUCT VBA 코딩 방법 사랑나눔 2018-10-02
◎ [RE]SUMPRODUCT VBA 코딩 방법 dew 2018-10-02