検証サークルを含むワークシートを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で無効なデータを囲むにはどうすればよいですか？