Note: The other languages of the website are Google-translated. Back to English

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, localizar o símbolo da marca de seleção e inseri-lo manualmente. Mas não é tão fácil descobrir o símbolo de marca de seleção na caixa de diálogo Símbolo, pois há vários símbolos listados dentro. Como adicionar rapidamente uma marca de seleção em uma célula no Excel? Este artigo mostrará um método VBA para adicionar facilmente uma marca de seleção em uma célula apenas com um clique duplo.

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


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

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

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

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

Nota: No código, B1: B10 é o intervalo que você adicionará com um clique duplo. Por favor, mude de acordo com sua necessidade.

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

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

Se você precisa usar frequentemente as marcas de seleção em seu trabalho diário do Excel, aqui eu recomendo o Auto texto Utilidade de Kutools for Excel. Com este recurso, você pode salvar uma marca de seleção como uma entrada de texto automática e, em seguida, reativá-la no futuro com apenas um clique no Excel, conforme mostrado na demonstração abaixo.
Baixe e experimente agora! (30-dia de trilha livre)


Artigos relacionados:


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 ...
  • Barra Super Fórmula (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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

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!
parte inferior da aba do escritório
Comentários (11)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
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 célula voltaria ao normal (continuaria apenas o número).
Este comentário foi feito pelo moderador no site
Ola Luiz, tente essa alteração. Ira funcionar nas células 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"))) É Nada Então
Application.EnableEvents = False
Se Left(ActiveCell.Value, 1) = ChrW(&H2713) Então
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Outro
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Se acabar
Cancelar = Verdadeiro
Se acabar
Application.EnableEvents = True
End Sub
Este comentário foi feito pelo moderador no site
Existe uma maneira de fazer um loop nesse código para que ele esteja em muitas planilhas em uma pasta de trabalho?
Este comentário foi feito pelo moderador no site
Oi leoflute, depois de pressionar o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela, por favor clique duas vezes Esta pasta de trabalho para abrir o ThisWorkbook (Code) janela e, em seguida, copie o código abaixo na janela de código. Não se esqueça de alterar os nomes das planilhas e o intervalo de células no código. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Atualizado por Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName como string
Dim xEEBol, xWSNBol, xBol como booleano
Escurecer xArrWs
Dim xArrRg
Dim xI, xJ como inteiro
Dim xWs como planilha
Dim xRg como intervalo

xStrWs = "Plan5, Sheet1, Sheet2" 'Os nomes específicos das planilhas
xStrRg = "B3: B10" 'O intervalo de células que você irá inserir marcas de seleção
xArrWs = Split(xStrWs, ","")
xArrRg = Split(xStrRg, ","")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Name
xBol = Falso
xWSNBol = Falso
Para xI = 0 Para UBound(xArrWs)
Se xStrWsName = xArrWs(xI) Então
xWSNBol = Verdadeiro
Sair para
Se acabar
Próximo xI

Se xWSNBol Então
Definir xWs = Application.Worksheets.Item(xArrWs(xI))
Para xJ = 0 Para UBound(xArrRg)
Definir xRg = Sh.Range(xArrRg(xJ))
Se não se cruzar (alvo, xRg) não é nada, então
xBol = Verdadeiro
Sair para
Se acabar
Próximo xJ
Se acabar

Se xBol Então
Se ActiveCell.Value = ChrW(&H2713) Então
ActiveCell.ClearContents
Outro
ActiveCell.Value = ChrW(&H2713)
Se acabar
Cancelar = Verdadeiro
Se acabar
Application.EnableEvents = xEEBol
End Sub

Este comentário foi feito pelo moderador no site
Olá! O que eu adicionaria ao código acima para que a célula mudasse de cor quando a caixa de seleção fosse adicionada?
Este comentário foi feito pelo moderador no site
Oi cristal
existe uma maneira de ter marcas de seleção em A1: A10 junto com B3: B10?
Este comentário foi feito pelo moderador no site
Como faço para repetir isso para várias colunas? 
Por exemplo, eu preciso disso no seguinte:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Este comentário foi feito pelo moderador no site
Eu gostaria de saber se é possível adicionar uma marca com apenas um clique ao invés de dois.
Este comentário foi feito pelo moderador no site
Olá Ulisses Nonato,
Se você deseja adicionar uma marca de seleção a uma célula com apenas um clique do mouse, o código VBA a seguir pode ser um favor.
Você precisa clicar no direito do mouse botão para ativar o código.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    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
Este comentário foi feito pelo moderador no site
Como faço para adicionar um carimbo de data/hora na célula adjacente após o clique duplo?
Este comentário foi feito pelo moderador no site
Olá Sora,
O código VBA a seguir pode fazer um favor a você. Por favor, tente. Obrigada.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL