如何在Excel中打印带有验证圈的工作表？

在某些情况下，我们可能会圈出一些无效数据以使其突出显示，但当你需要打印带有验证圈的工作表时，这些圈并不会被打印出来。你是否在Excel中遇到过这个问题？今天，我将向你展示一些快速技巧来解决这个问题。

通过将验证圈粘贴为图片来打印工作表

使用VBA代码打印带有验证圈的工作表

通过将验证圈粘贴为图片来打印工作表

在Excel中，我们无法直接打印验证圈，但可以复制并粘贴带有验证圈的数据区域为图片，然后进行打印。

1. 选择要打印圆圈的数据区域。

2. 按键盘上的 Ctrl + C 键进行复制，然后转到一个新工作表，点击一个单元格，右键单击，选择 选择性粘贴 > 图片，参见截图：

3. 然后你的选定区域已被粘贴为图片，现在当你打印这个新工作表时，圆圈将会成功打印出来。

使用VBA代码打印带有验证圈的工作表

如果你不喜欢将数据区域粘贴为图片，以下VBA代码也可以帮助你。

1. 设置完数据验证后，请在Excel中按住 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 然后点击 插入 > 模块，并将以下宏粘贴到模块窗口中。

VBA代码：为无效数据插入红色圆圈

Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
    Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
   If Not Rng.Validation.Value Then
       Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
       xShape.Fill.Visible = msoFalse
       xShape.Line.ForeColor.SchemeColor = 10
       xShape.Line.Weight = 1.25
       xCount = xCount + 1
       xShape.Name = "InvalidData_" & xCount
   End If
Next
Exit Sub
End Sub

3. 然后按 F5 键执行此代码，无效数据将被红色椭圆圈出，参见截图：

4. 当你打印包含红色圆圈的这个工作表时，这些圆圈也会被打印出来。

注意：

使用此VBA代码，圆圈不会通过Excel的 清除验证圈 功能删除，如果你想删除这些圆圈，请应用以下代码。

VBA代码：删除工作表中的验证圈

Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
    If xShape.Name Like "InvalidData_*" Then
        xShape.Delete
    End If
Next
End Sub

相关文章：

如何在Excel中圈出无效数据？