Andrew biết cách thay đổi màu của các tab trang tính theo cách thủ công.

Tuy nhiên, anh ấy muốn có một cách để thay đổi màu tab dựa trên một giá trị trong một ô trên trang tính.

Để làm điều này, bạn sẽ cần sử dụng macro. Điều quan trọng là bạn muốn thay đổi thuộc tính Màu của đối tượng Tab, theo cách này:

ActiveSheet.Tab.Color = vbRed

Logic bạn sử dụng để đi đến điểm thực hiện một nhiệm vụ màu sắc như vậy phụ thuộc vào những gì bạn muốn làm và thời điểm bạn muốn thực hiện. Giả sử rằng bạn muốn thay đổi màu tab dựa trên những gì có trong ô A1, bạn có thể sử dụng macro như sau:

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab         Select Case MyVal             Case "0"

.Color = vbBlack             Case "1"

.Color = vbRed             Case "2"

.Color = vbGreen             Case "3"

.Color = vbYellow             Case "4"

.Color = vbBlue             Case "5"

.Color = vbMagenta             Case "6"

.Color = vbCyan             Case "7"

.Color = vbWhite             Case Else                 .ColorIndex = xlColorIndexNone         End Select     End With End Sub

Bạn cần thêm macro vào mã cho trang tính có tab bạn muốn sửa đổi. (Bấm chuột phải vào tab của trang tính và chọn Mã Chế độ xem từ menu Ngữ cảnh. Dán mã vào cửa sổ mã đó.) Macro lấy bất kỳ thứ gì có trong ô A1 và sau đó sử dụng cấu trúc Chọn Trường hợp để thay đổi màu của tab. Logic thay đổi màu nếu A1 chứa từ 0 đến 7. Nếu có bất kỳ thứ gì khác ở đó (hoặc không có gì cả), thì thuộc tính ColorIndex được sử dụng để đặt màu tab trở lại mặc định.

Macro có thể được sửa đổi để những gì nó kiểm tra là một chuỗi văn bản (chẳng hạn như “Đen”, “Đỏ”, v.v.) hoặc một số từ khóa (chẳng hạn như “Thấp” hoặc “Cao”). Bạn cũng có thể sử dụng các ký hiệu màu khác nhau với thuộc tính Màu, chẳng hạn như chức năng RGB:

.Color = RGB(255, 0, 0)

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (13138) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.