무성의한 블로그

매크로 사용 시 자주 사용하는 것 중 하나가 문장의 특정 위치에 있는 문자를 가져오는 것입니다.

예) 업무일지_20160701-한국매크로연습주식회사.xls

위 파일에서 일자를 가져와서 처리일자의 기준으로 삼아야 함.

일단 연도를 기준으로 작업한다고 가정합시다

sub getInStr()

fileName2 = "업무일지_20160701-한국매크로연습주식회사.xls"

cells(1,1) = fileName2

'InStr은 텍스트에서 원하는 글자의 위치를 찾아주는 함수

chkPsn = InStr(1, fineName2, "2016",1)

'이걸 MID를 사용해서 자르고 날짜 형태로 만들어서 처리함

cells(2,1) = CDate(mid(fineName2, chkPsn, 4) & "-" & mid(fineName2, chkPsn+4, 2) & "-" & mid(fineName2, chkPsn+6, 2) & "-" & )

end sub

프로그램 개발 계획 확인

엑셀에서 좌측 세로열에 프로그램리스트를 적고 오른쪽 가로열에 일자를 입력한다.

각 일자별로 프로젝트 개발 대상의 수를 확인한다.

특정 날짜에 개발이 몰려 있는지의 여부를 확인할 수 있다.

인력별 등 다양하게 활용할 수 있다.

매크로를 실행 중에 폴더를 생성해야 할 때가 있습니다. 

실행 중에 폴더가 있어야 하는데 없으면 오류가 납니다. 

있는 데 또 만들려고 해도 오류가 발생하지요. 

아래 체크 로직을 사용해서 폴더를 확인 후 생성합니다.

Sub createFolders()

Dim fs, f, s

NewFDName = Date & " 전체"

NewFDName = "D:\temp\" & NewFDName

'날짜가 필요한 곳이 있으므로 날짜를 추출

Cells(4, 8) = Left(Right(NewFDName, 13), 10)

'하루 전날로 셋팅

Cells(4, 28) = Cells(4, 8) - 1

'폴더가 있는지 확인

pathCheck = Dir(NewFDName, vbDirectory)

'없으면 만들고 있으면 무시

If pathCheck = "" Then

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.createFolder(NewFDName)

MsgBox ("폴더를 준비하였습니다 ")

Else

MsgBox ("폴더가 이미 존재합니다.")

End If

Cells(4, 7) = Right(NewFDName, 10)

End Sub

차트 그릴 때

'크기 위치 고정

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"