Como imprimir planilha com círculos de validação no Excel?
Em certos casos, podemos circular alguns dados inválidos para torná-los pendentes, mas, quando você precisar imprimir a planilha com os círculos de validação, os círculos não serão impressos. Você já sofreu com esse problema no Excel? Hoje, vou mostrar alguns truques rápidos para resolver esse trabalho.
Imprima planilha com círculos de validação colando-os como imagem
Imprimir planilha com círculos de validação usando o código VBA
Imprima planilha com círculos de validação colando-os como imagem
No Excel, não podemos imprimir os círculos de validação diretamente, mas podemos copiar e colar o intervalo de dados com os círculos de validação como imagem e depois imprimi-lo.
1. Selecione o intervalo de dados que você deseja imprimir os círculos.
2. pressione Ctrl + C teclas do teclado para copiá-lo e, em seguida, vá para uma nova planilha, clique em uma célula e clique com o botão direito, escolha colar especial > Imagem, veja a captura de tela:
3. E então sua seleção foi colada como imagem, e agora quando você imprimir a nova planilha, os círculos serão impressos com sucesso.
Imprimir planilha com círculos de validação usando o código VBA
Se você não gosta de colar o intervalo de dados como imagem, o seguinte código VBA também pode ajudá-lo.
1. Depois de definir a validação de dados, mantenha pressionado o Alt + F11 chaves no Excel para abrir o Janela Microsoft Visual Basic for Applications.
2. Então clique inserção > Móduloe cole a macro a seguir no Janela Módulo.
Código VBA: insira círculos vermelhos nos dados invá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. E, em seguida, pressione F5 para executar este código, e os dados inválidos foram circulados com o oval vermelho, consulte a captura de tela:
4. Quando você imprimir esta planilha que contém os círculos vermelhos, os círculos também serão impressos.
Observação:
Com este código VBA, os círculos não serão removidos com o do Excel Círculos de validação claros recurso, se você deseja excluir os círculos, por favor, aplique o código abaixo.
Código VBA: remover círculos de validação na planilha
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
Artigo relacionado:
Como circular dados inválidos no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!