Dùng Conditional Formating thì đúng rồi nhưng không phải đơn giản như bạn nghĩ đâu ---> Có công thức mới tô, gõ dử liệu bình thường thì không!Cái này bạn chỉ có thể tô màu hay chữ theo điều kiện, dùng conditonal formatting. Và bạn có thể tô màu cho ô A1 nếu ô B1<>"", tức là khi ô B1 có giá trị hay có công thức thì sẽ tô màu cho ô A1. CÒn không thể tô màu cho ô A1 khi ô A1 có công thức
Cái này không đơn giản vậy đâu bạn! Đã là một Add-Ins thì phải sử dụng được cho tất cả các workbook nữa kia! Yêu cầu này tưởng chừng đơn giản nhưng thực sự là khó đây.Cái này bạn chỉ có thể tô màu hay chữ theo điều kiện, dùng conditonal formatting. Và bạn có thể tô màu cho ô A1 nếu ô B1<>"", tức là khi ô B1 có giá trị hay có công thức thì sẽ tô màu cho ô A1. CÒn không thể tô màu cho ô A1 khi ô A1 có công thức
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo LoiCT
Const Color_ As Byte = 2
If Target.Formula Like "=" & "*" And Target <> "" Then
If IsNumeric(Target) Then
With Target.Interior
If Abs(Target.Value) < 10 Then
.ColorIndex = 35 + Target.Value
Else
.ColorIndex = Color_ + Int(Log(Target.Value))
End If
End With
Else
Target.Font.ColorIndex = 3 + Color_
End If
End If
Err_: Exit Sub
LoiCT:
Select Case Err
Case 13
Target.Font.ColorIndex = 3
Resume Err_
Case Else
MsgBox Error, , Err
End Select
End Sub
Mình gởi cho các bạn file add-in tự động tô màu ô có công thức. File này cũng giống file trên mình đã gởi, nhưng mình bổ sung thêm form chọn bảng màu, cho phép các bạn chọn màu tô hoặc bỏ không tô màu nữa.
Cách hoạt động cũng giống như cũ, các bạn muốn sheet nào tự động tô màu ô công thức, thì click chuột phải trong sheet, chọn "ColorFormulasCell", sau đó chọn màu muốn tô. Kể từ đó trở đi, khi gõ công thức vào ô, ô sẽ được tự động tô màu. Rất đơn giản.
Mình muốn tô màu ô chứa kết quả đúng - sai