Thay đổi màu hàng khi di chuyển

[bun_bo_hue]

Chào các bác,

Mình có đoạn code sau, dùng để tô màu nguyên 1 hàng (nếu nằm trong vùng được chọn). Mình chỉ muốn khi di chuyển thì hàng mới sẽ được tô màu, còn hàng cũ sẽ được khôi phục lại màu cũ (hoặc không tô màu). Mình không bít excel có sự kiện/hàm nào lưu lại giá trị cell cũ mỗi khi cell được di chuyển không ? Mong các bác chỉ giúp ạ.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myrange As Range
On Error Resume Next
    Set myrange = Intersect(Optimise.Range("Optimise_Address"), Target)
    'neu trong vung duoc chon
    If (Not myrange Is Nothing) Then
        Optimise.Rows(Target.Row & ":" & Target.Row).Interior.Color = 65535
        'Optimise.Rows(Target.Row & ":" & Target.Row).Font.Color = -16776961
    End If    
End Sub

@!^%

 

[levanduyet]

Chào bạn,

Bạn xem ở đây.

Lê Văn Duyệt

 

[bun_bo_hue]

Cám ơn bác vì đã góp ý. Mình đã test thử, họat động tốt như yêu cầu của mình nhưng có điều hơi chậm. Do file của mình phải xử lý 1 lượng dữ liệu rất lớn (khoảng 100MB) nên sử dụng theo cách này là kô ổn (vì mỗi lần di chuyển SHEET lại Calculate).