Excel làm nổi bật hàng đang hoạt động mà không cần vba

Nếu bạn có một trang tính lớn, có thể bạn sẽ khó tìm ra ô đang hoạt động hoặc vùng chọn đang hoạt động trong nháy mắt. Tuy nhiên, nếu ô/phần đang hoạt động có màu nổi bật, thì việc tìm ra nó sẽ không thành vấn đề. Trong bài viết này, tôi sẽ nói về cách tự động đánh dấu ô đang hoạt động hoặc phạm vi ô đã chọn trong Excel

Đánh dấu ô hoặc vùng chọn đang hoạt động bằng mã VBA

Tab Office Cho phép chỉnh sửa và duyệt theo tab trong Office, giúp công việc của bạn dễ dàng hơn nhiều

Đọc thêm. Tải xuống miễn phí

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 mọi thứ. Thêm các công thức, biểu đồ phức tạp hoặc được sử dụng nhiều nhất và bất kỳ thứ gì khác vào mục yêu thích của bạn và nhanh chóng sử dụng lại chúng trong tương lai.
• Hơn 20 tính năng văn bản. Trích xuất số từ chuỗi văn bản; .
• Công cụ hợp nhất . Nhiều Sổ làm việc và Trang tính thành Một; .
• Công cụ phân chia . Chia dữ liệu thành nhiều trang dựa trên giá trị; .
• Dán bỏ qua Hàng ẩn/đã lọc; . by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
• Siêu bộ lọc. Tạo sơ đồ bộ lọc nâng cao và áp dụng cho bất kỳ trang tính nào; . Sort by week, day, frequency and more; Filter by bold, formulas, comment...
• Hơn 300 tính năng mạnh mẽ; . Works with Office 2007-2021 and 365; Supports all languages; Easy deploying in your enterprise or organization.

Đọc thêm. Tải xuống miễn phí

---

Đánh dấu ô hoặc vùng chọn đang hoạt động bằng mã VBA

Kinh ngạc. Sử dụng các tab hiệu quả trong Excel như Chrome, Firefox và Safari. Tiết kiệm 50% thời gian của bạn và giảm hàng nghìn lần nhấp chuột cho bạn mỗi ngày

---

Mã VBA sau đây có thể giúp bạn đánh dấu ô đang hoạt động hoặc vùng chọn một cách linh hoạt, vui lòng thực hiện như sau

1. Giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications

2. Sau đó chọn ThisWorkbook từ Project Explorer bên trái, bấm đúp vào nó để mở Mô-đun, sau đó sao chép và dán mã VBA sau vào Mô-đun trống

mã VBA. Đánh dấu ô hoặc vùng chọn đang hoạt động

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

3. Sau đó, lưu và đóng mã này và quay lại trang tính, bây giờ, khi bạn chọn một ô hoặc một vùng chọn, các ô đã chọn sẽ được tô sáng và nó sẽ được di chuyển động khi các ô được chọn thay đổi

ghi chú

1. Nếu bạn không thể tìm thấy Ngăn Project Explorer trong cửa sổ, bạn có thể nhấp vào Xem > Project Explorer trong cửa sổ Microsoft Visual Basic for Applications để mở nó

2. Trong đoạn mã trên, bạn có thể thay đổi . ColorIndex = 6 màu thành màu khác mà bạn thích.

3. Mã VBA này có thể được áp dụng cho tất cả các trang tính trong sổ làm việc

4. Nếu có một số ô được tô màu trong trang tính của bạn, màu sẽ bị mất khi bạn bấm vào ô đó rồi di chuyển sang ô khác

---

bài viết liên quan

Làm cách nào để tự động đánh dấu hàng và cột của ô đang hoạt động trong 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ác công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• 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); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• 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 đủ 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 giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab 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 năng suất của bạn lên 50% và giảm hàng trăm lần 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.  

 

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 16 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

Malcolm Davidson

khoảng 5 năm trước

