在Excel中填充颜色时如何保留网格线？

您所在的位置：网站首页 › excel表格填充网格线 › 在Excel中填充颜色时如何保留网格线？

在Excel中填充颜色时如何保留网格线？

2024-07-13 07:12| 来源: 网络整理| 查看: 265

在Excel中填充颜色时如何保留网格线？作者：晓阳最后修改时间：2016-07-27

众所周知，当我们为单元格填充背景色时，网格线也将被覆盖，在这种情况下，如何在填充Excel单元格中的背景色时保持网格线以显示以下屏幕截图。

doc保持网格线填充颜色1

保留网格线，同时使用VBA代码填充颜色

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！每天节省50％的时间，并减少数千次鼠标单击！

通常，没有直接的方法可以让我们解决这个问题，但是在这里，我可以为您介绍一个VBA代码。请执行以下操作：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序窗口。

2。在左边项目-VBA项目窗格，双击的ThisWorkbook 在扩展下 VBA项目，然后将以下VBA代码复制并粘贴到空白模块中：

VBA代码：在填充颜色时保留网格线

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保持网格线填充颜色2

3。然后保存并关闭代码窗口，现在，当您为一系列单元格填充颜色时，网格线将自动显示。

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载...

【本文地址】

在Excel中填充颜色时如何保留网格线？

在Excel中填充颜色时如何保留网格线？

今日新闻

推荐新闻