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
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. ]