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

Thứ sáu - 15/02/2019 07:23
Để tạo chữ nhấp nháy trên Excel, chúng ta cần dùng tới 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ô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.

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

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

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 2

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.

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 3

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 4

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 5

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.

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 6

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.

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 7

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 8

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.

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 9

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.

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 10

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 11

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

Cách tạo chữ nhấp nháy trên Excel - Ảnh minh hoạ 12

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

Nguồn tin: quantrimang.com

 Từ khóa: ngôn ngữ, nhấp nháy

Tổng số điểm của bài viết là: 0 trong 0 đánh giá

  Ý kiến bạn đọc

Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây