방법 1 – 스크롤링 텍스트 애니메이션
- Visual Basic 창 열기 Alt+F11을 눌러 .
- 삽입으로 이동하여 새 모듈을 삽입하세요. 모듈을 클릭합니다. .
- 다음 코드를 복사하여 새 모듈에 붙여넣으세요.
' 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 셀에 저장된 텍스트를 스크롤합니다. .
- 루프를 생성합니다. 텍스트가 왼쪽에서 오른쪽으로 이동합니다.
- AA 값을 변경하여 속도를 조정하세요. .
- 스크롤을 중지하려면 Stop_Scrolling을 사용하세요. 서브루틴.
- 스크롤 시작 및 중지 버튼 추가:
- 삽입에서 도형(예:직사각형)을 삽입합니다. 탭.
- 스크롤 시작 입력 하나의 도형 안에.
- Start_Text_Scroll 할당 이 모양에 매크로를 추가하세요.
- 확인을 클릭하세요. .
- 스크롤 중지를 위해 반복합니다. 버튼을 누르세요.
- 문자 메시지 스크롤을 시작하고 중지하려면 버튼을 사용하세요.
방법 2 - 애니메이션 텍스트 깜박임
- 텍스트 상자 그리기
- 삽입으로 이동 탭을 클릭하고 텍스트 를 선택하세요. 텍스트 상자를 클릭하세요. .
- 텍스트 상자 그리기 원하는 크기로 선택하세요.
- 텍스트를 입력하세요. 깜박이게 하고 싶어요.
- 빈 텍스트 상자 추가
- 비슷한 모양과 크기의 추가 텍스트 상자를 만듭니다.
- 텍스트 상자 이름 바꾸기
- 다음과 같이 텍스트 상자 이름을 바꿉니다. TextBox 1 , 텍스트 상자 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
️ 코드는 어떻게 작동하나요?
- 깜박임 서브루틴은 텍스트 상자를 하나씩 앞으로 가져옵니다(TextBox에서). 1 TextBox 5로 ) ZOrder 사용 명령.
- 오류 처리를 통해 첫 번째 텍스트 상자가 계속 표시됩니다.
- 워크시트 코드
- 워크시트 코드에 다음을 입력하세요.
Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub
️ 코드는 어떻게 작동하나요?
- B4 셀에 데이터가 삽입되는 경우 , Excel에서는 Blink 를 호출합니다. 모듈.
기억할 사항
- 두 번째 방법에서는 부드러운 애니메이션을 위해 텍스트 상자의 이름을 올바르게 바꾸고 텍스트 상자를 정렬해야 합니다.
연습 문제집 다운로드
여기에서 연습 문제집을 다운로드할 수 있습니다:
관련 기사
- Excel에서 애니메이션 막대 차트 경주를 만드는 방법
- Excel에서 애니메이션 차트를 만드는 방법
- UserForm의 VBA 애니메이션