này bằng những màu khác cho dễ nhìn ?

Để làm được việc này bạn phải dùng  macro nhỏ cho từng Sheet muốn đặt vì trong Excel không có chỗ nào thiết lập phần này

Mở Excel , bấm tổ hợp phím Alt_F11 để vào cửa sổ Microsoft Visual Basic

Bấm menu View chọn Project Explorer

Ví dụ bạn muốn tạo mầu cho những ô khi bấm chuột trong Sheet 1 thì bấm đúp vào Sheet 1 tương ứng , sau đó dán nội dung bên dưới

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim v As Variant

v = Array(xlEdgeBottom, xlEdgeTop, xlEdgeRight, xlEdgeLeft)

For Each r In ActiveSheet.UsedRange

With r

For i = 0 To 3

.Borders(v(i)).LineStyle = xlNone

Next

End With

Next

For i = 0 To 3

With ActiveCell.Borders(v(i))

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = 4

End With

Next

End Sub

Bạn có thể đổi màu trong mục ColorIndex từ 4 sang những màu khác nhau theo số

Quay trở lại Excel trong Sheet 1 khi ấy bạn sẽ thấy đường viền màu tại những ô bạn bấm chuột

Bạn cũng có thể làm theo cách trên những với đoạn mã VB khác để đổ màu những ô bạn sử dụng bằng đoạn mã bên dưới

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.FormatConditions.Delete

With Target

.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

.FormatConditions(1).Interior.ColorIndex = 24 '35

End With

End Sub