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

Làm cách nào để tự động tô sáng hàng và cột của ô hiện hoạt trong Excel?

Khi bạn xem một trang tính lớn với 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 để tránh đọc nhầm chúng. Ở đây, tôi có thể giới thiệu cho bạn một số thủ thuật thú vị để đánh dấu 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 đánh dấu 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
Một cú nhấp chuột để đánh dấu hàng và cột của ô đã chọn


Tự động tô sáng hàng và cột của ô đã chọn bằng mã VBA

Mã VBA sau có thể giúp bạn tự động đánh dấu 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 ô hiện hoạt, nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ trình đơn 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 Khác + Q các phím với nhau để quay lại trang tính, bây giờ khi bạn chọn một ô, toàn bộ hàng và cột của ô này đã được tô sáng. Và nó sẽ được di chuyển động khi ô đã chọn thay đổi.

doc-read-layout4

Ghi chú:

  • 1. Trong đoạn mã trên, bạn có thể thay đổi .Color Index = 6 màu sang màu khác mà bạn thích.
  • 2. Mã VBA này chỉ áp dụng cho trang tính bạn chọn trong 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 điền cho hàng và cột đã chọn bằng cách nhấp vào Trang chủ > Tô màu > Không có điền.
  • 4. Nếu có một số ô màu trong trang tính của bạn, màu sẽ bị mất khi bạn bấm vào ô đó và sau đó chuyển sang ô khác.

Tự động tô sáng hàng và cột của ô đã chọn với Kutools cho Excel

Nếu bạn là người mới của VBA, đây giới thiệu Kutools cho Excel's Bố cục đọc tiện ích. Tiện ích này giúp dễ dàng đánh dấu 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à dùng thử ngay bây giờ! (đường mòn miễn phí 30 ngày)

