Để làm ấn tượng File Excel, ta có thể tạo chữ nhấp nháy cực hay với VBA như sau:
Bước 1: Để tạo chữ nhấp nháy, đầu tiên các bạn cần mở file Excel cần tạo chữ nhấp nháy lên. Sau đó các bạn chọn thẻ Developer trên thanh công cụ. Tiếp theo các bạn chọn Visual Basic tại mục Code. Hoặc các bạn cũng có thể sử dụng tổ hợp phím tắt Alt + F11 để mở cửa sổ VBA.
Bước 2: Lúc này, cửa sổ VBA hiện ra. Các bạn chọn thẻ Insert => Module.
Bước 3: Tiếp theo, các bạn sao chép đoạn code dưới đây vào hộp thoại Module.
Sub StartBlink()
Dim xCell As Range
Dim xTime As Variant
Set xCell = Range("A1")
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
End With
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Trong đó A1 là vị trí ô bạn muốn tạo chữ nhấp nháy, Sheet1 là trang tính mà bạn muốn tạo chữ. Các bạn có thể thay đổi đối số này tùy thuộc vào vị trí mà bạn muốn tạo chữ nhấp nháy.
Bước 4: Bây giờ quay lại trang tính, các bạn nhập nội dung vào ô A1. Sau đó chọn thẻ Developer trên thanh công cụ => Insert => biểu tượng của Button.
Bước 5: Lúc này, hộp thoại Assign Macro hiện ra.
Tại mục Macro name các bạn chọn StartBlink và tại mục Macros in các bạn chọn This Workbook.
Bước 6: Quay lại trang tính, các bạn nhấn và kéo chuột trái để tại nút bấm rồi nhấn chuột phải vào nút rồi và chọn Edit Text để chỉnh sửa nội dung bên trong.
Bước 7: Chỉ cần như vậy là ta đã tạo xong nút nhấn Bắt đầu/Tạm dừng nhấp nháy. Chỉ cần nhấn vào nút này là chữ trong ô A1 sẽ nhấp nháy hoặc tạm dừng.
Bước 8: Các bạn còn có thể chỉnh màu nhấp nháy bằng cách nhấn Alt + F11. Sau đó các bạn có thể chỉnh màu nhấp nháy tại mục vbRed và vbGreen trong đoạn code. Các bạn chỉ cần nhập màu mà mình muốn vào đây là được.
Như vậy, bài viết trên đã hướng dẫn các bạn cách tạo chữ nhấp nháy trong Excel. Hy vọng bài viết sẽ hữu ích với các bạn trong quá trình làm việc. Chúc các bạn thành công!
