Cách tạo chữ nhấp nháy trên Excel

Với những người làm việc chuyên sâu với Excel, ngoài các hàm Excel nâng cao thì còn dùng tới VBA, ngôn ngữ lập trình trên Excel. VBA trên Excel là viết tắt của Visual Basic for Application. Chúng ta sử dụng ngôn ngữ lập trình VBA để viết macro. Macro là các chương trình hoàn chỉnh thực hiện tự động các lệnh mà bạn đã viết ra. Và nếu bạn muốn tạo hiệu ứng chữ nhấp nháy trên Excel thì cần phải sử dụng tới VBA này.

Với hiệu ứng này chúng ta có thể làm nổi bật nội dung nào đó trong bảng dữ liệu trên Excel tới người đọc. Đặc biệt, người dùng có thể thay đổi màu chữ nhấp nháy thông qua đoạn mã code. Bài viết dưới đây sẽ hướng dẫn bạn đọc cách tạo chữ nhấp nháy trên Excel.

• Cách phá mật khẩu VBA trong Excel
• Cách gửi email từ bảng tính Excel bằng tập lệnh VBA
• 10 cách khôi phục tập tin Excel bị lỗi
• Quên mật khẩu bảo vệ của file Excel, bạn phải làm gì?

Hướng dẫn tạo chữ nhấp nháy trên Excel

Bước 1:

Bạn mở file Excel rồi nhấn tổ hợp phím Alt + F11 để mở trình code VBA của Excel lên.

Tại giao diện hộp thoại Microsoft Visual Basic for Applications người dùng nhấn vào Insert rồi chọn Module như hình bên dưới.

Bước 2:

Hiển thị giao diện Moude để bạn dán mã code bên dưới vào giao diện.

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

Lưu ý bạn nên copy đoạn mã code trên vào Notepad rồi tiến hành chỉnh sửa lại Vị trí của ô và Sheet làm việc chính là vị trí của dòng chữ mà bạn muốn tạo hiệu ứng nhập nháy. Trong hình chữ được viết tại ô A1 và ở Sheet 1. Người dùng có thể nhập bất kỳ ô và Sheet nào mà mình muốn.

Nhấn Alt + Q để tắt hộp thoại.

Bước 3:

Tại đúng vị trí ô và Sheet trong đoạn mã mà bạn đã lập, nhập nội dung muốn tạo hiệu ứng nhấp nháy trên Excel.

Nhấn tiếp vào tab Developer rồi chọn mục Insert bên dưới và click vào biểu tượng Button (Form control).

Bước 4:

Kẻ một ô vuông bất kỳ trong giao diện Excel để làm nút kích hoạt hiệu ứng nhấp nháy cho chữ.

Ngay khi thả chuột sẽ hiển thị giao diện hộp thoại Assign Macro. Tại đây người dùng sẽ cần lựa chọn 2 mục gồm:

• Macro name: Bạn chọn StartBlink.
• Macros in: Nhấn chọn vào This Worknook trong danh sách.

Nhấn OK để lưu lại thiết lập.

Bước 5:

Để thay đổi nội dung chữ trong khung mới kẻ, click chuột phải rồi chọn Edit Text.

Nhập bất kỳ nội dung nào mà bạn muốn vào trong khung này và nhấn Enter để lưu lại. Nếu muốn người dùng vẫn có thể thay đổi font chữ, kích cỡ chữ cho nút Button này nhé.

Kết quả cuối cùng khi nhấn vào nút đó thì dòng chữ sẽ tự động nhấp nháy theo màu sắc mà chúng ta đã thiết lập trong mã code, ở đây là màu đỏ và màu trắng.

Trong trường hợp muốn chữ nhấp nháy từ màu xanh sang màu đỏ, click vào tab Developer và chọn Visual Basic.

Tiếp đến thay đổi từ màu trắng (White) sang màu xanh (Blue) trong đoạn code như hình dưới đây. Cũng nhấn Alt + Q để lưu lại đoạn mã code mới này.

Kết quả chữ sẽ nhấp nháy từ màu đỏ sang màu xanh.

Thông qua VBA trên Excel, bạn đã có thêm cách tạo nổi bật cho nội dung trong dữ liệu với hiệu ứng nhấp nháy tự động. Lưu ý chúng ta cần nhập đúng đoạn mã code, đặc biệt các dấu ngoặc trong đoạn mã, tránh báo lỗi sau khi áp dụng mã code.

Video tạo chữ nhấp nháy tự động trên Excel

Chúc các bạn thực hiện thành công!