Hãy xem cách áp dụng Kutools cho Excel'S Bố cục đọc tính năng đá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 ô hiện hoạt được đánh dấu ngay lập tức. Và nó sẽ được di chuyển động khi các ô đã chọn thay đổi.

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ư hình minh họa bên dưới.
  • 2. Bạn có thể hủy tiện ích này bằng cách bỏ chọn Bố cục đọc Dưới Reading danh sách thả xuống.
  • 3. Điều này Đọc Giao diện Bố cục tính năng 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. Điều này Đọc Giao diện Bố cục tính năng này sẽ bị vô hiệu hóa khi bạn khởi chạy sổ làm việc vào lần sau.

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ô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 (56)
Xếp hạng 5 trong 5 · xếp hạng 1
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à màu của ô đang hoạt động. nhưng màu ô ban đầu cùng với cài đặt màu sắc và màu hàng bị mất. Làm thế nào để khắc phục đ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
Đây là phiên bản của tôi để đánh dấu hàng hiện tại (từ A đến AK). Để tránh làm mất 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ề 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) .BorderAround Weight: = xlHairline, Color: = RGB (162, 200, 255) End If 'Đánh dấu hàng hiện tại bằng đường viền màu đỏ lRow = Target.Row Range ("A" & lRow, "AK" & lRow) .BorderAround Weight: = xlThin, Color: = RGB (255, 0, 0) lPrevRow = lRow 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
Ồ! người đàn ông, hoạt động như một sự quyến rũ !!! tuyệt vời
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 geniuos, làm thế nào trên các hàng và cột?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
HI, TÔI CÓ VẤN ĐỀ CŨNG CÓ CÙNG SURESH CÓ THỂ BẠN VUI LÒNG CUNG CẤP CHO TÔI MÃ ĐƯỢC SỬA ĐỔI TOÀN BỘ ĐỂ KHÔNG MANG LẠI MÀU TẾ BÀO GỐC TÔI ĐANG SỬ DỤNG NÀY: Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Cập nhật 20140318 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
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 việc này - vui lòng giúp đỡ, 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
"Vui lòng 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 đề?
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ậ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 của các điểm nổi bật và đường viền phía sau.
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
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 có sẵn cho những người không phải là lập trình viên vào năm 2010, miễn là bạn có tab Nhà phát triển. Trong Nhà phát triển, bấm Thuộc tính. Đặt EnableOutline 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 đặt 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ính năng này trong Tùy chọn, tốt, đó là Microsoft.
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 đỡ?
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 mã này nhưng giống như Suresh đã nói, nó loại bỏ các màu ô gốc! Làm cách nào tôi có thể giữ lại màu ô ban đầu của mình ?? Xin vui lòng phản hồi, 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
Điều này hoạt động tuyệt vời. Có cách nào để làm cho nó không hiển thị trên bản in 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
Chỉ cần những gì tôi đang tìm kiếm. Cảm ơn 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
Để 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 ô.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất kỳ kế hoạch để thêm chức năng Mac cho Kutools?
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ể thay đổi màu sắc của các thanh? Thnaks cho giải pháp tuyệt vời này. Trân trọng, Tôn
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ó lại nếu tôi muốn nó dừng lại ??
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 đã sử dụng chỉ 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) .Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows (pRow) .Interior .ColorIndex = 15 .Pattern = xlSolid End With 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
Việc 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 lỗi cú pháp, nó hoạt động đáng kinh ngạc! Cảm ơn bạn. Đây là mã làm việc chỉ để tô sáng (màu vàng) hàng: Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows (xRow) .Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows (pRow) .Interior .ColorIndex = 6 .Pattern = xlSolid End With 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
Bravo..chính xác những gì tôi đang tìm kiếm ..... cảm ơn rất nhiều !!
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ột được đánh dấu từ phiên trước vẫn giữ nguyên - và thay đổi khi tôi di chuyển xung 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 mở sổ làm việc 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
Đ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 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) .Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows (pRow) .Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows (pRow - 1) .Interior .ColorIndex = 0 .Pattern = x1Solid End With With Rows (pRow + 1) .Interior .ColorIndex = 0 .Pattern = x1Solid End With Kết thúc Sub
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Ó TẤM ĐƯỢC MÀU SẮ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 mạng 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 / ô có màu xám, thì đây là mã: Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns (xColumn ) .Interior .ColorIndex = xlNone End With Rows (xRow) .Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns (pColumn) .Intexerior .ColorIndex 15 .Pattern = xlSolid End With With Rows (pRow) .Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 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
Mã đúng như sau: Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Update 20151216 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 = 15 .Pattern = xlSolid End With With Rows (pRow) .Interior .ColorIndex = 15. Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub [quote] Bài viết hay !. Cứu mạng 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 / ô có màu xám, thì đây là mã: Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns (xColumn ) .Interior .ColorIndex = xlNone End With Rows (xRow) .Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns (pColumn) .Intexerior .ColorIndex 15 .Pattern = xlSolid End With With Rows (pRow) .Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End SubBởi Vicente[/ B]
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. Làm thế nào tôi có thể phát sáng 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 thẳng trên một ô hợp nhất. Làm ơn giúp tôi giải pháp 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 đã thay đổi mã của bạn từ làm nổi bật nội thất sang tạo viền đỏ.
.BorderAround Weight: = xlThick, Color: = vbRed
Tôi chọn một ô, các đường viền chuyển sang màu đỏ. Tuyệt quá. Tôi sao chép, chọn một ô khác, những đường viền đó chuyển sang màu đỏ, nhưng khay nhớ tạm xóa. Tôi không thể tìm ra cách sử dụng đường viền và giữ chức năng sao chép / dán.
Bất cứ lời đề nghị?
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ó thể chia sẻ toàn bộ mã?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)

'Cập nhật 20192021
XRow tĩnh
Nếu xRow <> "" Thì
Hàng (xRow) .BorderAround Weight: = xlThin, Color: = vbBlack
Cuối Nếu
pRow = Lựa chọn.Row
xRow = pRow
Hàng (pRow) .BorderAround Weight: = xlThick, Color: = vbRed
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
làm cách nào để ngăn các nút hoàn tác & làm lại bị xóa bằng macro này không sử dụng Kutools
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Xin lỗi vì điều đó. Không thể giải quyết vấn đề hoàn tác & làm lại trong macro.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
VBA để đánh dấu một ô duy nhất hoạt động nhưng cái này thì 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
Cảm ơn vì đã đăng tải điều này! Nó rất hữu ích trong việc kiểm tra đối chiếu thông qua bảng tính.
Không có bình luận nào được đăng ở đây
Tải thêm
Để 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