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

Sử dụng ngôn ngữ lập trình VBA

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.

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.

Nhấn Module

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.

Nhập đoạn mã code

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ập nội dung 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).

Biểu tượng Button

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ữ.

Kẻ khung

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.

Thiết lập Macro

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.

Thay đổi nội dung chữ

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é.

Nội dung mới

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.

Nhấp nháy chữ

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.

Thay đổi đoạn code

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.

Đổi màu sắc

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

Chuyển màu chữ

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!

Thứ Bảy, 02/03/2019 11:50
3,33 👨 2.441