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

Làm thế nào để bảo toàn các đường lưới khi tô màu trong Excel?

Như chúng ta đã biết, khi chúng ta tô màu nền cho các ô, các đường lưới cũng sẽ bị che, trong trường hợp này, làm thế nào chúng ta có thể giữ các đường lưới khi tô màu nền trong các ô Excel để có được ảnh chụp màn hình sau.

doc giữ đường kẻ ô tô màu 1

Duy trì đường lưới trong khi tô màu bằng mã VBA


mũi tên màu xanh bong bóng bên phải Duy trì đường lưới trong khi tô màu bằng mã VBA

Thông thường, không có cách nào trực tiếp để chúng ta giải quyết công việc này, nhưng ở đây, tôi có thể giới thiệu một mã VBA cho bạn. Vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Ở bên trái Dự án-VBAProject ngăn, nhấp đúp Sổ làm việc này dưới mở rộng dự án VBA, sau đó sao chép và dán mã VBA sau vào Mô-đun trống:

Mã VBA: giữ nguyên đường lưới trong khi tô màu

Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not xRgPre Is Nothing Then DrawBorders xRgPre
    Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
    Dim xCell As Range
    Application.ScreenUpdating = False
    For Each xCell In Rg
        If xCell.Interior.ColorIndex = xlNone Then
            With xCell.Borders
                If .ColorIndex = 15 Then
                    .LineStyle = xlNone
                End If
            End With
        Else
            With xCell.Borders
                If .LineStyle = xlNone Then
                    .Weight = xlThin
                    .ColorIndex = 15
                End If
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

doc giữ đường kẻ ô tô màu 2

3. Và sau đó lưu và đóng cửa sổ mã, bây giờ, khi bạn tô màu cho một dải ô, các đường lưới sẽ được hiển thị tự động.


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 (17)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sửa lỗi 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
Hoạt động tốt, nhưng thật đáng buồn mỗi khi tôi nhấp vào một ô, trang tính sẽ lộn xộn! Đã xóa VBA và ngừng đánh giá. Tự hỏi tại sao điều này lại xảy ra?
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, Vic,
Không có vấn đề này trong sổ làm việc Excel của tôi, bạn sử dụng phiên bản Excel nào?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tương tự ở đây với Excel 2016. Tôi đang bị đóng băng và màn hình gần như bị trống trong vài giây, đặc biệt là khi chọn nhiều ô. Thật đáng tiếc vì nó hoạt động hoàn toàn khác.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hoạt động nhưng người ta phải sửa lỗi nếu bạn thấy nó.
Dim xRgPre dưới dạng phạm vi
Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Nếu không xRgPre không có gì thì DrawBorders xRgPre
Đặt xRgPre = Target


*************************************
Nên ĐỌC ... như câu lệnh If chỉ đảm bảo rằng có thứ gì đó ở đó để đặt thành cấp phát bộ nhớ.

Người ta có thể đặt dòng tiếp theo bên dưới để dọn dẹp và không để rò rỉ bộ nhớ.

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Đặt xRgPre = Target
Nếu không xRgPre không có gì thì DrawBorders xRgPre
'Để đảm bảo không xảy ra rò rỉ bộ nhớ
'Dọn dẹp bộ nhớ được cấp phát sau khi không cần thiết.
Đặt xRqPre = Không có gì



Chúc một ngày tốt lành..
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 hoạt động với Định dạng có Điều kiện. Đặt xRqPre = Không có gì gây ra lỗi: biến không được xác định (đã xóa dòng). Màn hình lắc lư ở đây quá, sử dụng 2010. Khác khôn ngoan, nó là một công cụ 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
chỉ sử dụng màu tiêu chuẩn;)
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, nhưng bây giờ nếu tôi điền vào một số ô và nhấn Ctrl + Z để hoàn tác, nó sẽ không hoạt động. Sẽ không hoàn tá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ào Andrew,
Có, đoạn mã trên không thể hỗ trợ tính năng Hoàn tác, bạn không nên tô màu theo cách thủ công để hoàn tác công việc của mình.
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
Một bản sửa lỗi khác, nếu bạn không muốn gặp rắc rối với mã:
Đầu tiên, hãy tìm ra màu xám nào phù hợp với các đường mặc định và lưu ý đến màu đó.
Trong tab Trang đầu, bấm Kiểu ô, bấm chuột phải vào Bình thường, bấm Sửa đổi -> Định dạng -> Đường viền. Đối với Màu dòng, hãy chọn màu xám đó. Đối với Cài đặt sẵn, hãy chọn Dàn ý. Xong.
Bây giờ bạn có thể phải chọn tất cả (CTRL + A / Command + A) và nhấp vào Kiểu ô -> Bình thường để đảm bảo nó được áp dụng cho tất cả các ô. Khi bạn điền vào một ô, các đường viền sẽ vẫn cò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
Alissa, tôi đã gặp vấn đề tương tự không thể khắc phục được nhưng câu trả lời của bạn đã giúp tôi rất nhiều, vì vậy cảm ơn bạn rất nhiều, bạn là thiên tài.
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 đã giúp tôi rất nhiều. Tôi đã thực sự tìm kiếm rất nhiều nơi và đây là lời giải thích duy nhất có hiệu quả! 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
Rất hữu ích- 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
Cảm ơn bạn! Tôi đang nhổ tóc để cố gắng giữ lại các đường viền màu xám đẹp mắt sau khi nhuộm màu. Không thể tin rằng Microsoft đã không triển khai đ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
Điều này hoạt động tuyệt vời. (Cảm ơn) Nhưng đây là câu hỏi thực sự - Tại sao Excel lại cho phép các đường lưới biến mất khi tô màu các ô ngay từ đầu? Chỉ là một trục trặc ngu ngốc khác trong thế giới công nghệ mà cái gọi là các nhà phát triển thông minh không bao giờ nghĩ đến. Ý tôi là, các đường lưới, theo mặc định, dù sao cũng phải ở đó ... vì vậy ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Danke für den super Tipp!
Không có bình luận nào được đăng ở đây
Để 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