본문 바로가기
엑셀

Excel | 엑셀 하단 상태 표시줄에 메세지 넣는 방법 - 알아보기

by 데이터스토리 2025. 1. 15.
반응형

Excel 엑셀 하단 상태표시줄에 메세지 넣는 방법을 알아보겠습니다. 이 방법은 VBA 에서 사용합니다. VBA 는 엑셀의 개발스크립트 언어입니다. 엑셀 개발 도구에 해당합니다.

 

엑셀 VBA
엑셀 VBA

 

 

1. 개요

 

Excel 하단의 상태 표시줄에 메시지를 나오게 하려면 Application.StatusBar 속성을 사용합니다.

이를 구현하는 방법은 아래와 같습니다.

ALT + F11을 눌르면 VBA 편집기가 나옵니다.

Insert 메뉴에서 Module을 선택하면 새 모듈을 추가할 수 있습니다. 여기에 샘플 코드를 붙여넣고 테스트 해 보세요.

F5 키를 눌르면 코드가 실행됩니다.

상태표시줄에 메세지가 나오는 것을 확인할 수 있습니다. 

직접 해 보시기 바랍니다.

 

VBA 모듈 삽입
VBA 모듈 삽입

 

 


 


2. 샘플 코드

 

Sub ShowProgressInStatusBar()
    Dim i As Integer
    
    ' 상태 표시줄에 초기 메시지 설정
    Application.StatusBar = "작업 시작 중..."
    
    ' 예시: 1부터 10까지 반복
    For i = 1 To 6
        ' 상태 표시줄에 진행 상황 표시
        Application.StatusBar = "상태 바 진행 중: " & i & "/10 ."
        Application.Wait Now + TimeValue("00:00:01") / 2  ' 0.5초
        
        Application.StatusBar = "상태 바 진행 중: " & i & "/10 ..."
        Application.Wait Now + TimeValue("00:00:01") / 3
        
        Application.StatusBar = "상태 바 진행 중: " & i & "/10 ...."
        Application.Wait Now + TimeValue("00:00:01") / 4
        
        ' 작업 시뮬레이션 (1초 대기)
        Application.Wait Now + TimeValue("00:00:01")
    Next i
    
    ' 작업 완료 메시지
    Application.StatusBar = "작업 완료!"
    
    ' 상태 표시줄 초기화
    Application.Wait Now + TimeValue("00:00:02") ' 2초 후에 초기화
    Application.StatusBar = False ' 상태 표시줄 초기화
End Sub

 

실행 전

 

 

실행중 --> 실행 완료

 

 

 

3. 코드 설명

 

  • 상태 표시줄 설정: Application.StatusBar 속성을 사용하여 상태 표시줄에 메시지를 설정합니다.
    • Application.StatusBar = "상태 바 진행 중: " & i & "/10 ."  ==> 메세지를 대입합니다.
  • 작업 진행 표시: 루프를 통해 진행 상황을 업데이트합니다.
  • 작업 시뮬레이션: Application.Wait를 사용하여 작업이 진행되는 것처럼 보이게 합니다.
    • Application.Wait Now + TimeValue("00:00:01")  ==> 1초 대기 합니다.
  • 작업 완료 메시지: 작업이 완료된 후 상태 표시줄에 "작업 완료!" 메시지를 표시합니다.
  • 상태 표시줄 초기화: 마지막에 Application.StatusBar = False를 사용하여 상태 표시줄을 초기화합니다.

 

4. 기타

 

시간을 잠시 멈춤하는 코드입니다.

 

- 5초 대기:  Application.Wait Now + TimeValue("00:00:05") 

- 1초 대기:  Application.Wait Now + TimeValue("00:00:01") 

- 0.5초 대기:  Application.Wait Now + TimeValue("00:00:01") / 2  

- 0.2초 대기:  Application.Wait Now + TimeValue("00:00:01") / 5

 

 


 


 

 

샘플 코드를 직접 넣어서 테스트 해 보시고, 시간이나 문구를 바꿔 보세요. 변화가 보입니다.

그리고, 원하는 로직을 넣어 상태바에 메세지가 변화는 것을 확인해 보세요. 코딩은 도전입니다. 눈 보다는 손가락으로 익힙시다.

 

 

 

 

 VBA 셀에 숫자 포맷 적용하기

 

VBA 셀에 숫자 포맷 적용하기

지인 사무실에서 사용하는 엑셀 기반 시스템에 오류가 발생했다. 첫번째 오류는 유지율1 과 유지율2가 같은 값이 나오는 것이고 두번째 오류는 회수율1에 나오는 값에 백분율이 아닌 지수값으로

twdatastory.tistory.com

 

[엑셀] BMI 계산하기, 신장과 체중으로 내 비만도 알아보기

 

[엑셀] BMI 계산하기, 신장과 체중으로 내 비만도 알아보기

[엑셀] BMI 계산하기, 신장과 체중으로 내 비만도 알아보기 입니다. 1. BMI(Body Mass Index:BMI)란 체질량지수인 BMI(Body Mass Index)는 자신의 몸무게(kg)를 키의 제곱(미터, m)으로 나눈 값입니다. 체질량지수

twdatastory.tistory.com

 

반응형