Highlight cho dòng khi di chuyển trỏ chuột đến dòng đó (1 người xem)

[dangphongpro2010]

Chào mọi người,
Cho em hỏi có thể tạo highlight cho 1 dòng khi di chuyển trỏ đến dòng đó, và khi di chuyển trỏ chuột đến dòng khác, thì vị trí cũ sẽ trở lại bình thường như trước (vẫn giữ nguyên cách định dạng cũ) Em xin cảm ơn.

 

[phuyen89]

Chào mọi người,
Cho em hỏi có thể tạo highlight cho 1 dòng khi di chuyển trỏ đến dòng đó, và khi di chuyển trỏ chuột đến dòng khác, thì vị trí cũ sẽ trở lại bình thường như trước (vẫn giữ nguyên cách định dạng cũ) Em xin cảm ơn.

Vẫn có thể làm được theo 2 cách:
Cách 1: Dùng Condition Formatting
Cách 2: Dùng Properties Interior

Bạn nên đưa File cho mọi người giúp sẽ tốt hơn!

 

[Hong.Van]

Chào mọi người,
Cho em hỏi có thể tạo highlight cho 1 dòng khi di chuyển trỏ đến dòng đó, và khi di chuyển trỏ chuột đến dòng khác, thì vị trí cũ sẽ trở lại bình thường như trước (vẫn giữ nguyên cách định dạng cũ) Em xin cảm ơn.

Cái này rất nhiều, bạn tham khảo
http://www.giaiphapexcel.com/forum/...ighLighter-–-Add-Ins-Trợ-giúp-bảng-tính-Excel

 

[befaint]

Gửi bạn file ví dụ. Bạn xem đúng yêu cầu chưa.

 

[dangphongpro2010]

Gửi bạn file ví dụ. Bạn xem đúng yêu cầu chưa.

Hic.hic. nó mất hết màu đã định dạng sẵn trong sheet mình làm rồi, có cách nào giữ nguyên định dạng trước đó ko befiant. Cam on nhieu nhieu.

 

[dangphongpro2010]

Đây là file mẫu của mình. mong mọi người giúp đỡ nhieu nhieu. xin cam on

 

[ho van luong]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
ActiveCell.Interior.ColorIndex = 4
ActiveCell.Offset(-1).Interior.ColorIndex = 0
ActiveCell.Offset(1).Interior.ColorIndex = 0
End Sub

 

[dangphongpro2010]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
ActiveCell.Interior.ColorIndex = 4
ActiveCell.Offset(-1).Interior.ColorIndex = 0
ActiveCell.Offset(1).Interior.ColorIndex = 0
End Sub

Không sử dụng được anh ơi, nó bị dính màu highlight khi di chuyển con trỏ đi chỗ khác..hic

 

[ho van luong]

Xin lỗi nhé! không kiểm tra trước.

 

[Hong.Van]

Hic.hic. nó mất hết màu đã định dạng sẵn trong sheet mình làm rồi, có cách nào giữ nguyên định dạng trước đó ko befiant. Cam on nhieu nhieu.

Vậy thì xem bài này
http://www.giaiphapexcel.com/forum/...code-Hiển-thị-mầu-cho-dòng-có-chứa-ô-hiện-tại

 

[dangphongpro2010]

Vậy thì xem bài này
http://www.giaiphapexcel.com/forum/...code-Hiển-thị-mầu-cho-dòng-có-chứa-ô-hiện-tại

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E2:Z1000]) Is Nothing Then
Target.EntireRow.Select
Target.Activate
End If
End Sub
có thể chỉnh code này bằng màu sắc dc ko bạn, với lại sao mình thấy nó giựt giựt màn hình sao ấy.hi. cam on

 

[bongmaihung]

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E2:Z1000]) Is Nothing Then
Target.EntireRow.Select
Target.Activate
End If
End Sub
có thể chỉnh code này bằng màu sắc dc ko bạn, với lại sao mình thấy nó giựt giựt màn hình sao ấy.hi. cam on

Application.ScreenUpdating = False
Application.ScreenUpdating = True

Sub worksheet_selectionchange(ByVal Target As Range)
    Application.ScreenUpdating = False
        Cells.Interior.ColorIndex = xlNone
        Rows(Target.Row).Interior.ColorIndex = 3
        Target.Interior.ColorIndex = 5
    Application.ScreenUpdating = True
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        If Intersect(Target, [E2:Z1000]) Is Nothing Then Exit Sub
        Cells.Interior.ColorIndex = xlNone
        Rows(Target.Row).Interior.ColorIndex = 3
        Target.Interior.ColorIndex = 3
    Application.ScreenUpdating = True
End Sub

Bạn bổ sung dòng này vào là hết nháy

 

[Quang_Hải]

Đây cũng là 1 cách sưu tầm. Chẳng nhớ nguồn từ đâu

 

[befaint]

Hic.hic. nó mất hết màu đã định dạng sẵn trong sheet mình làm rồi, có cách nào giữ nguyên định dạng trước đó ko befiant. Cam on nhieu nhieu.

Mình sửa lại theo file mẫu của bạn. Bạn kiểm tra nhé.

 

[dangphongpro2010]

Vậy thì xem bài này
http://www.giaiphapexcel.com/forum/...code-Hiển-thị-mầu-cho-dòng-có-chứa-ô-hiện-tại

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E2:Z1000]) Is Nothing Then
Target.EntireRow.Select
Target.Activate
End If
End Sub
Code này mình thấy hợp với sheet của mình, nhưng có thể thay đổi màu khác dc không, với lại mình thấy bản tính cứ giật giật sao ấy.bạn giúp mình nhe.hi. cam on

 

[dangphongpro2010]

Application.ScreenUpdating = False
Application.ScreenUpdating = True

Sub worksheet_selectionchange(ByVal Target As Range)
    Application.ScreenUpdating = False
        Cells.Interior.ColorIndex = xlNone
        Rows(Target.Row).Interior.ColorIndex = 3
        Target.Interior.ColorIndex = 5
    Application.ScreenUpdating = True
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        If Intersect(Target, [E2:Z1000]) Is Nothing Then Exit Sub
        Cells.Interior.ColorIndex = xlNone
        Rows(Target.Row).Interior.ColorIndex = 3
        Target.Interior.ColorIndex = 3
    Application.ScreenUpdating = True
End Sub

Bạn bổ sung dòng này vào là hết nháy

Không dc bạn ơi, sao nó mất lun định dạng ban đầu rồi.hic. Bạn chỉnh lại giúp mình nhe

 

[dangphongpro2010]

Mình sửa lại theo file mẫu của bạn. Bạn kiểm tra nhé.

ko được lun Bạn ơi, mình có đánh dấu định dạng nội dung bên trong nữa, nhưng chạy nó mất hết.hic..Bạn chỉnh lại giúp mình nhe. Cam ơn.

 

[dangphongpro2010]

Đây cũng là 1 cách sưu tầm. Chẳng nhớ nguồn từ đâu

cái code này đúng ý mình rồi..hihi.. cho mình hỏi thêm là nếu mình ko cần trỏ chuột vào ô, mà chỉ rê chuột đi thôi thì vẫn xuất hiện highlight tại dòng đó ko Bạn. Cảm ơn.

 

[KUMI]

cái code này đúng ý mình rồi..hihi.. cho mình hỏi thêm là nếu mình ko cần trỏ chuột vào ô, mà chỉ rê chuột đi thôi thì vẫn xuất hiện highlight tại dòng đó ko Bạn. Cảm ơn.

Bạn xem bài này nhé: http://www.giaiphapexcel.com/forum/...-tạo-hiệu-ứng-trong-Excel&p=527303#post527303

 

[dangphongpro2010]

Bạn xem bài này nhé: http://www.giaiphapexcel.com/forum/...-tạo-hiệu-ứng-trong-Excel&p=527303#post527303

Cái này hay quá.. cho mình hỏi là có thể làm nó giảm chớp chớp đi dc ko Bạn ( file Move_4)..cảm ơn.