Come stampare un foglio di lavoro con cerchi di convalida in Excel?

In alcuni casi, potremmo cerchiare alcuni dati non validi per renderli eccezionali, ma, quando è necessario stampare il foglio di lavoro con i cerchi di convalida, i cerchi non verranno stampati. Hai mai avuto questo problema in Excel? Oggi ti mostrerò alcuni trucchi veloci per risolvere questo lavoro.

Stampa il foglio di lavoro con i cerchi di convalida incollandoli come immagine

Stampa il foglio di lavoro con cerchi di convalida utilizzando il codice VBA

Stampa il foglio di lavoro con i cerchi di convalida incollandoli come immagine

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Firefox e Safari!

Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

In Excel, non possiamo stampare direttamente i cerchi di convalida, ma possiamo copiare e incollare l'intervallo di dati con i cerchi di convalida come immagine e quindi stamparlo.

1. Seleziona l'intervallo di dati in cui desideri stampare i cerchi.

2. stampa Ctrl + C tasti sulla tastiera per copiarlo, quindi passare a un nuovo foglio di lavoro, fare clic su una cella e fare clic con il tasto destro, scegliere Incolla speciale > Immagine, vedi screenshot:

3. E poi la tua selezione è stata incollata come immagine, e ora quando stampi il nuovo foglio di lavoro, i cerchi verranno stampati correttamente.

Stampa il foglio di lavoro con cerchi di convalida utilizzando il codice VBA

Se non ti piace incollare l'intervallo di dati come immagine, anche il seguente codice VBA può aiutarti.

1. Dopo aver impostato la convalida dei dati, tenere premuto il tasto Alt + F11 in Excel per aprire il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Quindi fare clic inserire > Moduloe incolla la seguente macro nel file Finestra del modulo.

Codice VBA: inserisci cerchi rossi nei dati non validi

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. E poi premere F5 chiave per eseguire questo codice, ei dati non validi sono stati cerchiati con l'ovale rosso, vedi screenshot:

4. Quando andrai a stampare questo foglio di lavoro che contiene i cerchi rossi, verranno stampati anche i cerchi.

Nota:

Con questo codice VBA, i cerchi non verranno rimossi con Excel Cancella cerchi di convalida funzione, se desideri eliminare le cerchie, applica il codice seguente.

Codice VBA: rimuovi i cerchi di convalida nel foglio di lavoro

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

Articolo correlato:

Come circondare i dati non validi in Excel?

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!

Leggi di più... Download gratuito... Acquista...