Sửa giùm em đoạn code này với (1 người xem)

[donhungtin2013]

Em dùng đoạn code này để di chuyển con trỏ khi nhập liệu:

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 6
End Sub

Tuy nhiên đoạn code này có hạn chế là nó sẽ xoá hết các highlight mà nó đi qua, vậy có cách nào khắc phục hạn chế này không hay có đoạn code nào hay hơn để thay thế đoạn code này không ạ? Nhờ anh em diễn đàn giúp em với. Em cảm ơn nhiều.

 

[Let'GâuGâu]

Em dùng đoạn code này để di chuyển con trỏ khi nhập liệu:

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 6
End Sub

Tuy nhiên đoạn code này có hạn chế là nó sẽ xoá hết các highlight mà nó đi qua, vậy có cách nào khắc phục hạn chế này không hay có đoạn code nào hay hơn để thay thế đoạn code này không ạ? Nhờ anh em diễn đàn giúp em với. Em cảm ơn nhiều.

cái này nó đỏ màu nền mà? sao lại dùng di chuyển chuột? bạn muốn làm cái gì vậy?

 

[donhungtin2013]

cái này nó đỏ màu nền mà? sao lại dùng di chuyển chuột? bạn muốn làm cái gì vậy?

Dạ ý em là cái đoạn code này khi nó đi đến đâu nó xoá hết highlight đến đó, em vừa muốn sử dụng nó vừa không muốn nó xoá các highlight trước của mình. Vậy phải làm sao anh?

 

[phulien1902]

Dạ ý em là cái đoạn code này khi nó đi đến đâu nó xoá hết highlight đến đó, em vừa muốn sử dụng nó vừa không muốn nó xoá các highlight trước của mình. Vậy phải làm sao anh?

Bạn tham khảo Code dưới đây:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    For i = 1 To Range("A" & Rows.Count).End(3).Row
        If Cells(i, "N") = 1 Then Rows(i).Interior.ColorIndex = 6
            If Cells(i, "N") = 2 Then Rows(i).Interior.ColorIndex = 8
    Next i
End Sub

 

[dovanhoc84]

Dạ ý em là cái đoạn code này khi nó đi đến đâu nó xoá hết highlight đến đó, em vừa muốn sử dụng nó vừa không muốn nó xoá các highlight trước của mình. Vậy phải làm sao anh?

Bạn bỏ dòng "Cells.Interior.ColorIndex = xlNone" đi là xong

Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cells.Interior.ColorIndex = xlNone ' Tôi chỉ bỏ dòng này là như ý bạn luôn
Rows(Target.Row).Interior.ColorIndex = 6
End Sub

 

[dovanhoc84]

Bạn tham khảo Code dưới đây:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    For i = 1 To Range("A" & Rows.Count).End(3).Row
        If Cells(i, "N") = 1 Then Rows(i).Interior.ColorIndex = 6
            If Cells(i, "N") = 2 Then Rows(i).Interior.ColorIndex = 8
    Next i
End Sub

ý bạn kia là con trỏ chuột pick chọn đâu thì row sang vàng.
khi pick sang row khác thì row cũ vẫn nguyên trạng màu vàng(?)

Nếu làm như bạn lại mất công nhập liệu vào cột N