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

Surpreendente! Usando guias eficientes no Excel, como Chrome, Firefox e Safari!

Economize 50% do seu tempo e reduza milhares de cliques do mouse para você todos os dias!

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?

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office 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!

Leia mais... Download grátis... Compra...