#19700

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Rực rỡ. Tôi đã sử dụng mã của bạn để tô sáng một ô. Nó hoạt động hoàn hảo cho những gì tôi đang làm. Sử dụng hàng trăm siêu liên kết để di chuyển giữa các trang tính và sổ làm việc. làm cho việc đi qua dễ dàng hơn rất nhiều. Cảm ơn vì tập lệnh VBA nhỏ của bạn

Đáp lại

0

0

Rana Banik

khoảng 5 năm trước

#19871

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tuyệt quá. Nhưng nếu không muốn mất màu ô đã gán trước đó thì sao?

Đáp lại

0

0

Lee     Rana Banik

khoảng 5 năm trước

#19872

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Vâng, tôi cũng muốn biết điều này. Làm cách nào để bạn giữ cho các ô đã chọn trước đó được tô sáng cho mục đích theo dõi?

Đáp lại

0

0

Mark Anderson     Lee

khoảng 5 năm trước

#19873

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xem bình luận của tôi ở trên

Đáp lại

Báo cáo

0

0

Mark Anderson     Rana Banik

khoảng 5 năm trước

#19874

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thay vì "Chỉ số màu" có bộ giới hạn 255 giá trị (có nghĩa là bất kỳ màu tùy chỉnh nào bị mất), hãy sử dụng "Màu" để thay thế. Bạn sẽ cần lưu trữ giá trị cũ trong một biến dài tĩnh mới và cũng tạo màu tô sáng bạn muốn bằng hàm RGB. Vấn đề duy nhất với việc kích hoạt mã này là bạn không còn có thể thay đổi màu của ô đang hoạt động vì nó sẽ thay đổi trở lại như trước khi bạn nhấp vào nó. Tôi đề nghị rằng nếu bạn cần thay đổi màu tô sáng trên trang tính, hãy làm như vậy với macro bị tắt hoặc thay đổi tên phụ trong giây lát để nó không kích hoạt khi bạn nhấp vào ô, sau đó chỉ cần đổi tên nó trở lại bình thường thành " . Đây là mã của tôi.

Sub Workbook_SheetSelectionChange(ByVal Sh Là đối tượng, Mục tiêu ByVal là Excel. Range)

Static xLastRng As Range
Static xLastRngColor As Long

Lỗi tiếp tục tiếp tục

. Nội địa. Màu = xLastRngColor
xLastRngColor = Mục tiêu. Nội địa. Màu
Mục tiêu. Nội địa. Color = RGB(255, 255, 0) 'soạn bất kỳ màu nổi bật nào bạn muốn với các giá trị RGB, tôi đang sử dụng màu vàng ở đây
Đặt xLastRng = Target

End Sub

Đáp lại

Báo cáo

0

0

ibnu     Mark Anderson

khoảng 10 tháng trước

#19875

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

công việc. Tuyệt

Đáp lại

0

0

Barney     Rana Banik

khoảng 4 năm trước

#19876

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Sử dụng định dạng có điều kiện trên các ô bạn muốn bảo vệ

Đáp lại

0

0

Pravin Shinde

khoảng 5 năm trước

#21330

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Giải pháp hoàn hảo vì tôi luôn có xu hướng bỏ dấu ô được tô sáng trong thao tác "Tìm và chọn". Cảm ơn rất nhiều

Đáp lại

0

0

sud

khoảng 5 năm trước

#22416

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Nhưng tôi không thể thực hiện tùy chọn hoàn tác và cũng mất màu ô đã chỉ định trước đó.
Vui lòng cung cấp giải pháp

Đáp lại

0

0

Joa

khoảng 4 năm trước

#24771

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, nhưng sử dụng này một cách thận trọng. Nó có tác dụng ngược không mong muốn là không cho phép hoàn tác. Có giải pháp nào cho điều đó không?

Đáp lại

0

0

pháo hoa

khoảng 4 năm trước

#25407

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Dù sao, bạn có thể làm nổi bật ô liền kề bên trái thay vì ô đang hoạt động?

Đáp lại

0

0

Bến

khoảng 2 năm trước

#33004

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Đó là siêu hữu ích, cảm ơn bạn

Đáp lại

0

0

Eric Nur

khoảng 2 năm trước

#33307

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ử macro của bạn bằng cách sao chép và dán nó vào tệp Excel của tôi. Tôi đã thay đổi một thứ trong macro. Tôi đã thay đổi chỉ số màu từ 6 thành 24 (thành màu khác với màu tôi hiện đang sử dụng trong macro của mình). Nó hoạt động rất tốt và tôi rất thích nó nhưng sau đó bắt đầu gây ra sự cố cho tôi. Tôi có rất nhiều ô chứa đầy màu sắc trong Excel của mình. Macro bắt đầu xóa màu tô khỏi mọi ô được chạm vào. Tôi không biết làm thế nào để ngăn hành vi kỳ lạ này của macro. Tôi không có lựa chọn nào khác ngoài việc xóa macro khỏi tệp của mình. Tôi vẫn thích sử dụng macro này nếu ai đó có thể giúp tôi sửa nó

Đáp lại

0

0

Eric Nur

khoảng 2 năm trước

#33309

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 biết rằng bạn đã đề xuất một giải pháp nhưng giải pháp đó lại đi kèm với một vấn đề khác như bạn mô tả bên dưới. "Vấn đề duy nhất với việc kích hoạt mã này là bạn không còn có thể thay đổi màu của ô đang hoạt động vì nó sẽ thay đổi trở lại như trước khi bạn nhấp vào nó. Tôi đề nghị rằng nếu bạn cần thay đổi màu tô sáng trên trang tính, hãy làm như vậy với macro bị tắt hoặc thay đổi tên phụ trong giây lát để nó không kích hoạt khi bạn nhấp vào ô". Đây không phải là một sự thay thế chấp nhận được đối với tôi. Tôi cần có thể thay đổi màu trong các ô khi macro đang hoạt động. Bạn có một giải pháp cho vấn đề này. Nếu bạn đưa ra giải pháp cho vấn đề này, vui lòng xuất bản lại đầy đủ macro đã sửa của bạn, macro mới (thay vì đề xuất các bản vá cho macro ban đầu của bạn vì tôi gặp khó khăn về mặt kỹ thuật khi có liên quan đến macro)

Đáp lại

0

0

Luis Lopes

khoảng 8 tháng trước

#37695

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, nếu ai đó có thể giúp tôi. Tôi lấy mã này trên internet (xin lỗi chủ sở hữu). Nó làm gần như những gì tôi cần nhưng mã này chọn toàn bộ. Điều tôi cần là một thay đổi cho phép chỉ chọn hai ô đầu tiên của hàng ô đang hoạt động. Khi tôi nhấp vào ô, tôi cần ô của cột "$I16" và "$J16" (16 là dòng đầu tiên trong bảng của tôi) của hàng đó trở thành màu bên trong (=9359529). Mã là cái này.
Dim lTarget As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target. Hàng >= 16 thì

Nếu không lTarget thì không có gì

lTarget. Toàn bộ hàng. Nội địa. ColorIndex = 0
Kết thúc nếu

Mục tiêu. Toàn bộ hàng. Nội địa. Color = 9359529

Đặt lTarget = Target
End If
End Sub

Bạn có thể trợ giúp . Cảm ơn sự giúp đỡ của bạn.
Luis Lopes

Đáp lại

0

0

Ergun

khoảng 5 tháng trước

#38455

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 gặp vấn đề tương tự, đọc toàn bộ trang và nhận xét. Đang suy nghĩ có nên áp dụng hay không thì mình cứ click ngẫu nhiên vào số và chữ để chọn cả cột và hàng. Sau đó, đột nhiên đánh dấu tính năng ô đã chọn trở lại. )