Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como adicionar marca de seleção em uma célula com duplo clique no Excel?

Normalmente, para inserir uma marca de seleção em uma célula, você precisa entrar na caixa de diálogo Símbolo, encontrar o símbolo da marca de seleção e inseri-la manualmente. Mas não é tão fácil descobrir o símbolo da marca de seleção na caixa de diálogo Símbolo, pois existem numerosos símbolos listados no interior. Como adicionar rapidamente uma marca de seleção em uma célula no Excel? Este artigo irá mostrar-lhe um método VBA para adicionar facilmente marca de seleção em uma célula com o duplo clique apenas.

Clique duas vezes para adicionar marca de seleção em uma célula com código VBA

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair número da string de texto; Extrair ou remover parte de textos; Converta números e moedas em palavras em inglês.
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Dividir dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

arrow blue right bubble Clique duas vezes para adicionar marca de seleção em uma célula com código VBA


O código VBA a seguir pode ajudá-lo a adicionar marca de seleção em uma célula com um duplo clique. Faça o seguinte.

1. Abra a planilha que você precisa adicionar marca de seleção na célula, depois clique com o botão direito do mouse e selecione Ver código no menu do botão direito do mouse.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Código janela.

Código VBA: clique duas vezes para adicionar marca de seleção em uma célula

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

notas: No código, B1: B10 é o intervalo que você adicionará marca de seleção com o duplo clique. Altere-o com base na sua necessidade.

3. aperte o outro + Q chaves para fechar Microsoft Visual Basic para Aplicações janela e volte para a planilha.

Agora, clique duas vezes em qualquer célula no intervalo B1: B10, a marca de seleção será inserida automaticamente. E, novamente, clicar novamente na célula, a marca de seleção inserida será removida.

Gorjeta.Se você precisar freqüentemente usar marcas de seleção ao trabalhar com o Excel, aqui eu recomendo que use o Auto texto Utilidade de Kutools for Excel como abaixo a tela mostrada.

Salve facilmente a marca de seleção como uma entrada de texto automático para recurso usando:

Com o Auto texto utilidade de Kutools for Excel, você pode salvar a marca de seleção como uma entrada de texto automático e, em seguida, reutilizá-la no recurso com apenas um clique.

Uso: Selecione a célula com a marca de seleção, clique no botão Novo AutoTexto botão, especifique um grupo de texto automático para salvar a marca de seleção, nomeie-o e clique no botão Adicionar botão no Novo Auto texto caixa de diálogo. Agora a marca de seleção é adicionada como uma entrada de texto automático, você pode usá-la a qualquer momento, conforme você precisa com apenas um clique sobre ela.

Kutools for Excel inclui mais do que 300 ferramentas úteis do Excel. Gratuito para tentar sem limitação nos dias 30. Baixe o teste gratuito agora


arrow blue right bubbleArtigos relacionados:


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

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luiz Carlos Dias · 1 years ago
    como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente e a célula voltaria ao normar (continuaria apenas o número).
    • To post as a guest, your comment is unpublished.
      Tadao Kano · 10 months ago
      Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 e D2:D5, altere conforme sua necessidade.

      Tadao


      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Is Nothing Then
      Application.EnableEvents = False
      If Left(ActiveCell.Value, 1) = ChrW(&H2713) Then
      ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
      ActiveCell.HorizontalAlignment = xlRight
      Else
      ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
      End If
      Cancel = True
      End If
      Application.EnableEvents = True
      End Sub