macro 소소한 팁

행 하나를 삭제할 때

rows(51).select

selection.delete shift :=xlUP

 

countA를 사용할 때

cells(3,4) = "count(d4:d5000)"

'내부의 위치에는 따옴표를 사용하지 않는다.

 

차트 그릴 때

'크기 위치 고정

Activesheet.shapes(1).Placement = xlFreeFloating

 

'차트 제목입력

Activesheet.ChartObjects(1).Activate

ActiveChart.ChartTitle.Select

ActiveChart.ChartTitle.Text = "월별실적"

 

'차트가 있는지 확인하고 삭제

chtCnt= Activesheet.ChartObjects.Count

if chtCnt > 0 then

Activesheet.ChartObjects(1).Delete

end if

 

'퍼센트 유형 변경

Range("t5:t50").select

selection.Style = "Percent"

 

'이미지파일 수 세기

shpCnt = ActiveSheet.Shapes.Count

imgNum = 0

i = 1

 

Do while i < shpCnt + 1

if activeSheet.shapes.item(shpECnt).type = 13 then 'type = 13이 그림파일임

imgNum = imgNum + 1

end if

i = i + 1

loop

cells(3,4) = imgNum   'imgNum is number of image