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

Nhattanktnn · 18/7/20

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 · 18/7/20

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

Nhattanktnn · 18/7/20

huuthang_bd đã viết:
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 ô đó

huuthang_bd đã viế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 · 18/7/20

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 ô đó

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?

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

Nhattanktnn · 18/7/20

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.

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 · 18/7/20

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 đỡ ạ!

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

huuthang_bd · 18/7/20

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

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

Nhattanktnn · 18/7/20

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

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 đó

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

chiendich · 18/7/20

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?

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

Nhattanktnn · 19/7/20

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

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 · 19/7/20

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

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

Cu Tồ · 19/7/20

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 đỡ ạ!

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 · 20/7/20

Cu Tồ đã viết:
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ồ · 20/7/20

Nhattanktnn đã viế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 · 20/7/20

Cu Tồ đã viết:
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ồ · 20/7/20

Nhattanktnn đã viế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 · 20/7/20

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

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 · 20/7/20

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 đỡ ạ!

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 · 20/7/20

quanghai1969 đã viết:
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ồ · 20/7/20

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

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

Quang_Hải · 20/7/20

Nhattanktnn đã viết:
Chắc bác chỉ em ctr+space

Chắc bạn ít đọc bài của tôi viết. Tôi là bác sĩ miệt vườn, chuyên xử những ca khó theo kiểu võ rừng. Tôi đã post bài vào topic của bạn tạo chắc chắn là tôi làm được. Không mất màu mè hay format của bạn

Nhattanktnn · 20/7/20

quanghai1969 đã viết:
Chắc bạn ít đọc bài của tôi viết. Tôi là bác sĩ miệt vườn, chuyên xử những ca khó theo kiểu võ rừng

Dạ em có đọc một số bài của bác nhưng chủ yếu bên VBA, bác cứ cho em cái đại ý để em đoán thử bác đang hướng em làm gì nào?

Quang_Hải · 20/7/20

Nhattanktnn đã viết:
Dạ em có đọc một số bài của bác nhưng chủ yếu bên VBA, bác cứ cho em cái đại ý để em đoán thử bác đang hướng em làm gì nào?

Có phải như thế này không?

Quang_Hải · 20/7/20

Cu Tồ đã viết:
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

Vẫn không mất màu của user trên excel đây nè bạn

Cu Tồ · 20/7/20

quanghai1969 đã viết:
Vẫn không mất màu của user trên excel đây nè bạn
View attachment 241448

vâng, em chỉ bảo là cái phần mềm soạn thảo WPS kia có chức năng sẵn thế luôn cho bạn ấy tham khảo thôi.chứ phần code thì em chưa đủ trình làm đâu ạ. bác chỉ cách làm cho bọn em với

Nhattanktnn · 20/7/20

quanghai1969 đã viết:
Có phải như thế này không?
View attachment 241445

Dạ đúng ý em là vậy, bác chỉ giúp em cái này với

Phuocam · 20/7/20

Xem thử tại đây:

quick87 · 20/7/20

Nhattanktnn đã viết:
Dạ đúng ý em là vậy, bác chỉ giúp em cái này với

Bạn thử tham khảo bài này xem sao nhé:

Dùng Chuột Chọn Cell, Highlight Dòng Và Cột

Khi bạn bấm chuột vào cell nào thì nó sẽ Highlight toàn bộ dòng và cột ứng với cell đó... Cái code trong file này có thể giúp mình đở mõi mắt khi phải theo dỏi 1 file có nhiều dử liệu... (nhìn cell A400, đối chiếu sang cột G lại nhầm vào cell G401, chuyện này rất thường xảy ra)... Có highlight...

www.giaiphapexcel.com

Quang_Hải · 20/7/20

Nhattanktnn đã viết:
Dạ đúng ý em là vậy, bác chỉ giúp em cái này với

Bạn tham khảo cách làm trong file. Thật ra mấy cái này chỉ làm cho vui thôi chứ không hỗ trợ được gì cho công việc. Chưa nói tới chuyện tự làm rối lên vấn đề. Mình gởi file là vì đã lỡ bình luận trong topic. Mình không hứng thú với dạng code này. Nếu ứng dụng được thì tốt, mình xin lỗi sẽ không giải thích gì thêm nhé

Nhattanktnn · 20/7/20

quanghai1969 đã viết:
Bạn tham khảo cách làm trong file. Thật ra mấy cái này chỉ làm cho vui thôi chứ không hỗ trợ được gì cho công việc. Chưa nói tới chuyện tự làm rối lên vấn đề. Mình gởi file là vì đã lỡ bình luận trong topic. Mình không hứng thú với dạng code này. Nếu ứng dụng được thì tốt, mình xin lỗi sẽ không giải thích gì thêm nhé

