[excel vba] 엑셀 매크로 vba 시작하기 (3) 함수 사용하기, 차트 그리기

(3-1) 함수를 사용하여 계산하기 

sum, average 함수 등 사용하면 너무 편리한 excel ~ 

매크로로 표현하는 방법이 아주 조금! 달랐다. 

 

만약 A1 cell 에 A2부터 A6까지의 값의 평균을 구하고 싶다면~

첫번째

Cells(1,1)="=AVERAGE(A2:A6)"

두번째 

Cells(1,1)= Application.Average(Range("A2:A6"))

 

Average, Sun, STEDV 등등을 넣으면 된다. 

 

또 다른 방법도 있겠지만 여기까지했다. 

 

 

(3-2) 차트 그리기 

 

그냥 그리는 건 쉽지만.. (물론 그렇게 쉽지도 않음)

변하는 range를 지정해서 그려야 했다. 

Dim rngArea As Range 

#Cells(i, j) 는 range가 시작되는 cell 

#a, b 는 변수, 원하는 범위 지정하기

Set rngArea = Cells(i,j).Reszie(a,b)

ActiveSheet.Shapes.AddChart2.Select

ActiveChart.SetSourceData Source:=rngArea



#차트 위치 조정하기 (c, d 는 숫자, 차트 사이즈) 

With Selection 

    .Top=Range().Top

    .Left=Range().Left

    .Width= c

    .Height= d

End with 



ActiveChart.PlotBy=xlColumns