Tô màu dòng khi làm việc đến (1 người xem)

[trungtran.tphcm]

Mình là nhân viên thống kê cho nên số liệu rất nhiều , rất khó nhìn
, mình muốn khi mình đặt con trỏ đến dòng nào thì dòng đó sẽ đổi màu (để dể phân biệt ) . Các bạn có cách nào không vậy ? giúp mình với ! Thank you

 

[dongducnhiem]

Mình là nhân viên thống kê cho nên số liệu rất nhiều , rất khó nhìn
, mình muốn khi mình đặt con trỏ đến dòng nào thì dòng đó sẽ đổi màu (để dể phân biệt ) . Các bạn có cách nào không vậy ? giúp mình với ! Thank you

Lưu ý: Dùng code này nó sẽ xóa những cell Tô màu = tay của bạn
Nhớ Enable Macros khi mởfile

 

[seishirou_sama]

cho mình hỏi là mình muốn ứng dụng cái này vào các sheet của mình thì làm thế nào vậy bạn

 

[dongducnhiem]

cho mình hỏi là mình muốn ứng dụng cái này vào các sheet của mình thì làm thế nào vậy bạn

Mở File ở bài #2 và File của bạn
Bấm Alt+F11, Trong khung Project - VBAProject
Bấm vào VBAProject (ToMau.xls), chọn Sheet1, Bên khung bên fải hiện code, copy code này và paste vào sheet nào bạn muốn trong File của bạn

 

[seishirou_sama]

Mở File ở bài #2 và File của bạn
Bấm Alt+F11, Trong khung Project - VBAProject
Bấm vào VBAProject (ToMau.xls), chọn Sheet1, Bên khung bên fải hiện code, copy code này và paste vào sheet nào bạn muốn trong File của bạn

Mình làm được rồi, cám ơn bạn nha

 

[ruacodon]

Mình là nhân viên thống kê cho nên số liệu rất nhiều , rất khó nhìn
, mình muốn khi mình đặt con trỏ đến dòng nào thì dòng đó sẽ đổi màu (để dể phân biệt ) . Các bạn có cách nào không vậy ? giúp mình với ! Thank you

Các bạn làm sao hay vậy, mình thử mãi mà không được.help

 

[trungtran.tphcm]

bạn làm sao hay vậy , mình làm mãi ko đươc , bấm Alt+F11 ko thấy thay đổi gì hết , chỉ mình với !

 

[lucchinh]

Hi all, muốn tạo macro cho TOMAU thi lam sao, ban post file - khuyen mai thêm cach tao macro luon nhe, thanks.

 

[vanle33]

Hi all, muốn tạo macro cho TOMAU thi lam sao, ban post file - khuyen mai thêm cach tao macro luon nhe, thanks.

Là sao nhỉ??
Code chạy bình thường mà
Đây là Code sau khi nhấn Alt+F11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Rows.Interior.ColorIndex = xlColorIndexNone
Target.EntireColumn.Interior.ColorIndex = 3
Target.EntireRow.Interior.ColorIndex = 3
Application.ScreenUpdating = True
End Sub

Bạn muốn tìm hiểu thì nghiên cưu thêm