Làm cách nào để thay đổi màu tab trang tính dựa trên giá trị ô?

Thông thường, bạn có thể thay đổi màu tab dễ dàng và nhanh chóng trong Excel, nhưng bạn đã bao giờ thử thay đổi màu tab dựa trên giá trị ô trong trang tính chưa? Nếu bạn đang thực hiện nhiệm vụ này, tôi sẽ nói về một số mã để bạn tô màu tab trang tính dựa trên một giá trị ô cụ thể trong Excel.

Thay đổi màu tab một trang tính dựa trên giá trị ô với mã VBA

Thay đổi nhiều tab trang tính dựa trên giá trị ô bằng mã VBA

Thay đổi màu tab một trang tính dựa trên giá trị ô với mã VBA

Ví dụ: tôi muốn màu tab trang tính hiện tại sẽ là màu xanh lục nếu giá trị ô trong A1 là văn bản “TRUE”, màu tab sẽ là màu đỏ nếu văn bản trong A1 là “FALSE” và màu tab sẽ là màu xanh lam nếu giá trị trong ô A1 là bất kỳ văn bản nào khác như ảnh chụp màn hình sau:

1. Bấm chuột phải vào tab trang tính mà bạn muốn thay đổi màu của nó dựa trên dữ liệu trong ô A1, rồi chọn Mã Chế độ xem từ trình đơn ngữ cảnh.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã VBA bên dưới vào Mô-đun cửa sổ.

Mã VBA: Thay đổi màu tab một trang tính dựa trên giá trị ô:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

Lưu ý: Trong đoạn mã trên, A1 là tham chiếu ô mà bạn muốn tô màu tab dựa trên, “Thật","Sai”Là văn bản bạn cần, bạn có thể thay đổi chúng theo nhu cầu của bạn và bạn có thể thay đổi màu sắc trong mã khi bạn cần.

3. Sau đó, lưu và đóng cửa sổ mã này, bây giờ, khi bạn nhập văn bản “Đúng” vào ô A1, màu tab hiện tại sẽ trở thành màu xanh lục và khi bạn nhập văn bản “Sai” vào ô A1, màu tab sẽ trở thành màu đỏ, và nếu văn bản khác được nhập vào ô A1, màu tab sẽ tự động trở thành màu xanh lam.

Thay đổi nhiều tab trang tính dựa trên giá trị ô bằng mã VBA

Nếu bạn cần thay đổi màu nhiều tab trang tính dựa trên một giá trị ô, đây cũng là một mã có thể giúp bạn, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ, trong cửa sổ đã mở, nhấp đúp vào Sổ làm việc này theo dự án VBA , sau đó sao chép và dán đoạn mã dưới đây vào chỗ trống Mô-đun:

Mã VBA: Thay đổi nhiều tab trang tính dựa trên giá trị ô:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

Lưu ý: Trong đoạn mã trên, A1 và Master là ô và trang tính mà bạn muốn tô màu cho tab dựa trên, Sheet1, Sheet2, Sheet3 là các trang tính mà bạn muốn tô màu cho các tab. KTE, Ktw., WHO là các giá trị ô trong A1 mà bạn muốn tô màu các tab dựa trên đó, bạn có thể thay đổi các tham chiếu và màu sắc trong mã khi bạn cần.

2. Sau đó lưu và đóng cửa sổ mã này lại, bây giờ, khi bạn nhập văn bản KTE vào ô A1 của Trang tính chính, tab Trang tính1 sẽ có màu đỏ, khi bạn nhập KTO vào ô A1, Trang tính2 sẽ có màu xanh lục và khi bạn nhập KTW vào ô A1, Sheet3 sẽ có màu xanh lam, xem ảnh chụp màn hình: