Gå til hovedindhold

Hvordan udskrives regneark med valideringscirkler i Excel?

I visse tilfælde kan vi cirkulere nogle ugyldige data for at gøre dem udestående, men når du har brug for at udskrive regnearket med valideringscirklerne, udskrives cirklerne ikke. Har du nogensinde været ramt af dette problem i Excel? I dag vil jeg vise dig nogle hurtige tricks til at løse dette job.

Udskriv regneark med valideringscirkler ved at indsætte dem som billede

Udskriv regneark med valideringscirkler ved hjælp af VBA-kode


pil blå højre boble Udskriv regneark med valideringscirkler ved at indsætte dem som billede

I Excel kan vi ikke udskrive valideringscirklerne direkte, men vi kan kopiere og indsætte dataområdet med valideringscirkler som billede og derefter udskrive det.

1. Vælg det dataområde, som du vil udskrive cirklerne.

2. Trykke Ctrl + C taster på tastaturet for at kopiere det, og gå derefter til et nyt regneark, klik på en celle, og højreklik, vælg Indsæt speciel > Billede, se skærmbillede:

doc-print-cirkler-1

3. Og så er dit valg blevet indsat som billede, og når du nu udskriver det nye regneark, udskrives cirklerne med succes.

doc-print-cirkler-1


pil blå højre boble Udskriv regneark med valideringscirkler ved hjælp af VBA-kode

Hvis du ikke kan lide at indsætte dataområdet som billede, kan følgende VBA-kode også hjælpe dig.

1. Når du har indstillet datavalideringen, skal du holde nede Alt + F11 nøgler i Excel for at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik derefter på indsatte > Moduler, og indsæt følgende makro i Modul vindue.

VBA-kode: Indsæt røde cirkler til de ugyldige 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. Og tryk derefter på F5 nøgle til at udføre denne kode, og de ugyldige data er cirkuleret med den røde ovale, se skærmbillede:

doc-print-cirkler-1

4. Når du går til at udskrive dette regneark, der indeholder de røde cirkler, udskrives cirklerne også.

Bemærk:

Med denne VBA-kode fjernes cirklerne ikke med Excel'erne Ryd valideringscirkler funktion, hvis du vil slette cirklerne, skal du anvende nedenstående kode.

VBA-kode: Fjern valideringscirkler i regnearket

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

Relateret artikel:

Hvordan cirkler man ugyldige data i Excel?

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations