무성의한 블로그

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

폴더의 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

rows(14).Insert

Columns(14).Insert

원숭이들이 악어배를 타고 있는 조각인데 뭔가 이야기가 있을 것같네요.

지구 온난화가 싱가포르의 이슈입니다. 

내려가는 길에 이런 시청각 자료를 제공하고 있습니다. 

나가는 길 중간 중간에 보이는 나무뿌리 조각들

외부에도 많은 조각들이 전시되어 있습니다. 

정원에 전시된 소.

이중섭의 소를 연상시키는 조각입니다.

싱가포르를 방문한 초등학생 조카 말이 더운 동물원이나 새공원보다 여기가 더 좋았다고 합니다. 

클라우드 포레스트 입장

유명한 실내 인공 폭포입니다. 

다들 멀찍히서 사진을 찍고 있습니다. 

기왕이면 가까이서 사진을 찍을 것을 권합니다. 

물이 많이 튀지도 않습니다. 

아무래도 가장 유명한 건 Lost World라는 스카이웨이이지요.

엘리베이터를 타고 올라갑니다.

중간 중간에 사진을 찍거나 외부를 구경할 수 있도록 되어 있습니다. 

플라워 돔에는 예쁜 꽃들이 많습니다.

구경이 끝나면 복도에 설치된 화려한 영상을 보며 나옵니다. 

어디나 마찬가지겠지만 구경이 끝나면 쇼핑.

이제 클라우드 포레스트로 ..