Ir para o conteúdo principal

 Como inserir rapidamente marcas de escala e cruz nas células?

Em uma planilha, podemos inserir as marcas de escala e cruz usando o recurso Símbolo por padrão, mas será chato se você puder inserir apenas um símbolo de cada vez. Neste artigo, vou falar sobre alguns truques para você inserir rapidamente as marcas de visto e cruz no Excel.

Insere marcas de verificação e cruz nas células com caracteres de atalho

Insira marcas de visto e cruz em células com código VBA


Insere marcas de verificação e cruz nas células com caracteres de atalho

Para inserir rapidamente as marcas de visto e cruz, as letras de atalho “a” e “r” podem lhe fazer um favor. Por favor, faça o seguinte:

1. Selecione as células da coluna onde deseja inserir as marcas de visto e cruz e, em seguida, escolha o Webdings fonte sob o Home page guia, veja a captura de tela:

2. Agora, quando você inserir a letra “a” na célula, ela se tornará uma marca de seleção, e se você digitar a letra “r”, ela se tornará uma marca de cruz, veja a imagem:


Insira marcas de visto e cruz em células com código VBA

Aqui está outra maneira rápida e fácil de inserir as marcas de visto e cruz apenas com cliques.

1. Clique com o botão direito na guia da folha em que deseja inserir marcas de escala e cruz e escolha Ver código a partir do menu de contexto, no aberto Microsoft Visual Basic para aplicativos janela, copie e cole o seguinte código no módulo em branco:

Código VBA: insira marcas e marcas de cruz nas células:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

Note: No código acima, B2: B12 são as células onde você deseja inserir a marca e as marcas de cruz, você pode alterar a referência da célula conforme sua necessidade.

2. Em seguida, salve o código e feche este código, agora, ao clicar duas vezes em uma célula uma vez, uma marca de cruz é inserida, e ao clicar duas vezes uma segunda vez, uma marca de verificação é exibida, veja a imagem:


Salve os símbolos específicos e insira-os onde você precisar:

A Auto texto característica de Kutools for Excel pode ajudá-lo a salvar os símbolos, fórmulas, dados ou outros itens específicos no painel Autotexto, e então você pode reutilizá-los em qualquer lugar no arquivo Excel de que precisar.

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wondering how to add more ranges to 'If Not Intersect(Target, Range("B2:B12")) Is Nothing Then' for example I have a number of cell ranges such as D2,D12 then F7,F32 how can I add this macro to all the cells? Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations