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
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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!