Cách tô sáng ô đang hoạt động trong Excel mà không cần VBA
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 đánh dấu hàng và cột của ô đã chọn bằng mã VBA 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
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ú
Tự động tô sáng hàng và cột của ô đã chọn bằng Kutools cho ExcelNế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 đậm 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ú
Một cú nhấp chuột để đánh dấu hàng và cột của ô đã chọnCác công cụ năng suất văn phòng tốt nhấtKutools 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
Đọ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
Đọ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 ( 55 ) Xếp hạng 5 trên 5 · 1 xếp hạng Suresh Singh khoảng 8 năm trước #11682 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 #11683 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 #11684 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 vời Hồi đáp 0 0 calixco RaveFromDave khoảng 6 năm trước #11685 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 #11686 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 End With End 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 #11687 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 #11688 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 #11689 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 9 tháng trước #11690 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 #11691 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 #11692 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 #12213 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 #12476 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 #12505 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 #13087 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 #13101 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 #13120 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 #13126 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 #13176 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 #13294 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 End With End 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 #13295 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 #13562 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 #13663 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 #13782 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) 'Update 20140318 Static xRow Static xColumn If xColumn "" Then With Rows(xRow). Nội địa. ColorIndex = xlNone End With End 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 #14646 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 #15491 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 End With End 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 #15492 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 End With End 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 #18908 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 |