¿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
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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!