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

작성자:  

 update (gskim10)

추천:  0
파일:     부분합(2).xlsx (10.7KB) 조회:  154
제목:   입고내용의 마지막셀 옆에 합계 계산하기
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >>
품목중 여러개의 항목이 있는데서 입고된 내용 옆에만 셀에 입고소계 를 
나타내고 싶은데요..
if문을 해보니 적용이 잘안되네요..
다른방법이 있는지 궁금 합니다. 		　
[불량 게시물 신고]  
재현입고금액이 있는 셀 옆
=IF(K3>0,SUM($K$3:K3),0)
입고금액이 있는 셀 그리고 입고금액의 마지막 셀 옆
=IF(AND(K3>0,MAX(($K$3:$K$49>0)*ROW($K$3:$K$49))=ROW()),SUM($K$3:K3),0) : 배열함수로 임력(Ctrl+Shift+Enter)		07-22 (18:47)
ⓧ삭제 ■신고
update엑셀에서 수작업으로 하면 잘되는데요..
매크로 에서 사용할려고 하니 잘 안되네요..
Sub 입고소계()    
    With ActiveSheet
        Set TRng = .Range("C7")
        Set TRng = .Range(TRng(2), TRng.End(xlDown))

         With TRng.Offset(, 16)
                .Formula = "=IF(AND(RC[-1]>0,MAX((R8C18:R200C18>0)*ROW(R8C18:R200C18))=ROW()),SUM(R8C18:RC[-1]),0)"
        End With
    End With
End Sub
매크로 에서 배열함수로 적용할수 없을까요?
.FormulaArray 로 해보니 셀이 고정으로 되어 안되네요...		07-22 (23:12)
ⓧ삭제 ■신고
재현Sub 입고소계()
    With ActiveSheet
        Set TRng = .Range("C3")
        Set TRng = .Range(TRng, TRng.End(xlDown))
        
        For Each rngX In TRng.Cells
            rngX.Offset(, 9).FormulaArray = "=IF(AND(RC[-1]>0,MAX((R3C11:R200C11>0)*ROW(R3C11:R200C11))=ROW()),SUM(R3C11:RC[-1]),0)"
        Next
    End With
End Sub		07-24 (23:12)
ⓧ삭제 ■신고
update업무 효율이 완전 좋아졌습니다.
너무 많이 배웠습니다.
감사 합니다...		07-25 (18:46)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2024-07-22(10:18)
최종수정일 : 2024-07-22(10:18)