무성의한 블로그

엑셀 매크로에서 폴더 창을 띄울 때 원하는 창으로 들어가는 방법

폴더의 initialFileName을 정해주면 된다.

아래와 같음

Dim fd As FileDialog

Set fd = application.filedialog(msofiledialogfilepicker)

set fs = createobject("scripting.FileSystemObject")

Cells(3,1) = ""

with fd

.InitialFileName = "D:\temp\"

.AllowMultiSselect = true

If .show = 0 then

cells(3,1) = "작업을 취소하셨습니다."

cells(3,1).font.color = RGB(240,0,0)

cells(3,1).font.bold = true

else

.....

end if

end with

set fd = nothing

행 하나를 삭제할 때

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