Hur skriver jag ut kalkylblad med valideringscirklar i Excel?

I vissa fall kan vi ringa in vissa ogiltiga data för att göra dem enastående, men när du behöver skriva ut kalkylbladet med valideringscirklarna kommer cirklarna inte att skrivas ut. Har du någonsin drabbats av detta problem i Excel? Idag ska jag visa dig några snabba knep för att lösa det här jobbet.

Skriv ut kalkylblad med valideringscirklar genom att klistra in dem som bild

Skriv ut kalkylblad med valideringscirklar med hjälp av VBA-kod

Skriv ut kalkylblad med valideringscirklar genom att klistra in dem som bild

I Excel kan vi inte skriva ut valideringscirklarna direkt, men vi kan kopiera och klistra in dataintervallet med valideringscirklar som bild och sedan skriva ut det.

1. Välj det dataintervall som du vill skriva ut cirklarna på.

2. Tryck Ctrl + C tangenterna på tangentbordet för att kopiera det, och gå sedan till ett nytt kalkylblad, klicka på en cell och högerklicka, välj Klistra in special > Bild, se skärmdump:

3. Och sedan har ditt val klistrats in som bild, och nu när du skriver ut det nya kalkylbladet kommer cirklarna att skrivas ut framgångsrikt.

Skriv ut kalkylblad med valideringscirklar med hjälp av VBA-kod

Om du inte gillar att klistra in dataområdet som bild kan följande VBA-kod också hjälpa dig.

1. Efter att ha ställt in datavalideringen, håll nere Alt + F11 tangenter i Excel för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka sedan Insert > Modulernaoch klistra in följande makro i Modulfönster.

VBA-kod: Infoga röda cirklar till ogiltiga data

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. Och tryck sedan på F5 för att exekvera den här koden, och de ogiltiga uppgifterna har ringats in med den röda ovalen, se skärmdump:

4. När du går till att skriva ut detta kalkylblad som innehåller de röda cirklarna kommer cirklarna att skrivas ut också.

Notera:

Med denna VBA-kod kommer cirklarna inte att tas bort med Excel Rensa valideringscirklar funktionen, om du vill ta bort cirklarna, använd koden nedan.

VBA-kod: Ta bort valideringscirklar i kalkylbladet

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

Relaterad artikel:

Hur cirklar jag ogiltiga data i Excel?