Làm cách nào để thay đổi màu ô khi ô được nhấp hoặc chọn trong Excel?

Bài viết này sẽ chỉ cho bạn một số phương pháp về cách thay đổi màu ô trong khi nhấp vào ô và thay đổi màu được đánh dấu khi chọn một dải ô trong Excel.

Thay đổi màu ô khi ô được nhấp bằng mã VBA
Thay đổi màu được đánh dấu khi các ô được chọn bằng mã VBA
Đánh dấu toàn bộ hàng và cột của ô hoạt động với Kutools cho Excel

Thay đổi màu ô khi ô được nhấp bằng mã VBA

Tại đây, bạn có thể thay đổi màu nền của ô khi nhấp đúp vào ô đó hoặc nhấp chuột phải vào ô đó bằng mã VBA sau.

1. Trong trang tính, bạn sẽ thay đổi màu ô khi nhấp vào nó, nhấp chuột phải vào tab trang tính và nhấp Mã Chế độ xem từ menu chuột phải.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào Mã cửa sổ.

VBA: thay đổi màu ô khi nhấp vào nó

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. nhấn Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Sau đó, khi bạn nhấp đúp vào một ô, nó sẽ có màu đỏ. Và khi bạn nhấp chuột phải vào một ô, nó sẽ có màu xanh lục. Xem ảnh chụp màn hình:

Kutools cho Excel's Bố cục đọc tiện ích giúp bạn đánh dấu nhanh hàng và cột của ô đã chọn trong Excel như hình minh họa bên dưới.
Tải xuống và thử ngay bây giờ! (Đường mòn miễn phí 30 ngày)

Thay đổi màu được đánh dấu khi các ô được chọn bằng mã VBA

Theo mặc định, khi chọn một dải ô, màu được đánh dấu là màu xám. Nếu bạn muốn làm cho dải ô đã chọn nổi bật hơn, bạn có thể thay đổi màu được đánh dấu của nó thành màu bạn cần. Hãy làm như sau.

1. Nhấp chuột phải vào tab trang tính bạn muốn thay đổi màu được đánh dấu của phạm vi đã chọn và nhấp Mã Chế độ xem từ menu chuột phải.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào Mã cửa sổ.

Mã VBA: thay đổi màu được đánh dấu của dải ô đã chọn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. nhấn Khác + Q cùng một lúc để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, màu được đánh dấu của dải ô hoặc ô đã chọn sẽ được đổi thành màu vàng. Khi bạn nhấp vào một ô hoặc dải ô khác, các ô sẽ được tô màu tự động.

Đánh dấu toàn bộ hàng và cột của ô hoạt động với Kutools cho Excel

Nếu bạn đang xử lý một trang tính lớn, cần phải đánh dấu toàn bộ hàng và cột của ô hiện hoạt để giúp việc đọc dễ dàng hơn. Đây Bố cục đọc tiện ích của Kutools cho Excel có thể giúp bạn.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. nhấp chuột Kutools > Bố cục đọc. Xem ảnh chụp màn hình:

Sau đó, bố cục đọc được bật, bạn có thể thấy hàng và cột của ô hiện hoạt được đánh dấu ngay lập tức.

Chú thích: Bạn có thể thay đổi cài đặt bố cục đọc dựa trên nhu cầu của mình như hình minh họa bên dưới.

Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.

