2009-11-12 6 views
0

가변 길이 열을 합산하는 매크로를 만들려고합니다. 나는 몇 가지 다른 것들을 시도했지만 그들은 일하지 않았습니다. 내가 뭘하고 싶은지 :Excel 2007 변수 길이 길이 열

활성 셀이 셀 B17 경우 B17에 B16과 B1의 합을 같게하고 싶습니다. 마찬가지로 활성 셀이 D22 셀인 경우 D22가 D1과 D21의 합계와 같아야합니다.

기본적으로 선택한 셀에서 활성 셀 위의 모든 셀을 합산합니다.

감사합니다. 제임스.

답변

1

Sub MakeSum()

If ActiveCell.Row > 1 Then 
    ActiveCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)" 
End If 

End Sub

0

매크로는 [도구] 버튼 (재미있는 E - 시그마)을 클릭하고 Enter 키를 누를 수 있습니까?

0

이 시도하고 특별한 경우를 조정할 (행 1 등)

Public Sub abcd() 
    Dim rw As Long 
    Dim cl As Long 
    Dim s As Double 
    Dim rng As Range 

    rw = ActiveCell.Row 
    cl = ActiveCell.Column 
    Set rng = Range(Cells(1, cl), Cells(rw - 1, cl)) 

    s = Application.WorksheetFunction.Sum(rng) 
    MsgBox s 
    ActiveCell.Value = s 
End Sub 
1

=SUM(R1C:R[-1]C) 아니면 내가 뭔가를 놓친 거지?