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

 조상현 (conanread)

추천:  2
파일:     VBA다중조건의 합계구하기.xlsx (18.2KB) 조회:  2475
제목:   VBA로 다중조건의 합계 구하는 질문입니다.
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):2016

* 아래줄에 질문을 작성하세요 >>
첨부된 파일의 하도거래내역시트에서 결과시트의 조건에 만족하는 합계결과를 함수(SUMPRODUCT, SUMIFS)말고 vba로 처리하려면 어떻게 해야 하는지 질문드립니다. 		　
[불량 게시물 신고]  
블랙록Public Function 업체_당해기성(ByVal 년 As String, ByVal 월 As String, ByVal 업체 As String) As Long
    Application.Volatile
    
    누적금액 = 0
    
    Set Last업체 = Sheets("하도거래내역").Cells(Rows.Count, "D").End(xlUp)
    
    For Each loop업체 In Sheets("하도거래내역").Range("D2", Last업체)
        loop년 = loop업체.Offset(0, -3)
        loop월 = loop업체.Offset(0, -2)
        loop당해기성 = loop업체.Offset(0, 1)
        
        If 업체 = loop업체 And 년 = loop년 And 월 = loop월 Then
            누적금액 = 누적금액 + loop당해기성
        End If
    Next
    
    업체_당해기성 = 누적금액
End Function
11-14 (22:52)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-11-14(13:03)
최종수정일 : 2019-11-14(13:03)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ VBA로 다중조건의 합계 구하는 질문입니다. 조상현 2019-11-14
[RE]VBA로 다중조건의 합계 구하는 질문입니다. dew 2019-11-15