Como inserir rapidamente marcas de verificação e cruz em células?

Em uma planilha, podemos inserir as marcas de verificação e cruz usando o recurso Símbolo por padrão, mas será entediante 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 verificação e cruz no Excel.

Inserir marcas de verificação e cruz em células com atalho de caractere

Inserir marcas de verificação e cruz em células com código VBA

Inserir marcas de verificação e cruz em células com atalho de caractere

Para inserir rapidamente as marcas de verificação e cruz, as letras de atalho “a” e “r” podem te ajudar. Por favor, faça o seguinte:

1. Selecione as células da coluna onde deseja inserir as marcas de verificação e cruz, e depois escolha a fonte Webdings na guia Início, veja a captura de tela:

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

Inserir marcas de verificação e cruz em células com código VBA

Aqui está outra maneira rápida e fácil de inserir as marcas de verificação e cruz com apenas cliques.

1. Clique com o botão direito na aba da planilha onde deseja inserir as marcas de verificação e cruz, e depois escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código no Módulo em branco:

Código VBA: Inserir marcas de verificação e cruz em 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

Observação: No código acima, B2:B12 são as células onde você deseja inserir as marcas de verificação e cruz. Você pode alterar a referência da célula conforme necessário.

2. Em seguida, salve o código e feche esta janela. Agora, ao clicar duas vezes em uma célula uma vez, uma marca de cruz é inserida, e ao clicar duas vezes novamente, uma marca de verificação é exibida, veja a captura de tela: