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

 코알라 (sis0351)

추천:  2
파일:     조회:  1672
제목:   [RE]자동합계
     
  Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Then Exit Sub
     Select Case .Column
            Case 18: .Offset(0, -17).Value = Date
            Case 6:  .Interior.Color = 65535
            Case 15: .Interior.Color = 62885
            Case 13:  Call calc(11, 13, .Row, 14)
                      Call calc(9, 13, .Row, 17)
     End Select
End With
End Sub

Function calc(s, e, R, c)
Dim i    As Long
Dim j    As Long
Dim k    As Long
Dim V()  As Variant
On Error Resume Next
ReDim V(s To 14)
For i = s To e
    V(i) = Split(Cells(R, i), vbLf)
    k = Application.Max(k, UBound(V(i)))
Next i
V(14) = Split(LTrim(Application.Rept(" 0", k + 1)), " ")
For i = 0 To k
    V(14)(i) = 0
    For j = s To e
        V(14)(i) = V(14)(i) + Val(V(j)(i))
    Next j
Next i
Cells(R, c) = Join(V(14), vbLf)
On Error GoTo 0
End Function

Sub SheetReset()
    With Columns("C:C").Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
 
[불량 게시물 신고]  
실버라인답변 감사 드립니다 일단 사용해 보겠습니다06-03 (18:48)
삭제 ■신고
실버라인대박~~ 완전 감사 드립니다 
   이거 잦는데 6년이 넘게 걸렸네요
     정말 잘 사용 하겠습니다
06-03 (19:12)
삭제 ■신고
코알라고맙습니다.06-03 (20:04)
삭제 ■신고
        
  

작성일 : 2018-06-02(22:09)
최종수정일 : 2018-06-02(22:09)
 


 ◎ 관련글

  제 목   작성자   날짜
자동합계 실버라인 2018-06-02
[RE]자동합계 코알라 2018-06-02
[RE]자동합계 코알라 2018-06-03