외국어와 모바일 개발

VBA로 작업을 하다 보면 시간이 오래걸리는 경우가 많은데, 개발자들은 Log를 보면서 작업을 하니까 갑갑함을 못느낄수 있지만, VBA로 만든 것을 돌리기만 하는 경우에는 진행상황을 알수 없어서 갑갑함을 느낄수 있다.

이때 간단하게 현재 진행현황을 보여줄려면 Application.StatusBar를 쓰면 된다.

MSDN도움말

Public Sub VBA작업()

Dim oldStatusBar  As string

'이전 메시지를 기억한다.
oldStatusBar = Application.DisplayStatusBar 
Application.DisplayStatusBar = True 

'순환문내에서 아래 진행상황을 표시한다. 
Application.StatusBar = i & "/" & allCount & " Please be patient..." 

'끝나기전에 초기상태로 뒤돌린다.
Application.StatusBar = False 
Application.DisplayStatusBar = oldStatusBar

End Sub

cell에 색상을 입히고 싶으면 range의 interior에 ColorIndex를 설정해주면 된다.

예) rangeOfCell.Interior.ColorIndex = 6

그런데 칼러가 숫자로만 표현되니(상수로 정해두었을거 같은데... 못찾았다.) 무슨색을 나타내는지 알기 어려워서 찾아보니 아래의 표가 있다. 

VBA를 안한지 한참 되었다가 다시 할려니 기본적인것이 생각이 안나서 기존 자료보면서 한참 찾았었다... 여러가지가 있겠지만... 일단 생각나는대로 정리해본다.

* 변수 선언 및 값넣기

Dim rngOne As Excel.Range    '엑셀의 Range객체

Dim strOne As String                '문자

Dim arrOne() As String            '배열

Dim dicOne As Dictionary   'dictionary를 사용하기 위해서는 도구 - 참조 로 가서 Microsoft Scripting Runtime을 참조해주어야 한다.

'객체는 Set을 써서 값을 넣어줘야 한다.

set rngOne = ThisWorkbook.Worksheets("쉬트명").Range("A1")

'dictionary는 사용전에 New를 해준다.

Set dicOne = New Dictionary

dicOne .Add Key:=키값, Item:=Value값

* if 문, for 문, while문

If (dic_Tool_Type.Item(ProcNoInDic) = 1) Then

    str_default_args = "type=1," & ""

ElseIf (dic_Tool_Type.Item(ProcNoInDic) = 2) Then

    str_default_args = "type=2," & ""

Else

    str_default_args = "ERROR : There is no tool type"

End If

'ProcNoInDic 는 variant형으로 해야한다.

For Each ProcNoInDic In dic_strAllLines

Next

For i = 0 To Len(strResult) - 1

next i

Do While 조건(참)

Loop

* prosedure와 function

'배열을 리턴할때는 마지막에 As String()로 한다.

Public Function returnExtOnlyInDic(dicOne As Dictionary, LineDelimiter As String) As String

returnExtOnlyInDic = "리턴될값"        '함수명에 들어가는 값이 리턴 되는 값이다.

End Function

Private Sub btnConvertToMMCNode()

On Error GoTo ErrorHandler:  '에러가 발생하면 ErrooHandler:로 가라는 뜻

MsgBox "정상종료"

Exit Sub  '이문장이 없으면 아래로 내려간다.

ErrorHandler:

    MsgBox "에러발생" & Err.Description

End Sub

* 문자열 조작

'문자열의 결합은 &로 연결해준다.

strResult = strPath1 & vbCrLf & strPath2

*기타

'전체에서 사용되는 변수/상수 만들기

Private Const strErrPrefix As String = "[ERROR] "    'Sub위에 적어준다. 보통 Option Explicit 바로 밑에 적어준다.

'실행 중간에 pause할수 있게... 보통 순환문 안에 넣어준다.

DoEvents