[땡큐엑셀vba & 엑셀매크로] H열,I열에 숫자를 넣으면 J열에 합계가 자동으로 출력-Worksheet_change이벤트

 

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280473561
'
'H열과 I열의 합계를 J열에 자동으로 합계가 나오게 하려면 어떻게 해야하죠?
'행삽입이나 삭제 해도 J열에 자동으로 합계 나타내게.........
'수식넣지 않고 값만 자동으로 합계 나타날수 있게 하려면 어떻게 해야하는지 알려주세요~
'데이터는 계속 밑으로 더 늘어날수도 있어요 도와주세용~!



'Worksheet의 change이벤트를 사용합니다.
'H열,I열에 숫자를 넣으면 J열에 합계가 자동으로 출력됩니다.
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next

    'H열에 포함될때
    If Not Intersect(Target, Range("H:H")) Is Nothing Then
        h값 = Target
        i값 = Target.Offset(0, 1)
        
        Target.Offset(0, 2) = h값 + i값
    End If
    
    
    'I열에 포함될때
    If Not Intersect(Target, Range("I:I")) Is Nothing Then
        h값 = Target.Offset(0, -1)
        i값 = Target
        
        Target.Offset(0, 1) = h값 + i값
    End If
    
    
End Sub

 

Worksheet_Change이벤트를 이용한 자동합계-땡큐엑셀vba.xlsm

0.05MB