Tô màu dòng và cột của ô được chọn (3 người xem)

[Nhattanktnn]

Chào các anh chị và các bạn!
Anh chị và các bạn có Addins, code VBA hoặc phần mềm nào đó tô sáng màu dòng và cột của ô được chọn trong excel thì giúp mình với ạ! (Kiểu highlight cho dễ nhìn khi dữ liệu nhiều rối mắt)
Mình có tìm qua thì addins kutools có chức năng này, mình rất hài lòng nhưng phải mua bản quyền
Còn một số code VBA lại xóa đi màu cũ trước đó (nếu ô cũ tô màu thì nó sẽ mất, hoặc một trường hợp khác lại xóa CF đi)
Mong được giúp đỡ ạ!

 

[huuthang_bd]

Thế kutools làm kiểu gì? GPE có loại dùng shape đó.

 

[Nhattanktnn]

Thế kutools làm kiểu gì?

Nó có mục Reading Layout, mình chọn cái đó là khi để chuột vào ô nào thì nó tự sáng dòng và cột ô đó

GPE có loại dùng shape đó.

Bác có thể cho em cái Link bài viết đó hoặc hướng dẫn em chút xíu về cái này được không?

 

[huuthang_bd]

Nó có mục Reading Layout, mình chọn cái đó là khi để chuột vào ô nào thì nó tự sáng dòng và cột ô đó

Tôi muốn hỏi nó tô sáng bằng cách nào. Vẫn dùng CF nhưng không mất CF của người dùng hay thế nào.

Bác có thể cho em cái Link bài viết đó hoặc hướng dẫn em chút xíu về cái này được không?

Tôi chỉ nhớ là có thôi chứ không có link.

 

[Nhattanktnn]

Tôi muốn hỏi nó tô sáng bằng cách nào. Vẫn dùng CF nhưng không mất CF của người dùng hay thế nào.

Nó đóng gói thành một phần mềm cài đặt vào máy nên em cũng không biết cách thức nó hoạt động thế nào, em chỉ biết là dùng nó thì không mất CF hay màu ban đầu

 

[LamNA]

Chào các anh chị và các bạn!
Anh chị và các bạn có Addins, code VBA hoặc phần mềm nào đó tô sáng màu dòng và cột của ô được chọn trong excel thì giúp mình với ạ! (Kiểu highlight cho dễ nhìn khi dữ liệu nhiều rối mắt)
Mình có tìm qua thì addins kutools có chức năng này, mình rất hài lòng nhưng phải mua bản quyền
Còn một số code VBA lại xóa đi màu cũ trước đó (nếu ô cũ tô màu thì nó sẽ mất, hoặc một trường hợp khác lại xóa CF đi)
Mong được giúp đỡ ạ!

Bạn thử cái này xem đúng ý không?

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 5
Rows(Target.Row).Interior.ColorIndex = 5
Target.Interior.ColorIndex = 27
End Sub

 

[huuthang_bd]

Bạn thử cái này xem đúng ý không?

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 5
Rows(Target.Row).Interior.ColorIndex = 5
Target.Interior.ColorIndex = 27
End Sub

Cái này không mất màu của người dùng à bạn?

 

[Nhattanktnn]

Bạn thử cái này xem đúng ý không?

Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 5
Rows(Target.Row).Interior.ColorIndex = 5
Target.Interior.ColorIndex = 27
End Sub

Cám ơn bạn đã quan tâm, nhưng như mình đã nói

Còn một số code VBA lại xóa đi màu cũ trước đó

Nên code này chưa đáp ứng được mong muốn của mình

 

[chiendich]

Nó có mục Reading Layout, mình chọn cái đó là khi để chuột vào ô nào thì nó tự sáng dòng và cột ô đó
View attachment 241367

Bác có thể cho em cái Link bài viết đó hoặc hướng dẫn em chút xíu về cái này được không?

Thử cái này có đúng không nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = [A2:H100]
  If Not Intersect(champ, Target) Is Nothing Then
    On Error Resume Next
    Shapes("curseurH").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseurH"
    Shapes("curseurV").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1000, 1).Name = "curseurV"
    ActiveSheet.Shapes("curseurH").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurH").Top = ActiveCell.Top + ActiveCell.Height
    Shapes("curseurH").Height = 1
    Shapes("curseurH").Width = champ.Width
    Shapes("curseurH").Left = champ.Left
    ActiveSheet.Shapes("curseurV").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurV").Left = ActiveCell.Left
    Shapes("curseurV").Top = champ.Top
    Shapes("curseurV").Width = 1
    Shapes("curseurV").Height = champ.Height
  Else
    On Error Resume Next
    Shapes("curseurH").Visible = False
    Shapes("curseurV").Visible = False
  End If
End Sub

 

[Nhattanktnn]

Thử cái này có đúng không nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = [A2:H100]
  If Not Intersect(champ, Target) Is Nothing Then
    On Error Resume Next
    Shapes("curseurH").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseurH"
    Shapes("curseurV").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1000, 1).Name = "curseurV"
    ActiveSheet.Shapes("curseurH").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurH").Top = ActiveCell.Top + ActiveCell.Height
    Shapes("curseurH").Height = 1
    Shapes("curseurH").Width = champ.Width
    Shapes("curseurH").Left = champ.Left
    ActiveSheet.Shapes("curseurV").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurV").Left = ActiveCell.Left
    Shapes("curseurV").Top = champ.Top
    Shapes("curseurV").Width = 1
    Shapes("curseurV").Height = champ.Height
  Else
    On Error Resume Next
    Shapes("curseurH").Visible = False
    Shapes("curseurV").Visible = False
  End If
End Sub

File này hay quá, cảm ơn bạn. Qua giờ mình mới online được để trả lời. Để mình thử mở rộng cho toàn bộ sheet xem sao, còn trong code này chỉ giới hạn tới cột H

 

[giaiphap]

Thử cái này có đúng không nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = [A2:H100]
  If Not Intersect(champ, Target) Is Nothing Then
    On Error Resume Next
    Shapes("curseurH").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseurH"
    Shapes("curseurV").Visible = True
    If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1000, 1).Name = "curseurV"
    ActiveSheet.Shapes("curseurH").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurH").Top = ActiveCell.Top + ActiveCell.Height
    Shapes("curseurH").Height = 1
    Shapes("curseurH").Width = champ.Width
    Shapes("curseurH").Left = champ.Left
    ActiveSheet.Shapes("curseurV").Line.ForeColor.RGB = RGB(255, 0, 0)
    Shapes("curseurV").Left = ActiveCell.Left
    Shapes("curseurV").Top = champ.Top
    Shapes("curseurV").Width = 1
    Shapes("curseurV").Height = champ.Height
  Else
    On Error Resume Next
    Shapes("curseurH").Visible = False
    Shapes("curseurV").Visible = False
  End If
End Sub

Cải tiến chút đi anh, chọn ô Fill công thức không được.

 

[Cu Tồ]

Chào các anh chị và các bạn!
Anh chị và các bạn có Addins, code VBA hoặc phần mềm nào đó tô sáng màu dòng và cột của ô được chọn trong excel thì giúp mình với ạ! (Kiểu highlight cho dễ nhìn khi dữ liệu nhiều rối mắt)
Mình có tìm qua thì addins kutools có chức năng này, mình rất hài lòng nhưng phải mua bản quyền
Còn một số code VBA lại xóa đi màu cũ trước đó (nếu ô cũ tô màu thì nó sẽ mất, hoặc một trường hợp khác lại xóa CF đi)
Mong được giúp đỡ ạ!

kingsoft (phần mềm soạn thảo WPS office) có chức năng như bạn đang cần đấy,chỉ là ở thị trường Việt Nam mình thì WPS office ít người dùng hơn so với microsoft office

 

[Nhattanktnn]

kingsoft (phần mềm soạn thảo WPS office) có chức năng như bạn đang cần đấy,chỉ là ở thị trường Việt Nam mình thì WPS office ít người dùng hơn so với microsoft office
View attachment 241420

Mình không muốn thay đổi office bạn à, cảm ơn bạn nhé

 

[Cu Tồ]

Mình không muốn thay đổi office bạn à, cảm ơn bạn nhé

Hihi mình cũng đoán thế vì ở Việt Nam mình đa phần dùng ms office quen rồi mà

 

[Nhattanktnn]

Hihi mình cũng đoán thế vì ở Việt Nam mình đa phần dùng ms office quen rồi mà

Với lại wps office này hàng của ai bạn biết rồi đó

 

[Cu Tồ]

