Note: The other languages of the website are Google-translated. Back to English

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 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:


Một cú nhấp chuột để đánh dấu hàng và cột của ô đã chọn trong Excel:

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ờ! (30-ngày đường mòn miễn phí)


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 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-day) của 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 ...
  • Thanh siêu công thức (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-2021 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 đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (28)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn, cảm ơn bạn rất nhiều. Tôi đánh giá cao bạn vì điều này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi thích cách dễ dàng định dạng trang tính của mình, mã "thay đổi màu ô khi nhấp vào nó" sẽ giúp tôi làm việc hàng ngày! Tôi đang gặp khó khăn mặc dù. Khi tôi sao chép Trang tính trống của mình với mã được nhập như mô tả, tôi gặp lỗi. Nó chạy rất tốt cho đến khi tôi tạo trang tính mới. Tôi là một người mới học viết mã và đang làm việc từ sách giáo khoa và internet. Tôi đánh giá cao bất kỳ sự giúp đỡ nào bạn sẽ cung cấp!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Michelle thân mến,
Tôi đã làm theo các bước như bạn mô tả, nhưng mã cũng hoạt động trong trường hợp của tôi. Bạn có thể cho tôi biết phiên bản Office của bạn không?
Cám ơn bạn đã góp ý.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào. chỉ cần một chút hướng lên. tôi đang sử dụng office 2007.
tôi đã thử mã của bạn, và trong khi nó hoạt động, nó không phải là thứ tôi đang tìm kiếm. vì vậy tôi vừa xóa mã hoàn toàn. nhưng ô được chọn / hoạt động cuối cùng trước khi tôi xóa mã vẫn có màu xanh lục (tôi đã đổi màu từ vbYellow thành vbGreen) và màu sẽ không biến mất. nó cũng không bị ảnh hưởng bởi màu tô.
giải pháp đơn giản nhất mà tôi tìm thấy là chỉ cần xóa ô. sao chép và dán sẽ không hoạt động, nó cũng sẽ sao chép màu sắc.
chỉ nghĩ rằng tôi sẽ cho bạn biết. bạn có thể tìm thấy một giải pháp / cách khắc phục sự cố khác cho việc này, bên cạnh việc xóa và nhập thủ công. vẫn, cảm ơn! tôi xác nhận rằng mã hoạt động :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để chỉ áp dụng điều này cho các ô nhất định trong khi vẫn để các ô khác có sẵn để nhập số không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thử tùy chọn "Thay đổi màu được đánh dấu khi các ô được chọn bằng mã VBA" và lưu excel của tôi dưới dạng Trang tính đã bật Macro. Bây giờ các ô cuối cùng đã được chọn sẽ được đánh dấu và sẽ không đánh dấu các ô khác khi được chọn. Tôi đã xóa mã và nhập lại và lưu, nhưng vẫn không thay đổi. Tôi cũng không thể xóa phần đánh dấu trước đó. Tôi không biết phải làm gì.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã hoạt động tốt trong trường hợp của tôi sau khi lưu sổ làm việc dưới dạng Sổ làm việc Hỗ trợ Macro Excel.
Bạn có thể cho tôi biết phiên bản Excel của bạn không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có một vấn đề.
Tôi muốn thay đổi màu của một siêu liên kết nếu nó đã liên kết với một tệp PDF thành ĐỎ và nếu không liên kết với một tệp PDF sẽ hiển thị màu XANH.
Làm thế nào tôi có thể làm bây giờ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Xin lỗi không thể giúp bạn với điều đó. Cảm ơn đã bình luận.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Salam ...
sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya? trimakasih
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
td muncul = tidak muncul
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
trang trí
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào các bạn, vì vậy lần đầu tiên tôi viết mã để thay đổi màu ô thành xanh lá cây / đỏ trên doubleclick / rightclick. Tuy nhiên, tôi muốn mã này chỉ hoạt động trên một phạm vi ô cụ thể, trong trường hợp của tôi là D9: P9. ai đó có thể giúp tôi làm thế nào để làm điều đó? Tôi là người mới ở VBA
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã VBA dưới đây có thể giúp bạn một điều gì đó, hãy thử. Cảm ơn bình luận của bạn.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect (Target, Me.Range ("D9: P9")) Is Nothing) Thì
Hủy bỏ = Đúng
Target.Interior.Color = vbRed
Cuối Nếu
End Sub
Private Sub Worksheet_BeforeRightClick (ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect (Target, Me.Range ("D9: P9")) Is Nothing) Thì
Hủy bỏ = Đúng
Target.Interior.Color = vbGreen
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang cố gắng tìm cách thay đổi màu của ô, dựa trên lựa chọn từ danh sách thả xuống. Ví dụ, HIGH = đỏ, MEDIUM = vàng, LOW = xanh.

