Skip to main content

Como imprimir uma planilha com círculos de validação no Excel?

Author: Xiaoyang Last Modified: 2025-06-04

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:

screenshot of pasting data as picture

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.

screenshot of data validation circles


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:

screenshot of circling invalid data with red oval with VBA

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

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!