Excel 및 VBA를 사용하여 진행률 표시줄을 만듭니다.
진행률 표시줄은 컴퓨터 응용 프로그램에서 작업 진행률을 나타내는 데 사용됩니다. 일반적으로 작업이 진행됨에 따라 애니메이션되는 직사각형입니다. VBA(Visual Basic for Applications)는 Microsoft Office 응용 프로그램에서 일상적인 작업을 자동화하고 사용자 인터페이스를 만드는 데 사용되는 컴퓨터 프로그래밍 언어입니다. Microsoft Office Excel에서 VBA를 사용하여 진행률 표시줄을 쉽게 만들 수 있습니다. Excel은 Microsoft Office 제품군에 포함된 스프레드시트 응용 프로그램입니다.
1 단계
Microsoft Office Excel을 연 다음 "Alt"와 "F11"을 눌러 Visual Basic Editor를 엽니다. "VBAProject"를 마우스 오른쪽 버튼으로 클릭한 다음 "UserForm"을 클릭하여 새 양식을 삽입합니다. "도구 상자" 메뉴에서 "레이블"을 클릭하십시오. 마우스 버튼을 누른 상태에서 양식을 끌어 새 레이블 컨트롤을 만듭니다.
오늘의 비디오
2 단계
레이블을 마우스 오른쪽 버튼으로 클릭하고 "속성"을 선택한 다음 "높이"를 42로, "너비"를 12로 변경합니다. "상단"을 12로 변경하십시오. 동일한 프로세스를 사용하여 9개의 레이블을 더 만듭니다.
3단계
"도구 상자" 창에서 "CommandButton"을 클릭하고 양식에 새 단추를 추가하십시오. "CommandButton"을 마우스 오른쪽 버튼으로 클릭하고 "코드 보기"를 클릭하여 새 프로시저를 만듭니다.
4단계
다음을 입력하여 새 변수를 만들고 값을 정의합니다.
Dim cnt를 정수로 cnt = 0
5단계
양식이 시작될 때 모든 레이블을 숨기려면 다음을 입력하십시오.
나. Label1.Visible = 거짓 나. Label2.Visible = 거짓 나. Label3.Visible = 거짓 나. Label4.Visible = 거짓 나. Label5.Visible = 거짓 나. Label6.Visible = 거짓 나. Label7.Visible = 거짓 나. Label8.Visible = 거짓 나. Label9.Visible = 거짓 나. Label10.Visible = 거짓
6단계
다음을 입력하여 while 루프를 만들고 5초 동안 코드를 일시 중지하면서 10번 반복합니다.
하는 동안 cnt <> 10
Case cnt Case Is = 1 Me를 선택합니다. Label1.Visible = 진정한 나. Label1.BackColor = vbBlue 케이스 Is = 2 Me. Label2.Visible = 진정한 나. Label2.BackColor = vbBlue 케이스 Is = 3 Me. Label3.Visible = 진정한 나. Label3.BackColor = vbBlue 케이스 Is = 4 Me. Label4.Visible = 진정한 나. Label4.BackColor = vbBlue 케이스 Is = 5 Me. Label5.Visible = True Me. Label5.BackColor = vbBlue 케이스 Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue 케이스 Is = 7 Me. Label7.Visible = 진정한 나. Label7.BackColor = vbBlue 케이스 Is = 8 Me. Label8.Visible = True Me. Label8.BackColor = vbBlue 케이스 Is = 9 Me. Label9.Visible = 진정한 나. Label9.BackColor = vbBlue 케이스 Is = 10 Me. Label10.Visible = 진정한 나. Label10.BackColor = vbBlue 끝 선택. 나. 응용 프로그램을 다시 칠하십시오. 지금 대기 + TimeValue("00:00:05")cnt = cnt + 1
고리
7단계
"삽입" 메뉴를 클릭한 다음 "모듈"을 클릭하여 새 모듈을 추가하십시오. "UserForm1."을 시작하려면 아래 코드를 복사하여 붙여넣습니다.
Sub showProgressBar() UserForm1.Show End Sub
프로그램을 실행하려면 "F5"를 누르십시오.
