Khi bạn xem một trang tính lớn có nhiều dữ liệu, bạn có thể muốn đánh dấu hàng và cột của ô đã chọn để bạn có thể đọc dữ liệu một cách dễ dàng và trực quan nhằm tránh đọc sai chúng. Ở đây, tôi có thể giới thiệu cho bạn một số thủ thuật thú vị để tô sáng hàng và cột của ô hiện tại, khi ô được thay đổi, cột và hàng của ô mới sẽ tự động được tô sáng như ảnh chụp màn hình sau
Tự động tô sáng hàng và cột của ô đã chọn bằng mã VBA
Đoạn mã VBA sau đây có thể giúp bạn tự động tô sáng toàn bộ cột và hàng của ô hiện tại trong trang tính, vui lòng thực hiện theo các bước sau
1. Mở trang tính, bạn sẽ tự động tô sáng hàng và cột của ô đang hoạt động, nhấp chuột phải vào tab trang tính và chọn Mã xem từ menu ngữ cảnh
2. Sau đó sao chép và dán mã VBA sau vào cửa sổ mã trống
mã VBA. tự động tô sáng hàng và cột của ô đã chọn
Sub Worksheet_SelectionChange[ByVal Target As Excel.Range]
'Update 20200430
Static xRow
Static xColumn
If xColumn "" Then
With Columns[xColumn].Interior
.ColorIndex = xlNone
End With
With Rows[xRow].Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns[pColumn].Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows[pRow].Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
3. Sau đó nhấn tổ hợp phím Alt + Q để quay lại trang tính, lúc này khi bạn chọn một ô thì toàn bộ hàng và cột của ô này đã được tô sáng. Và nó sẽ được di chuyển linh hoạt khi ô được chọn thay đổi
ghi chú
- 1. Trong đoạn mã trên, bạn có thể thay đổi. ColorIndex = 6 màu sang màu khác mà bạn thích
- 2. Mã VBA này chỉ áp dụng cho bảng tính bạn chọn ở bước 2 ở trên
- 3. Nếu bạn không muốn tô sáng lại cột và hàng của ô đã chọn, bạn cần xóa VBA ở trên và đặt không tô màu cho hàng và cột đã chọn bằng cách nhấp vào Trang chủ > Tô màu > Không tô màu
- 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
Tự động tô sáng hàng và cột của ô đã chọn bằng Kutools cho Excel
Nếu bạn là người mới sử dụng VBA, ở đây đề xuất tiện ích Bố cục Đọc của Kutools cho Excel. Tiện ích này giúp bôi đen dòng và cột của ô được chọn trong Excel một cách dễ dàng như demo bên dưới. Tải xuống và dùng thử ngay bây giờ. [dùng thử 30 ngày]
Hãy xem cách áp dụng tính năng Bố cục đọc của Kutools cho Excel để đánh dấu toàn bộ hàng và cột của một dải ô
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 ô đang hoạt động được tô sáng ngay lập tức. Và nó sẽ được di chuyển linh hoạt khi các ô được chọn thay đổi
ghi chú
- 1. 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ư ảnh chụp màn hình bên dưới
- 2. Bạn có thể hủy tiện ích này bằng cách bỏ chọn Reading Layout trong danh sách thả xuống Reading
- 3. Tính năng Reading Layout View này được áp dụng cho tất cả các trang tính trong sổ làm việc của bạn
- 4. Tính năng Chế độ xem Bố cục Đọc này sẽ bị tắt khi bạn khởi chạy sổ làm việc vào lần tới
Một cú nhấp chuột để đánh dấu hàng và cột của ô đã chọn
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-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. Đảm bảo hoàn tiền trong 60 ngày.
Đọc thêm. Tải xuống miễn phí. Mua.
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.
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 [ 56 ]
Xếp hạng 5 trên 5 · 1 xếp hạng
Suresh Singh
khoảng 8 năm trước
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ã đã cho hoạt động tốt để làm nổi bật hàng và cột của ô đang hoạt động. nhưng màu ô ban đầu cùng với cài đặt màu cột và hàng bị mất. Làm thế nào để khắc phục điều này?
Hồi đáp
0
0
RaveFromDave Suresh Singh
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là phiên bản của tôi để làm nổi bật hàng hiện tại [từ A đến AK]. Để tránh xóa màu ô, thay vào đó, tôi sử dụng đường viền màu đỏ. cộng với nó khôi phục đường viền ưa thích của tôi vào hàng bên trái. Private Sub Worksheet_SelectionChange[ByVal Target As Range] Dim lRow As Long, lCol As Long Static lPrevRow As Long 'Khôi phục hàng hoạt động trước đó thành. đường chấm màu xanh nhạt Nếu lPrevRow > 0 Then Range["A" & lPrevRow, "AK" & lPrevRow]. Biên giớiTrọng lượng xung quanh. =xlĐường chân tóc, Màu sắc. =RGB[162, 200, 255] End If 'Đánh dấu hàng hiện tại bằng đường viền màu đỏ lRow = Target. Phạm vi hàng["A" & lRow, "AK" & lRow]. Biên giớiTrọng lượng xung quanh. =xlMỏng, Màu sắc. =RGB[255, 0, 0] lPrevRow = lRow End Sub
Hồi đáp
0
0
fan hâm mộ RaveFromDave
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ồ. người đàn ông, hoạt động như một nét duyên dáng. tuyệt quá
Hồi đáp
0
0
calixco RaveFromDave
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bây giờ bạn là một thiên tài, còn hàng và cột thì sao?
Hồi đáp
0
0
MARIO RaveFromDave
khoảng 6 năm trước
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 có cùng một vấn đề với SURESH, BẠN CÓ THỂ VUI LÒNG CUNG CẤP CHO TÔI TOÀN BỘ MÃ ĐÃ SỬA ĐỔI ĐỂ KHÔNG XÓA MÀU TẾ BÀO GỐC TÔI ĐANG SỬ DỤNG NÀY. Sub Worksheet_SelectionChange[ByVal Target As Excel. Phạm vi] 'Cập nhật 20140318 Tĩnh xRow Tĩnh xColumn Nếu xColumn "" Sau đó Với Cột [xColumn]. Nội địa. ColorIndex = xlNone End With With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng pColumn = Lựa chọn. Cột x Hàng = pRo Cột = Cột Với Cột[Column]. Nội địa. Chỉ số màu = 6. Hoa văn = xlSolid End With With Rows[pRow]. Nội địa. Chỉ số màu = 6. Hoa văn = xlSolid End With End Sub
Hồi đáp
0
0
Randy RaveFromDave
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không thể làm cho nó hoạt động - xin hãy giúp đỡ, cảm ơn. -]
Hồi đáp
0
0
Bozo Randy
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
"Xin hãy giúp đỡ" - bạn có mong đợi một câu trả lời với một yêu cầu mơ hồ như vậy và không có nỗ lực giải thích vấn đề không?
Hồi đáp
0
0
Ka Yến RaveFromDave
khoảng 2 năm trước
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
Hồi đáp
0
0
peenkwan RaveFromDave
khoảng 10 tháng trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là mã hoàn hảo cảm ơn bạn. không có vấn đề gì với việc di chuyển từ ô này sang ô khác và để lại dấu vết nổi bật và đường viền phía sau
Hồi đáp
0
0
betakos Suresh Singh
khoảng 8 năm trước
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 sử dụng bảng chèn vào dữ liệu của mình và nó không thay đổi màu gốc
Hồi đáp
0
0
Janet D Suresh Singh
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tùy chọn này hiện khả dụng cho những người không phải là lập trình viên trong năm 2010 miễn là bạn có tab Nhà phát triển. Trong Nhà phát triển, nhấp vào Thuộc tính. Đặt EnableOutlining thành True. giới hạn. Điều này dường như chỉ áp dụng cho một trang tính tại một thời điểm, mặc dù dễ dàng thiết lập cho các trang tính khác bằng cách nhấp vào các tab ở dưới cùng [trong khi vẫn mở hộp thoại Thuộc tính]. Tại sao Excel không cung cấp tùy chọn này trong Tùy chọn, vâng, đó là Microsoft
Hồi đáp
0
0
felix
khoảng 8 năm trước
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, sau khi nhập mã, chức năng "hoàn tác" không hoạt động nữa. Ai đó có thể giúp đỡ?
Hồi đáp
0
0
Matthewwwww
khoảng 8 năm trước
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 thực sự thích đoạn mã này nhưng như Suresh đã nói, nó loại bỏ màu gốc của ô. Làm cách nào tôi có thể giữ màu ô ban đầu của mình ??
Hồi đáp
0
0
vipe
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hoạt động rực rỡ. Có cách nào làm cho nó không hiển thị khi in không?
Hồi đáp
0
0
Sẽ
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chỉ cần những gì tôi đang tìm kiếm. Cảm ơn bạn
Hồi đáp
0
0
Charles
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để giữ màu ô của bạn, bạn sẽ phải tạo Định dạng có điều kiện cho các ô
Hồi đáp
0
0
Mac
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có kế hoạch thêm chức năng Mac cho Kutools không?
Hồi đáp
0
0
Tôn Hermes
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để thay đổi màu sắc của các thanh? . Trân trọng, Tôn
Hồi đáp
0
0
betakos
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào tôi có thể dừng nó nếu tôi muốn nó dừng lại ??
Hồi đáp
0
0
rêu phong
khoảng 8 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là mã tôi chỉ sử dụng cho hàng [tô sáng màu xám]. Sub Worksheet_SelectionChange[ByVal Target As Excel. Range] 'Cập nhật 20140318 Static xRow If xRow "" Then With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng xRow = pRow Với Hàng[pRow]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With End Sub
Hồi đáp
0
0
Christina listermoss
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sao chép và dán mã của bạn không hoạt động bình thường, nhưng sau khi sửa các lỗi cú pháp, nó đã hoạt động rất tốt. Cảm ơn bạn. Đây là mã làm việc để chỉ đánh dấu [màu vàng] hàng. Sub Worksheet_SelectionChange[ByVal Target As Excel. Range] 'Cập nhật 20140318 Static xRow If xRow "" Then With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng xRow = pRow Với Hàng[pRow]. Nội địa. Chỉ số màu = 6. Hoa văn = xlSolid End With End Sub
Hồi đáp
0
0
Aditya
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hoan hô. Chính xác những gì tôi đang tìm kiếm. cảm ơn rất nhiều
Hồi đáp
0
0
Nước muối
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi mở lại sổ làm việc của mình, cột được tô sáng từ phiên trước đó vẫn còn - và không thay đổi khi tôi di chuyển quanh trang tính trong một phiên mới. Có cách nào để "xóa" phiên trước đó mỗi khi sổ làm việc được mở không?
Hồi đáp
0
0
mike_thomas
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hoạt động nếu bạn không có màu không ở định dạng có điều kiện. Chỉ cần thêm hai cái nữa với các vòng lặp. Sub Worksheet_SelectionChange[ByVal Target As Excel. Range] 'Cập nhật 20140318 Static xRow Static xColumn If xColumn "" Then With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng xRow = pRow Với Hàng[pRow]. Nội địa. Chỉ số màu = 6. Hoa văn = xlSolid End With With Rows[pRow - 1]. Nội địa. Chỉ số màu = 0. Mẫu = x1Solid End With With Rows[pRow + 1]. Nội địa. Chỉ số màu = 0. Hoa văn = x1Solid End With End Sub
Hồi đáp
0
0
KSV
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
LÀM THẾ NÀO TÔI CÓ THỂ LÀM ĐƯỢC NẾU CÓ BẢNG ĐÃ ĐƯỢC MÀU
Hồi đáp
0
0
Vicente
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài báo tuyệt vời. Cứu tinh cho tôi. Và nếu bạn muốn ô thực tế được đánh dấu bằng màu vàng và hàng/ô màu xám, thì đây là mã. Sub Worksheet_SelectionChange[ByVal Target As Excel. Phạm vi] 'Cập nhật 20151216 Tĩnh xRow Tĩnh xColumn Nếu xColumn "" Sau đó Với Cột [xColumn]. Nội địa. ColorIndex = xlNone End With With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng pColumn = Lựa chọn. Cột x Hàng = pRo Cột = Cột Với Cột[Column]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With With Rows[pRow]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With Selection. Nội địa. Color Index = 6 Kết thúc phụ
Hồi đáp
0
0
Kamran Vicente
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Code đúng như sau. Sub Worksheet_SelectionChange[ByVal Target As Excel. Phạm vi] 'Cập nhật 20151216 Tĩnh xRow Tĩnh xColumn Nếu xColumn "" Sau đó Với Cột [xColumn]. Nội địa. ColorIndex = xlNone End With With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng pColumn = Lựa chọn. Cột x Hàng = pRo Cột = Cột Với Cột[Column]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With With Rows[pRow]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With Selection. Nội địa. ColorIndex = 6 End Sub [quote]Bài viết hay. Cứu tinh cho tôi. Và nếu bạn muốn ô thực tế được đánh dấu bằng màu vàng và hàng/ô màu xám, thì đây là mã. Sub Worksheet_SelectionChange[ByVal Target As Excel. Phạm vi] 'Cập nhật 20151216 Tĩnh xRow Tĩnh xColumn Nếu xColumn "" Sau đó Với Cột [xColumn]. Nội địa. ColorIndex = xlNone End With With Rows[xRow]. Nội địa. ColorIndex = xlNone Kết thúc bằng Kết thúc Nếu pRow = Lựa chọn. Hàng pColumn = Lựa chọn. Cột x Hàng = pRo Cột = Cột Với Cột[Column]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With With Rows[pRow]. Nội địa. Chỉ số màu = 15. Hoa văn = xlSolid End With Selection. Nội địa. ColorIndex = 6 End SubBy Vicente[/quote]
Hồi đáp
0
0
Chiếnph
khoảng 5 năm trước
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. Làm cách nào tôi có thể đánh dấu toàn bộ hàng nếu một trong các ô được hợp nhất. Tôi thấy kutool có thể tạo một đường ngang qua một ô hợp nhất. Xin hãy giúp tôi giải pháp này