Làm thế nào để thay đổi màu hình dạng dựa trên giá trị ô trong Excel?
Thay đổi màu hình dạng dựa trên một giá trị ô cụ thể có thể là một nhiệm vụ thú vị trong Excel, ví dụ: nếu giá trị ô trong A1 nhỏ hơn 100, màu hình dạng là màu đỏ, nếu A1 lớn hơn 100 và nhỏ hơn 200, màu hình dạng là màu vàng và khi A1 lớn hơn 200, màu hình dạng là màu xanh lục như hình minh họa sau. Để thay đổi màu sắc của hình dạng dựa trên giá trị ô, bài viết này sẽ giới thiệu phương pháp cho bạn.
Thay đổi màu hình dạng dựa trên giá trị ô với mã VBA
Thay đổi màu hình dạng dựa trên giá trị ô với mã VBA
Mã VBA dưới đây có thể giúp bạn thay đổi màu hình dạng dựa trên giá trị ô, vui lòng thực hiện như sau:
1. Bấm chuột phải vào tab trang tính mà bạn muốn thay đổi màu hình dạng, sau đó chọn Mã Chế độ xem từ menu ngữ cảnh, trong cửa sổ bật ra Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán đoạn mã sau vào chỗ trống Mô-đun cửa sổ.
Mã VBA: Thay đổi màu hình dạng dựa trên giá trị ô:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Và sau đó khi bạn nhập giá trị vào ô A1, màu hình dạng sẽ được thay đổi với giá trị ô như bạn đã xác định.
Chú thích: Trong đoạn mã trên, A1 là giá trị ô mà màu hình dạng của bạn sẽ được thay đổi dựa trên, và Hình bầu dục 1 là tên hình dạng của hình dạng đã chèn của bạn, bạn có thể thay đổi chúng theo nhu cầu của mình.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!