Đánh dấu toàn bộ hàng và cột của ô hoạt động với Kutools cho Excel

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
Super Formula Bar (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

19 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Vera · 11 months ago
Hi,
is it possible to have a code for "change cell color when clicking on it" in the way that it will not change already formated cells with another color, please?
After applying your code all my formating (colours) is away. Thank you. Veronika
- Reply
To post as a guest, your comment is unpublished.
kiba fil · 1 years ago
Thank you. Great Job
- Reply
To post as a guest, your comment is unpublished.
shea honig · 1 years ago
hi
the is working grate but i want that the color should only be when the cell is selected and when i select something else, the first cell i selcted should not be colored
can you help me pls with this thanks
- Reply
- To post as a guest, your comment is unpublished.
  Kris · 1 years ago
  
  I had that exact same question! I hope someone will answer you! The reason I am looking for this is I have a spreadsheet I use daily and put in lots of information into single cells. It gets hard to see the values (visually, it runs into info in other cells), and would be a great feature if I could change the color of the cell being edited - only while it is being edited. The simplest solution I can think of is that the cell value would be set back to what it was prior to being clicked on - but I don't know how to do that.
  
  Reply
To post as a guest, your comment is unpublished.
perry · 1 years ago
Hi, I am trying to figure out how to change the color of a cell, based on a selection from a dropdown list. For example, HIGH=red, MEDIUM=yellow, LOW=green.

Any tips you can provide are greatly appreciated. Thank You
- Reply
To post as a guest, your comment is unpublished.
Vishnu Subind · 2 years ago
Hi guys, so i used to first code to change the cell colour to green/red on doubleclick/rightclick. I would like this code, however, to work just on a specific range of cells, in my case D9:P9. can someone help me on how to do that? Im new at VBA
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  The below VBA code can do you a favor, please have a try. Thank you for your comment.
  
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
  Cancel = True
  Target.Interior.Color = vbRed
  End If
  End Sub
  Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
  Cancel = True
  Target.Interior.Color = vbGreen
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
rahayu · 2 years ago
trimakasih
- Reply
To post as a guest, your comment is unpublished.
rahayu · 2 years ago
td muncul=tidak muncul
- Reply
To post as a guest, your comment is unpublished.
rahayu · 2 years ago
Salam...
sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
- Reply
To post as a guest, your comment is unpublished.
vuongngocsangbkdn@gmail.com · 2 years ago
I have a problem.
I want change color of one hyperlink if it had linked with one PDF to RED and if had not link with one PDF will show BLUE color.
How can I do now?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Sorry can't help you with that. Thanks for commenting.
  
  Reply
To post as a guest, your comment is unpublished.
devika.kalika@gmail.com · 2 years ago
I tried the "Change the highlighted color when cells are selected with VBA code" option and saved my excel as Macro Enabled Worksheet. Now the last cells that were selected are highlighted and won't highlight other cells when selected. I've deleted code and reentered and saved, but still no change. I can't remove the previous highlight either. I'm at lost on what to do.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi,
  The code works well in my case after saving the workbook as an Excel Macro-Enabled Workbook.
  Can you tell me your Excel version?
  
  Reply
To post as a guest, your comment is unpublished.
Jason · 2 years ago
Is there a way to just apply this to certain cells while leaving other cells with available for number entering?
- Reply
To post as a guest, your comment is unpublished.
Slaxx · 2 years ago
hi. just a little heads up. i'm using office 2007.
i tried your code, and while it did work, it wasn't what i was looking for. so i just deleted the code completely. but the last selected/active cell before i deleted the code is still green (i changed the color from vbYellow to vbGreen), and the color won't go away. it's not affected by fill color either.
the simplest solution i found was to just delete the cell. copying and pasting will not work, it will also copy the color.
just thought i'd let you know. you might find another solution/troubleshooting for this, besides deleting and manual entry. still, thanks! i confirm that the code works :)
- Reply
To post as a guest, your comment is unpublished.
Michelle · 3 years ago
I love how easy formatting my worksheet the code for "change cell color when clicking on it" would make my daily work! I am hitting a snag though. When I copy my Blank Sheet with the code entered as described, I get a error. It runs great until I create new sheets. I am a novice at coding and am working from textbooks and the internet. I appreciate any help you will offer!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Dear Michelle,
  I followed the steps as you described, but the code also worked in my case. Can you tell me your Office version?
  Thanks for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
madhav neupane · 3 years ago
thank you thank you so much. I appreciate you for this.
- Reply

Đăng nhập vào tài khoản của bạn

Đặt lại mật khẩu