¿Cómo imprimir una hoja de trabajo con círculos de validación en Excel?

En cierto caso, podemos marcar con un círculo algunos datos no válidos para resaltarlos, pero, cuando necesite imprimir la hoja de trabajo con los círculos de validación, los círculos no se imprimirán. ¿Alguna vez ha sufrido este problema en Excel? Hoy, te mostraré algunos trucos rápidos para resolver este trabajo.

Imprima la hoja de trabajo con círculos de validación pegándolos como imagen

Imprima la hoja de trabajo con círculos de validación usando el código VBA

Imprima la hoja de trabajo con círculos de validación pegándolos como imagen

¡Asombroso! ¡Uso de pestañas eficientes en Excel como Chrome, Firefox y Safari!

¡Ahorre el 50% de su tiempo y reduzca miles de clics del mouse todos los días!

En Excel, no podemos imprimir los círculos de validación directamente, pero podemos copiar y pegar el rango de datos con círculos de validación como imagen, y luego imprimirlo.

1. Seleccione el rango de datos en el que desea imprimir los círculos.

2. prensa Ctrl + C teclas del teclado para copiarlo y luego ir a una nueva hoja de trabajo, hacer clic en una celda y hacer clic derecho, elegir Pegado especial > Imagen, ver captura de pantalla:

3. Y luego su selección se ha pegado como imagen, y ahora, cuando imprima la nueva hoja de trabajo, los círculos se imprimirán correctamente.

Imprima la hoja de trabajo con círculos de validación usando el código VBA

Si no desea pegar el rango de datos como imagen, el siguiente código VBA también puede ayudarlo.

1. Después de configurar la validación de datos, mantenga presionado el Alt + F11 teclas en Excel para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

2. Luego haga clic recuadro > Móduloy pegue la siguiente macro en el Ventana de módulo.

Código de VBA: inserte círculos rojos en los datos no válidos

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. Y luego presione F5 para ejecutar este código, y los datos no válidos se han rodeado con un óvalo rojo, vea la captura de pantalla:

4. Cuando vaya a imprimir esta hoja de trabajo que contiene los círculos rojos, los círculos también se imprimirán.

Nota:

Con este código VBA, los círculos no se eliminarán con el Excel Círculos de validación claros función, si desea eliminar los círculos, aplique el siguiente código.

Código de VBA: elimine los círculos de validación en la hoja de trabajo

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

Artículo relacionado:

¿Cómo marcar con un círculo los datos no válidos en Excel?

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...