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

 경로우대 (hicx1004)

추천:  2
파일:     조회:  1563
제목:   [RE]선택항목에 대해서 합계 구하기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >>
첨부와 같이 도면번호별 각각의 항목 갯수가 아랫열에 있는데 
필요로하는 항목에 대해서만 전체 합계를 구하고 싶습니다.
물론 아랫열의 항목이 한행 밑뿐 아니라 여러행으로도 되어 있으며
구분은 도면번호로 구분이 되었으면 합니다.

==============[경로우대님 글에 대한 답변입니다]==============

첨부화일 참고하세요.

Sub EachUserSum()
    Dim sht As Worksheet
    Dim rData As Range
    Dim rFind As Range, sAddr As String
    Dim rX As Range
    
    Dim lRow As Long, lCol As Long
    
    Dim sWhat As String
    Dim lSum As Long
    
    Set sht = Worksheets("조립품 양식")
    
    lRow = sht.Cells(Rows.Count, 1).End(xlUp).Row
    lCol = sht.Cells(2, 1).End(xlToRight).Column
    Set rData = Range(sht.Range("A2"), sht.Cells(lRow, lCol))
    
    For lRow = 4 To sht.Cells(Rows.Count, "O").End(xlUp).Row
        sWhat = sht.Cells(lRow, "O")
        Set rFind = rData.Find(What:=sWhat, LookAt:=xlWhole)
        If Not rFind Is Nothing Then
            sAddr = rFind.Address
            Do
                lSum = lSum + getSum(rFind)
                Set rFind = rData.FindNext(rFind)
            Loop While Not rFind Is Nothing And rFind.Address <> sAddr
            
            sht.Cells(lRow, "P") = lSum
            lSum = 0
        End If
    Next
End Sub
==============[dew님 글에 대한 답변입니다]=============

감사합니다.
잘 쓰도록 하겠습니다
 
[불량 게시물 신고]  
        
  

작성일 : 2019-05-24(09:01)
최종수정일 : 2019-05-24(09:01)
 


 ◎ 관련글

  제 목   작성자   날짜
선택항목에 대해서 합계 구하기 경로우대 2019-05-23
[RE]선택항목에 대해서 합계 구하기 dew 2019-05-23
[RE]선택항목에 대해서 합계 구하기 경로우대 2019-05-24