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.
Duy trì đường lưới trong khi tô màu bằng mã VBA
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
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ông cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!