Bất kỳ lời khuyên nào bạn có thể cung cấp đều được đánh giá cao. Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hi
ghi đang hoạt động nhưng tôi muốn rằng màu chỉ nên có khi ô được chọn và khi tôi chọn thứ gì đó khác, ô đầu tiên tôi đã chọn sẽ không được tô màu
bạn có thể giúp tôi với, xin cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã có câu hỏi chính xác đó! Tôi hy vọng ai đó sẽ trả lời bạn! Lý do tôi tìm kiếm điều này là tôi có một bảng tính mà tôi sử dụng hàng ngày và đưa rất nhiều thông tin vào các ô đơn. Thật khó để nhìn thấy các giá trị (bằng mắt thường, nó chạy vào thông tin trong các ô khác) và sẽ là một tính năng tuyệt vời nếu tôi có thể thay đổi màu của ô đang được chỉnh sửa - chỉ khi nó đang được chỉnh sửa. Giải pháp đơn giản nhất mà tôi có thể nghĩ đến là giá trị ô sẽ được đặt trở lại giá trị trước khi được nhấp vào - nhưng tôi không biết làm thế nào để thực hiện điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn. Bạn đã làm rất tốt
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Có thể có mã cho "thay đổi màu ô khi nhấp vào nó" theo cách mà nó sẽ không thay đổi các ô đã được định dạng bằng một màu khác không, xin vui lòng?
Sau khi áp dụng mã của bạn, tất cả các định dạng (màu sắc) của tôi đã biến mất. Cảm ơn bạn. Veronika
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã hoạt động miễn là tôi không bảo vệ trang tính. Khi tôi bảo vệ trang tính, vì tôi có định dạng có điều kiện trên các ô bị khóa, mã sẽ không hoạt động. Làm cách nào để thay đổi điều này để nó hoạt động trên trang tính bị khóa, nơi người dùng có thể chọn các ô đã mở khóa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cách tô sáng ô (có dữ liệu) để tự động tô sáng các ô khác (dữ liệu có liên quan đến dữ liệu khác trong ô trước đó) bằng cách nhấp vào ô. Tôi có thể thực hiện được không. Có cách nào để làm điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
alguien que me ayude solo quiero que al hacerle click a una celda se ponga de un color y que se mantenga ese color y si le vuelvo hacer click regrese el color original que tenia
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang cố gắng sử dụng tùy chọn nhấp đúp để thay đổi một ô thành màu xanh lục nhưng tôi cũng muốn ô đó trở về không tô màu hoặc màu trắng nếu tôi nhấp đúp vào nó trong khi nó có màu xanh lục. Điều này có khả thi không? 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, mã đã từng hoạt động một thời gian, nhưng bây giờ nó không còn nữa. Có thể có gì sai?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Rens Borburgh, Có hai mã được cung cấp trong bài đăng, bạn đã sử dụng mã nào? Bạn có nhận được bất kỳ lời nhắc lỗi nào không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thử cả hai cùng một lúc. Sau khi sao chép nó vào thẻ USB, nó không hoạt động nữa.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Rens Borburgh, tôi không hiểu ý bạn lắm. Các mã này nên được sử dụng trong cửa sổ mã trang tính chứ không phải trong cửa sổ Mô-đun. Hoặc bạn có thể cung cấp ảnh chụp màn hình cửa sổ mã của bạn?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã tạo một bảng điều khiển với 37 trang tính, tất cả mọi người đều có một bảng. Tất cả chúng đều là bảng khóa vì nó rất lớn và tôi cần biết số và tên của học sinh mà tôi đang nhập dữ liệu. Mặc dù vậy, tôi phải giữ ngón tay ở bên trái màn hình để xác định tên và số mà dữ liệu đã nhập tham chiếu đến. Vì vậy, tôi cần xác định hai ô đầu tiên của hàng, trong cột "I" và "J".
Mã mà tôi lấy từ internet và không thể thay đổi cho hai ô của cột "I" và "J" là:

Dim lMarget As Range

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Nếu Target.Row> = 16 Thì

Nếu không, mục tiêu không là gì thì

lTarget.EntireRow.Interior.ColorIndex = 0
Cuối Nếu

Target.EntireRow.Interior.Color = 9359529

Đặt lTarget = Target
Cuối Nếu
End Sub

Tất cả các bảng bắt đầu ở các hàng khác nhau. Ví dụ này bắt đầu bằng 16 hàng nhưng tôi đặt mã trong tất cả các trang và điều chỉnh cho phù hợp với nhu cầu của số hàng cụ thể. 
Tôi đã cố gắng thay đổi mã từ EntireRow thành Phạm vi ("I16: J43") nhưng các ô trong phạm vi đều được sơn bằng màu mã.
Đã thử một cách khác thông qua "định dạng có điều kiện" với công thức = E ($ I16 <> ""; LIN () = CÉL ("lin")) trong phạm vi $ I16: $ J43 và trong trang tính "nhà phát triển" ", với" Application.Calculate "và nó hoạt động. Tôi thay đổi trong 37 trang tính nhưng tôi đang sao chép và dữ liệu từ tệp trước sang tệp mới này và tôi nhận thấy rằng các tùy chọn để dán "giá trị", v.v., biến mất khỏi trang tổng quan của tôi. Mã phải đang thực thi một cái gì đó, chẳng hạn như nhấp vào ô, không còn cho phép nó dán nữa. Một tùy chọn duy nhất là dán bằng CTRL + V.
Nếu ai đó có thể giúp tôi viết mã, tôi sẽ xóa VBA "Application.Calculate" để quay lại các tùy chọn ảnh ghép có sẵn.
Cảm ơn sự giúp đỡ của bạn.

Luís Lopes
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL