Como imprimir uma planilha com círculos de validação no Excel?
Em alguns casos, podemos circular alguns dados inválidos para destacá-los, mas, quando você precisa imprimir a planilha com os círculos de validação, os círculos não serão impressos. Você já enfrentou esse problema no Excel? Hoje, mostrarei alguns truques rápidos para resolver essa tarefa.
Imprimir planilha com círculos de validação colando-os como imagem
Imprimir planilha com círculos de validação usando código VBA
Imprimir 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 círculos de validação como imagem e depois imprimi-lo.
1. Selecione o intervalo de dados que deseja imprimir os círculos.
2. Pressione as teclas Ctrl + C no teclado para copiá-lo e, em seguida, vá para uma nova planilha, clique em uma célula, clique com o botão direito do mouse, escolha Colar Especial > Imagem, veja a captura de tela:
3. E então sua seleção foi colada como imagem, e agora, ao imprimir a nova planilha, os círculos serão impressos com sucesso.
Imprimir planilha com círculos de validação usando 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. Após configurar a validação de dados, pressione as teclas Alt + F11 no Excel para abrir a janela Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.
Código VBA: Inserir 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 então pressione a tecla F5 para executar este código, e os dados inválidos serão circulados com o oval vermelho, veja a captura de tela:
4. Quando você for 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 recurso Limpar Círculos de Validação do Excel. Se você quiser excluir os círculos, 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 para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins