[vba] 작업진행 상태바 만들기(Progress Bar)

Private min_Value As Long, run_Value As Long, max_Value As Long

'// 폼이 실행될때

Private Sub UserForm_Initialize()

min_Value = 0: run_Value = 0: max_Value = 100 '// 기본값 설정

Me.Height = 55: Me.Width = 300 '// 폼의 넓이와 높이를 지정

Label1.Caption = "": Label2.Caption = ""

'// 배경이 될 라벨의 사이즈와 위치 설정

With Label1: .Left = 5: .Top = 5: .Width = InsideWidth - 10: .Height = InsideHeight - 10: End With

'// 진행이 표시될 라벨의 사이즈와 위치 설정

With Label2: .Left = 5: .Top = 5: .Width = 0: .Height = InsideHeight - 10: End With

'// 진행값이 표시될 라벨의 사이즈와 위치, 백스타일 투명하게 설정

With Label3: .Left = 5: .Top = InsideHeight / 3: .Width = InsideWidth - 10: .Height = InsideHeight / 3: .BackStyle = 0: End With

Label2.Width = 0 '// 초기 진행상태 0

Label3 = "0 / " & max_Value '// 표시할 테스트 초기값

End Sub

'// 현재 진행값을 얻음

Public Property Get Value() As String

Value = run_Value

End Property

'// 현재 진행값을 설정 및 업데이트 프로시저 호출

Public Property Let Value(runVale As String)

run_Value = runVale '// 현재 진생값을 변경

workRun '// 실제 라벨의 사이즈를 재설정하기 위해 프로시저 호출

End Property

'// 진행상태 바 업데이트 및 디스플레이값 출력

Sub workRun()

Label2.Width = (Me.InsideWidth - (Label2.Left * 2)) * (run_Value / max_Value)

Label3 = run_Value & " / " & max_Value

Repaint

End Sub

'// max값을 얻음

Public Property Get maxValue() As String

maxValue = max_Value

End Property

'// max값 설정

Public Property Let maxValue(maxVale_ As String)

max_Value = maxVale_

workRun

End Property

'// 폼 텍스트 변경

Public Property Let Text(text_ As String)

Me.Caption = text_

Repaint

End Property

Sub program1472_com()

If Not pBar.Visible Then pBar.Show 0

pBar.maxValue = 50000

Dim i As Long

For i = 1 To 50000

If (i Mod 100) = 0 Then pBar.Text = i & "번째 작업을 진행중입니다...."

pBar.Value = i

Next

Unload pBar

MsgBox "완료!!"

End Sub

Sub program1472_com()

If Not pBar.Visible Then pBar.Show 0

pBar.maxValue = 100

Dim i As Long

For i = 1 To 50000

If (i Mod 100) = 0 Then pBar.Text = i & "번째 작업을 진행중입니다...."

pBar.Value = i / 50000 * 100

Next

Unload pBar

MsgBox "완료!!"

End Sub