Hoe een werkblad met validatiekringen in Excel afdrukken?

In bepaalde gevallen kunnen we enkele ongeldige gegevens omcirkelen om ze open te maken, maar wanneer u het werkblad met de validatiecirkels moet afdrukken, worden de cirkels niet afgedrukt. Heeft u ooit last gehad van dit probleem in Excel? Vandaag zal ik je enkele snelle trucs laten zien om deze klus op te lossen.

Druk een werkblad met validatiecirkels af door ze als afbeelding te plakken

Werkblad met validatiekringen afdrukken met behulp van VBA-code

Druk een werkblad met validatiecirkels af door ze als afbeelding te plakken

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

In Excel kunnen we de validatiekringen niet rechtstreeks afdrukken, maar we kunnen het gegevensbereik met validatiekringen als afbeelding kopiëren en plakken en deze vervolgens afdrukken.

1. Selecteer het gegevensbereik waarvoor u de cirkels wilt afdrukken.

2. pers CTRL + C toetsen op het toetsenbord om het te kopiëren en ga vervolgens naar een nieuw werkblad, klik op een cel en klik met de rechtermuisknop, kies plakken speciaal > beeld, zie screenshot:

3. En dan is uw selectie als afbeelding geplakt en nu, wanneer u het nieuwe werkblad afdrukt, worden de cirkels met succes afgedrukt.

Werkblad met validatiekringen afdrukken met behulp van VBA-code

Als u het gegevensbereik niet als afbeelding wilt plakken, kan de volgende VBA-code u ook helpen.

1. Houd na het instellen van de gegevensvalidatie de Alt + F11 toetsen in Excel om het Microsoft Visual Basic for Applications-venster.

2. Dan klikken Invoegen > moduleen plak de volgende macro in het Module Venster.

VBA-code: voeg rode cirkels toe aan de ongeldige gegevens

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en de ongeldige gegevens zijn omcirkeld met het rode ovaal, zie screenshot:

4. Wanneer u dit werkblad met de rode cirkels gaat afdrukken, worden de cirkels ook afgedrukt.

Opmerking:

Met deze VBA-code worden de cirkels niet verwijderd met de Excel's Wis validatiecirkels functie, als je de kringen wilt verwijderen, pas dan de onderstaande code toe.

VBA-code: verwijder validatiekringen in het werkblad

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

Gerelateerd artikel:

Hoe ongeldige gegevens in Excel te omcirkelen?

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...