Tô màu dòng và cột của ô được chọn

Liên hệ QC
Nhattanktnn

Nhattanktnn

Thành viên gắn bó
Tham gia
11/11/16
Bài viết
3,100
Được thích
3,995
Donate (Momo)
Donate
Giới tính
Nam
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 đỡ ạ!
 
Thế kutools làm kiểu gì? GPE có loại dùng shape đó.
 
Nhattanktnn đã viết:
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 ô đó
Nhấp chuột vào đây để mở rộng...
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.
Nhattanktnn đã viết:
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?
Nhấp chuột vào đây để mở rộng...
Tôi chỉ nhớ là có thôi chứ không có link.
 
huuthang_bd đã viế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.
Nhấp chuột vào đây để mở rộng...
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
 
Nhattanktnn đã viế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 đỡ ạ!
Nhấp chuột vào đây để mở rộng...
Bạn thử cái này xem đúng ý không?
Mã: 
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
 

File đính kèm

  • tomau.xlsm
    12.7 KB · Đọc: 21
LamNA đã viết:
Bạn thử cái này xem đúng ý không?
Mã: 
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
Nhấp chuột vào đây để mở rộng...
Cái này không mất màu của người dùng à bạn?
 
LamNA đã viết:
Bạn thử cái này xem đúng ý không?
Mã: 
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
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã quan tâm, nhưng như mình đã nói
Nhattanktnn đã viết:
Còn một số code VBA lại xóa đi màu cũ trước đó
Nhấp chuột vào đây để mở rộng...
Nên code này chưa đáp ứng được mong muốn của mình
 
Nhattanktnn đã viết:
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?
Nhấp chuột vào đây để mở rộng...
Thử cái này có đúng không nhé.
Mã: 
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 đính kèm

  • curseurH.xlsm
    15.8 KB · Đọc: 25
chiendich đã viết:
Thử cái này có đúng không nhé.
Mã: 
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
Nhấp chuột vào đây để mở rộng...
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
 
chiendich đã viết:
Thử cái này có đúng không nhé.
Mã: 
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
Nhấp chuột vào đây để mở rộng...
Cải tiến chút đi anh, chọn ô Fill công thức không được.
 
Nhattanktnn đã viế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 đỡ ạ!
Nhấp chuột vào đây để mở rộng...
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
1595152065109.png
 
Nhattanktnn đã viết:
Với lại wps office này hàng của ai bạn biết rồi đó :D
Nhấp chuột vào đây để mở rộng...
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
 
Cu Tồ đã viết:
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
Nhấp chuột vào đây để mở rộng...
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
 
Nhattanktnn đã viế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 đỡ ạ!
Nhấp chuột vào đây để mở rộng...
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 đã viế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
Nhấp chuột vào đây để mở rộng...
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
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
Tính tổng có điều kiện
2
Trả lời
24
Đọc
543
hoaiantrinh
H
ptm0412
Hàm XLOOKUP: Có thể bạn chưa biết hết tính năng và ứng dụng
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
2
Đọc
9K
dinhhuykbbl
dinhhuykbbl
NGUYENCONGDUNG2
QUẢN LÝ CÔNG NỢ THEO NGÀY VÀ HÓA ĐƠN
Trả lời
5
Đọc
85
le_vis
L
LuuAnh980
Vấn đề viết tắt trong Diễn Đàn.
    • Thích
    • Cười
2 3
Trả lời
41
Đọc
804
kiendt1973
K
solomon2211
PDF Tools giúp ghép, tách, xóa file pdf
    • Thích
Trả lời
10
Đọc
207
huhumalu
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom