/ / Excel VBA StatusBar 속성

Excel VBA StatusBar 속성

그만큼 StatusBar 속성 응용 프로그램 개체의 Excel VBA 긴 매크로의 진행 상태를 나타내는 데 사용할 수 있습니다. 이렇게하면 매크로가 아직 실행 중임을 사용자에게 알릴 수 있습니다.

상태:

우리가 만들 매크로는 Range ( "A1 : E20")에 난수를 채 웁니다.

Excel VBA StatusBar 속성 예제

명령 단추에 다음 코드 줄을 추가하십시오.

1. 먼저 i, j 및 pctCompl이라는 Integer 유형의 변수 세 개를 선언합니다.

Dim i As Integer, j As Integer, pctCompl As Integer

2. 이중 루프를 추가하십시오.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

루프에 다음 코드 행 (3, 4 및 5)을 추가하십시오.

3. RandBetween 함수를 사용하여 20에서 100 사이의 난수를 가져옵니다.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. pctCompl 변수를 초기화하십시오. 두 번째 코드 줄은 변수 pctCompl의 값과 설명 텍스트를 상태 표시 줄에 씁니다.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

예 : i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11 %가 완료되었습니다.

5. Application 객체의 Wait 메소드를 사용하여 긴 매크로를 시뮬레이션합니다.

Application.Wait Now + TimeValue("00:00:01")

6. 기본 상태 표시 줄 텍스트를 복원하려면 StatusBar 속성을 False로 설정합니다 (루프 외부).

Application.StatusBar = False

시트에서 명령 단추를 누르면 결과 :

Excel VBA StatusBar 속성 결과

참고 : Esc 또는 Ctrl + Break를 눌러 언제든지 매크로를 중단 할 수 있습니다. 보다 시각적 인 접근 방법은 Progress Indicator 프로그램을 참조하십시오.

또한 읽으십시오 :