Bác không giải thích nhưng bác có thể chỉ có em những nhược điểm của cách này không, để em còn biết mà tránh. Vì bác bảo "không hứng thú" nên em nghĩ nó sẽ có nhược điểm "to to"

Quang_Hải · 20/7/20

Nhattanktnn đã viết:
Bác không giải thích nhưng bác có thể chỉ có em những nhược điểm của cách này không, để em còn biết mà tránh. Vì bác bảo "không hứng thú" nên em nghĩ nó sẽ có nhược điểm "to to"

Bạn cứ ứng dụng vào công việc đi. Khi nào cần thêm gì thì gởi lên diễn đàn sẽ có các thành viên khác trợ giúp.
Phần cơ bản ban đầu mình đã đưa ra hướng để code rồi, phần cải tiến sẽ chắc cũng sẽ đơn giản

Nhattanktnn · 20/7/20

quanghai1969 đã viết:
Bạn cứ ứng dụng vào công việc đi. Khi nào cần thêm gì thì gởi lên diễn đàn sẽ có các thành viên khác trợ giúp.
Phần cơ bản ban đầu mình đã đưa ra hướng để code rồi, phần cải tiến sẽ chắc cũng sẽ đơn giản

Cảm ơn bác, code này lạ quá, để em nghiền ngẫm xem sao

giaiphap · 20/7/20

Nhattanktnn đã viết:
Cảm ơn bác, code này lạ quá, để em nghiền ngẫm xem sao

Tôi e rằng không sử dụng được.

Nhattanktnn · 21/7/20

giaiphap đã viết:
Tôi e rằng không sử dụng được.

Sao vậy bác @giaiphap ?

giaiphap · 21/7/20

Nhattanktnn đã viết:
Sao vậy bác @giaiphap ?

Thì bạn cứ sử dụng một thời gian đi sẽ thấy cái không được. Cứ nhập, sửa, xóa dữ liệu...

Nhattanktnn · 21/7/20

giaiphap đã viết:
Thì bạn cứ sử dụng một thời gian đi sẽ thấy cái không được. Cứ nhập, sửa, xóa dữ liệu...

Trước mắt em test thử copy một vùng, sau đó để chuột vào một ô và dán, kết quả là thông báo "...not same size". Nếu vùng để dán lớn hơn vùng copy thì mới dán được. Và sau đó thử delete bằng cách để chuột vào một ô và ấn delete, thì các ô có dữ liệu nằm trên dòng và cột của ô đó cũng đều bị xóa theo

leonguyenz · 21/7/20

Nhattanktnn đã viết:
Trước mắt em test thử copy một vùng, sau đó để chuột vào một ô và dán, kết quả là thông báo "...not same size". Nếu vùng để dán lớn hơn vùng copy thì mới dán được. Và sau đó thử delete bằng cách để chuột vào một ô và ấn delete, thì các ô có dữ liệu nằm trên dòng và cột của ô đó cũng đều bị xóa theo

Enter xuống dòng cũng không Select theo nhé.

Bài đã được tự động gộp: 21/7/20

quick87 đã viết:
Bạn thử tham khảo bài này xem sao nhé:

Dùng Chuột Chọn Cell, Highlight Dòng Và Cột

Khi bạn bấm chuột vào cell nào thì nó sẽ Highlight toàn bộ dòng và cột ứng với cell đó... Cái code trong file này có thể giúp mình đở mõi mắt khi phải theo dỏi 1 file có nhiều dử liệu... (nhìn cell A400, đối chiếu sang cột G lại nhầm vào cell G401, chuyện này rất thường xảy ra)... Có highlight...

www.giaiphapexcel.com

Yêu cầu của thớt là không được xóa định dạng trước đó.

Nhattanktnn · 21/7/20

Mình mới tìm được phần mềm này rất là hay, ai quan tâm có thể tải về dùng thử:
Dose for excel
Trên taimienphi.vn là ghi free mà trang chủ thì trial 14 ngày

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

Người dùng đang xem chủ đề này

Thành viên gắn bó

Chuyên gia GPE

Thành viên gắn bó

Chuyên gia GPE

Thành viên gắn bó

Thành viên tích cực

File đính kèm

Chuyên gia GPE

Thành viên gắn bó

Lỡ bước sang ngang

File đính kèm

Thành viên gắn bó

==(^o^)==

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Thành viên gắn bó

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Thành viên gắn bó

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Thành viên gắn bó

Thành viên gạo cội

Thành viên gắn bó

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Thành viên gạo cội

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Thành viên gắn bó

Thành viên mới

(/ội...

Thành viên gạo cội

File đính kèm

Thành viên gắn bó

Thành viên gạo cội

Thành viên gắn bó

==(^o^)==

Thành viên gắn bó

==(^o^)==

Thành viên gắn bó

Thành viên gạo cội

Thành viên gắn bó

Thời gian đếm ngược.