Với lại wps office này hàng của ai bạn biết rồi đó

hihi cũng là một phần nguyên nhân đấy. nhưng mình thấy thị trường ở trung quốc dùng khá nhiều,mình cũng không am hiểu sâu rộng nên cũng chưa biết nó có ưu nhược điểm gì so với ms office.nhưng mình có dùng qua thì thấy chức năng cơ bản là như nhau và thấy nó mượt hơn về excel (quan điểm cá nhân sử dụng thôi) .cũng có một số điểm tiện, về phần excel thông thường thôi,cũng có thể có những chức năng chuyên sâu mình chưa đụng đến nên chưa biết là có hơn được ms office không.còn về vụ VBA thì thằng wps này nó không cho ghi các macro mà thuộc về hệ thống thì phải ví dụ như ghi lại chức nặng lọc pivot table hay một số chức năng khác, ms excel ghi lại có còn wps ghi xong là trống không haha nói chung thấy dùng hàng ngày với chức năng cơ bản thì cá nhân mình thấy wps khá tiện còn chuyên sâu hơn nữa thì không được rõ vì kiến thức hạn hẹp quá,đang mong có bác nào làm bài so sánh giữa ms office với wps office để được tham khảm thì tốt,nhất là về mảng VBA

 

[Nhattanktnn]

hihi cũng là một phần nguyên nhận nhưng mình thấy thị trường ở trung quốc dùng khá nhiều,mình cũng không am hiểu sâu rộng nên cũng chưa biết nó có ưu nhược điểm gì so với ms office.nhưng mình có dùng qua thì thấy chức năng cơ bản là như nhau và thấy nó mượt hơn về excel (quan điểm cá nhân sử dụng thôi) .cũng có một số điểm tiện, về phần excel thông thường thôi,cũng có thể có những chức năng chuyên sâu mình chưa đụng đến nên chưa biết là có hơn được ms office không.còn về vụ VBA thì thằng wps này nó không cho ghi các macro mà thuộc về hệ thống thì phải ví dụ như ghi lại chức nặng lọc pivot table hay một số chức năng khác, ms excel ghi lại có còn wps ghi xong là trống không haha nói chung thấy dùng hàng ngày với chức năng cơ bản thì cá nhân mình thấy wps khá tiện còn chuyên sâu hơn nữa thì không được rõ vì kiến thức hạn hẹp quá,đang mong có bác nào làm bài so sánh giữa ms office với wps office để được tham khảm thì tốt,nhất là về mảng VBA

Mình dùng ms office là vì nó phổ biến, và muốn học hỏi gì thì đa phần mọi người hướng dẫn trên ms office. Do vậy dễ học tập và tìm hiểu hơn thôi, còn vụ "made in" thì mình nói chơi thôi chứ cũng không phải là vấn đề hihi

 

[Quang_Hải]

Chào các anh chị và các bạn!
Anh chị và các bạn có Addins, code VBA hoặc phần mềm nào đó tô sáng màu dòng và cột của ô được chọn trong excel thì giúp mình với ạ! (Kiểu highlight cho dễ nhìn khi dữ liệu nhiều rối mắt)
Mình có tìm qua thì addins kutools có chức năng này, mình rất hài lòng nhưng phải mua bản quyền
Còn một số code VBA lại xóa đi màu cũ trước đó (nếu ô cũ tô màu thì nó sẽ mất, hoặc một trường hợp khác lại xóa CF đi)
Mong được giúp đỡ ạ!

Cách thì có nhưng chỉ sợ rằng quá đơn giản thì bạn lại không thích. Khi nào không có cách nào hay thì mình sẽ viết theo cách của mình cho bạn thử

 

[Nhattanktnn]

Cách thì có nhưng chỉ sợ rằng quá đơn giản thì bạn lại không thích

Chắc bác chỉ em ctr+space

 

[Cu Tồ]

Mình dùng ms office là vì nó phổ biến, và muốn học hỏi gì thì đa phần mọi người hướng dẫn trên ms office. Do vậy dễ học tập và tìm hiểu hơn thôi, còn vụ "made in" thì mình nói chơi thôi chứ cũng không phải là vấn đề hihi

haha à ừ cái nào tiện thì dùng thôi mà mình dùng cả hai vì thấy mỗi cái có cái hay riêng nên dùng cả hai luôn hihi