Tô màu cho Cell (1 người xem)

[cuonghoa176]

Trong 1 cột (D), làm sao để khi chuyển sang cell khác thì cell trước đó được tô màu (vàng) Mục đích, ô đó đã được kiểm tra...

 

[Hoàng Trọng Nghĩa]

Trong 1 cột (D), làm sao để khi chuyển sang cell khác thì cell trước đó được tô màu (vàng) Mục đích, ô đó đã được kiểm tra...

Tại sheet nào bạn muốn thực hiện việc này thì copy vào Module của Sheet đó sự kiện dưới đây:

Option Explicit
Private OldCells As Range


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    OldCells.Interior.Color = 65535
    Set OldCells = Target
End Sub

 

[Hoàng Trọng Nghĩa]

Nhưng cũng khá nguy hiểm khi sau đó mình muốn gỡ bỏ màu (No fill). Cho nên ta chỉ nên dùng cho 1 cell khi chọn mà thôi:

Option Explicit
Private OldCells As Range


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Count = 1 Then
        OldCells.Interior.Color = 65535
        Set OldCells = Target
    End If
End Sub

Vã lại bạn cũng nên chọn vùng nào đó giới hạn sử dụng việc tô màu này. Chẳng hạn:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Range("B2:K16"), Target) Is Nothing Then
        If OldCells.Interior.Color <> 65535 Then
            OldCells.Interior.Color = 65535
        End If
    Else
        If Target.Count = 1 Then
            OldCells.Interior.Color = 65535
            Set OldCells = Target
        End If
    End If
End Sub

 

[Ngoai Thanh]

Bạn thử file xem đúng ý bạn không nhé? muốn không tô màu nữa xóa chữ A tại A1

 

[cuonghoa176]

Quá đúng ý rồi nhưng chỉ tội không hoàn tác (Undo) được. Chẳng may bấm lung tung là thành ..bức tranh ngay. Bác có cách nào khắc phục không?

 

[Ngoai Thanh]

Quá đúng ý rồi nhưng chỉ tội không hoàn tác (Undo) được. Chẳng may bấm lung tung là thành ..bức tranh ngay. Bác có cách nào khắc phục không?

Thi bạn chọn ô hoặc vùng cần hoàn tác chọn bảng màu và chọn No fill