Hoạt hình văn bản chính trong Excel:Hai phương pháp đã được chứng minh

Phương pháp 1 – Hoạt hình văn bản cuộn

• Mở Cửa sổ Visual Basic bằng cách nhấn Alt+F11 .
• Chèn mô-đun mới bằng cách đi tới Chèn và nhấp vào Mô-đun .

• Sao chép đoạn mã sau và dán vào mô-đun mới:

' 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

️ Mã hoạt động như thế nào?

• Start_Text_Scroll chương trình con cuộn văn bản được lưu trong ô C4 .
• Nó tạo ra một vòng lặp làm dịch chuyển văn bản từ trái sang phải.
• Điều chỉnh tốc độ bằng cách thay đổi giá trị của AA .
• Để dừng cuộn, hãy sử dụng Stop_Scrolling  chương trình con.

• Thêm nút bắt đầu và dừng cuộn:
  • Chèn hình dạng (ví dụ:hình chữ nhật) từ Chèn  tab.

• • Nhập Bắt đầu cuộn  bên trong một hình dạng.

• • Gán Start_Text_Scroll macro cho hình này.

• • Nhấp vào OK .

• • Lặp lại để Dừng cuộn  nút.

• Sử dụng các nút để bắt đầu và dừng cuộn Tin nhắn văn bản.

Phương pháp 2 – Văn bản hoạt hình nhấp nháy

• Vẽ hộp văn bản
  • Chuyển đến phần Chèn  và chọn Văn bản và nhấp vào Hộp văn bản .

• • Vẽ một hộp văn bản có kích thước ưa thích của bạn.

• • Nhập văn bản bạn muốn chớp mắt.

• Thêm hộp văn bản trống
  • Tạo các hộp văn bản bổ sung có hình dạng và kích thước tương tự.

• Đổi tên hộp văn bản
  • Đổi tên các hộp văn bản như sau:TextBox 1 , Hộp văn bản 2 , v.v.

• Hộp văn bản lớp phủ
  • Sắp xếp tất cả các hộp văn bản sao cho chúng chồng lên nhau và xuất hiện dưới dạng một hộp duy nhất.

• Mã VBA
  • Mở trình soạn thảo VBA bằng cách nhấn Alt+F11 .
  • Chèn mô-đun mới (Chèn> Mô-đun ).

• Nhập mã sau:

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

️ Mã hoạt động như thế nào?

• Chớp mắt chương trình con đưa từng hộp văn bản lên trước (từ TextBox 1 tới Hộp văn bản 5 ) bằng cách sử dụng ZOrder lệnh.
• Xử lý lỗi đảm bảo rằng hộp văn bản đầu tiên vẫn hiển thị.

• Mã bảng tính
  • Trong mã bảng tính, nhập:

Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub

️ Mã hoạt động như thế nào?

• Khi dữ liệu được chèn vào ô B4 , Excel gọi Blink mô-đun.

Những điều cần nhớ

• Ở cách 2, nhớ đổi tên và căn chỉnh chính xác các hộp văn bản để hoạt ảnh mượt mà

Tải xuống sổ tay thực hành

Bạn có thể tải sách bài tập thực hành xuống tại đây:

Bài viết liên quan

• Cách tạo cuộc đua biểu đồ thanh hoạt hình trong Excel
• Cách tạo biểu đồ động trong Excel
• Hoạt ảnh VBA trong UserForm