방법 1 – 흐르는 스크롤 텍스트 애니메이션
- Alt+F11 키를 눌러 VBA(Visual Basic) 편집기를 엽니다.
- 삽입(Insert) 메뉴에서 모듈(Module)을 클릭해 새 모듈을 추가합니다.
- 아래 코드를 복사해서 새 모듈에 붙여넣습니다.
' Scrolling Text
Sub Start_Text_Scroll()
My_Value = ActiveSheet.Range("C4").Value
Final_Value = WorksheetFunction.Rept(My_Value, 1)
Do
For initial = 1 To Len(Final_Value)
Length = Len(Final_Value) - 1
DoEvents
For AA = 1 To 10000000
AA = AA + 1
Next
Range("B6") = Mid(Final_Value, initial, Length) & Left(Final_Value, initial - 1)
Next
Loop
End Sub
Sub Stop_Scrolling()
End
End Sub
💡 코드 작동 원리
- Start_Text_Scroll 프로시저는 셀 C4에 입력된 텍스트를 스크롤합니다.
- 텍스트가 좌우로 이동하는 반복문(loop)을 생성합니다.
- AA 값을 조정하면 스크롤 속도를 자유롭게 변경할 수 있습니다.
- 스크롤을 멈추려면 Stop_Scrolling 프로시저를 실행하세요.
- 스크롤 시작·정지 버튼을 만듭니다.
- 삽입(Insert) 탭에서 도형(예: 사각형)을 삽입합니다.
-
- 첫 번째 도형 안에 “스크롤 시작”이라고 입력합니다.
-
- 해당 도형에 Start_Text_Scroll 매크로를 할당합니다.
-
- 확인(OK)을 클릭합니다.
-
- “스크롤 정지” 버튼도 같은 방법으로 만들고 Stop_Scrolling 매크로를 연결합니다.
- 버튼을 클릭하면 텍스트 메시지의 스크롤을 시작하거나 중지할 수 있습니다.
방법 2 – 깜빡이는 텍스트 애니메이션
- 텍스트 상자 그리기
- 삽입(Insert) 탭으로 이동한 후 텍스트(Text)를 선택하고 텍스트 상자(Text Box)를 클릭합니다.
-
- 원하는 크기의 텍스트 상자를 그립니다.
-
- 깜빡이게 만들고 싶은 텍스트를 입력합니다.
- 빈 텍스트 상자 추가
- 비슷한 크기와 형태의 텍스트 상자를 여러 개 더 만듭니다.
- 텍스트 상자 이름 바꾸기
- 텍스트 상자 이름을 TextBox 1, TextBox 2 등 순서대로 변경합니다.
- 텍스트 상자 겹치기
- 모든 텍스트 상자를 하나의 상자처럼 보이도록 서로 겹쳐 배치합니다.
- VBA 코드 입력
- Alt+F11 키를 눌러 VBA 편집기를 엽니다.
- 새 모듈을 삽입합니다(삽입 > 모듈).
- 다음 코드를 입력합니다.
Sub Blink()
On Error GoTo skip
Do While Range("B4").Value = "Blink"
For txtbx = 1 To 5
ActiveSheet.Shapes("TextBox " & txtbx).ZOrder msoBringToFront
DoEvents
Next txtbx
Loop
skip:
ActiveSheet.Shapes("TextBox 1").ZOrder msoBringToFront
Exit Sub
End Sub
💡 코드 작동 원리
- Blink 프로시저는 ZOrder 명령을 사용해 텍스트 상자를 TextBox 1부터 TextBox 5까지 차례대로 맨 앞으로 가져옵니다.
- 오류 처리 코드 덕분에 문제가 발생해도 첫 번째 텍스트 상자가 항상 화면에 유지됩니다.
- 워크시트 코드 입력
- 워크시트 코드 창에 아래 내용을 입력합니다.
Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub
💡 코드 작동 원리
- 셀 B4에 값이 입력되면 엑셀이 자동으로 Blink 모듈을 호출해 애니메이션을 실행합니다.
꼭 기억해야 할 핵심 포인트
- 두 번째 방법에서는 부드러운 애니메이션 효과를 위해 텍스트 상자의 이름 변경과 정렬 작업을 정확하게 수행해야 합니다.
연습용 워크북 다운로드
아래에서 연습용 워크북을 무료로 다운로드할 수 있습니다.
함께 보면 좋은 관련 글
- 엑셀로 애니메이션 막대 차트 경주(Bar Chart Race) 만드는 방법
- 엑셀에서 애니메이션 차트 만드는 방법
- UserForm에서 VBA 애니메이션 활용하기
무료 고급 엑셀 실습 문제와 해답을 지금 받아보세요!