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

Como inserir rapidamente várias caixas de seleção no Excel?

Como podemos inserir rapidamente várias caixas de seleção no Excel? Siga estes métodos complicados no Excel:

Insira várias caixas de seleção com a alça de preenchimento

Insira várias caixas de seleção com o código VBA

Insira e exclua várias caixas de seleção com um clique usando o Kutools para Excel


seta azul bolha direita Insira várias caixas de seleção com a alça de preenchimento

No Excel, Fill Handle é uma função poderosa para fazer muitas coisas. Ele também pode preencher as caixas de seleção. Primeiro, você deve inserir uma caixa de seleção. Faça o seguinte:

1. Clique Desenvolvedor na barra de menu e clique em inserçãoe escolha a imagem da caixa de seleção em Controle de formulário. Veja a imagem:

doc-insert-multiple-checkboxes1

2. Clique na imagem da caixa de seleção e você verá o ponteiro do sinal de mais, clique onde deseja adicionar a caixa de seleção.

doc-insert-multiple-checkboxes2

3. Marque a caixa de seleção e mova-a para uma célula e exclua o nome da caixa de seleção.

4. Em seguida, selecione a célula onde a caixa de seleção permanece. E arraste a alça de preenchimento sobre o intervalo de células que deseja preencher. Veja a imagem:

doc-insert-multiple-checkboxes3


Insira várias caixas de seleção nas seleções com um clique:

Kutools for Excel's Caixas de seleção de inserção de lote O utilitário pode ajudá-lo a inserir rapidamente várias caixas de seleção de uma vez. Clique para baixar gratuitamente este recurso.

doc inserir várias caixas de seleção 10

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!


seta azul bolha direita Insira várias caixas de seleção com o código VBA

Se você acha que o primeiro método é um tanto problemático, o código VBA a seguir pode ajudá-lo a inserir várias caixas de seleção de maneira fácil e rápida.

1. Clique Desenvolvedor > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe insira o seguinte código no Módulo:

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2. Então clique doc-multiplicação-cálculo-3 botão para executar o código. E uma caixa de prompt aparecerá para lembrá-lo de selecionar um intervalo de células nas quais deseja inserir as caixas de seleção. Veja a imagem:

doc-insert-multiple-checkboxes4

3. E, em seguida, clique em OK, as caixas de seleção foram inseridas na faixa de maneira limpa e bonita. Veja a imagem:

doc-insert-multiple-checkboxes5


seta azul bolha direita Insira várias caixas de seleção com o Kutools para Excel

Aqui, posso apresentar a você uma maneira fácil e prática de inserir várias caixas de seleção-Kutools for Excel, Com o seu Caixa de seleção de inserção de lote recurso, você pode inserir as caixas de seleção em células em branco ou células com dados.

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

Depois de instalar Kutools for Excel, siga os seguintes passos:

1. Selecione um intervalo de células que deseja inserir nas caixas de seleção.

2. Clique Kutools > inserção > Caixas de seleção de inserção de lote, veja a captura de tela:

doc-insert-multiple-checkboxes06

3. Em seguida, as células selecionadas foram preenchidas com as caixas de seleção conforme as seguintes capturas de tela mostradas:

Insira as caixas de seleção nas células em branco Insira as caixas de seleção nas células de dados
doc-insert-multiple-checkboxes7 doc-insert-multiple-checkboxes8

Dicas. Se você deseja excluir rapidamente várias caixas de seleção, tente usar o Kutools for Excel'S Excluir caixas de seleção como mostrado na imagem a seguir. Funciona sem limitações em 60 dias, faça o download e tenha um teste gratuito agora.

doc-insert-multiple-checkboxes9

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!


seta azul bolha direita Insira e exclua várias caixas de seleção com o Kutools para Excel

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!

Artigo relacionado:

Como excluir rapidamente várias caixas de seleção 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 ...
  • 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-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.
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 (51)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Excelente macro que funciona lindamente para inserir caixas de seleção rápida e facilmente em um intervalo selecionado; obrigado. Você consideraria mostrar um exemplo de macro para inserir em um intervalo selecionado uma lista suspensa personalizada com três opções: "Sim", "Não" e "Talvez"?
Este comentário foi feito pelo moderador no site
Grande truque... Gostei.
Este comentário foi feito pelo moderador no site
Por que há apenas um menino nesta classe????
Este comentário foi feito pelo moderador no site
[quote]Por que há apenas um menino nesta classe????Por Daniel[/quote] :lol: Isso é apenas para demonstração.
Este comentário foi feito pelo moderador no site
excelentes trabalhos de macro adicionam caixa de seleção na célula, obrigado :-)
Este comentário foi feito pelo moderador no site
Excelente trabalho. Obrigado :roll:
Este comentário foi feito pelo moderador no site
IMPRESSIONANTE! Muito obrigado!
Este comentário foi feito pelo moderador no site
Quando fiz isso, tudo funcionou muito bem (Obrigado!), exceto quando as caixas estão marcadas, ele automaticamente tem uma cor de preenchimento amarela na célula. Como faço para chegar onde a única coisa que acontece é a caixa estar marcada, sem cor de preenchimento? Obrigado!
Este comentário foi feito pelo moderador no site
[quote]Quando eu fiz isso, tudo funcionou muito bem (Obrigado!), exceto quando as caixas estão marcadas, ele automaticamente tem uma cor de preenchimento amarela na célula. Como faço para chegar onde a única coisa que acontece é a caixa estar marcada, sem cor de preenchimento? Obrigado!Por #Sean[/quote] Apenas mude a linha como diz nos comentários: .FormatConditions(1).Interior.ColorIndex = 6 'troca para outra cor quando marcada Deixe completamente se você não quiser uma mudança de cor. Saúde!
Este comentário foi feito pelo moderador no site
Eu fiz isso, mas quando verifico um boc, todos estão sendo verificados juntos. como posso separá-los?
Este comentário foi feito pelo moderador no site
O código funciona muito bem! Eu edito a cor agora eu gostaria de centralizar as caixas de seleção em cada célula, alguma ideia do que eu precisaria modificar para isso? Obrigado!
Este comentário foi feito pelo moderador no site
[quote]O código funciona muito bem! Eu edito a cor agora eu gostaria de centralizar as caixas de seleção em cada célula, alguma ideia do que eu precisaria modificar para isso? Obrigado!Por Violeta[/quote] Para cada Rng em WorkRng com Ws.CheckBoxes.Add((Rng.Offset(0, 1).Left - Rng.Left) / 2 + Rng.Left - CkBoxSize, Rng.Top, 0.33, Rng.Height ) .Characters.Text = Rng.Value End With
Este comentário foi feito pelo moderador no site
Ele continua me dando um erro quando eu abro que tinha que corrigir erros? Alguma ajuda? Se alguém quiser ajudar, postarei o relatório que estou recebendo do escritório da Microsoft.
Este comentário foi feito pelo moderador no site
As caixas de seleção ficam um pouco loucas quando você as copia com suas células vinculadas. Eu tive que escrever uma coisa para redefinir a vinculação para quando eu quiser copiar essas células em outro lugar.
Este comentário foi feito pelo moderador no site
Podemos então filtrar essas caixas de seleção? Basicamente exibir apenas aqueles que compareceram?
Este comentário foi feito pelo moderador no site
Podemos então filtrar essas caixas de seleção? Basicamente exibir apenas aqueles que compareceram?
Este comentário foi feito pelo moderador no site
Sim totalmente. As caixas de seleção são realmente independentes das células. Eles basicamente flutuam sobre a planilha e são vinculados a uma célula por endereço inserindo valores True e False quando clicados (ou N/A se você definir uma caixa de seleção de três estados). Mas quando você filtra no Excel, ele oculta linhas específicas. Ele não ocultará as caixas de seleção. Eu realmente não sugiro filtrar com esta macro. Coisas estranhas acontecerão e você pode não perceber quando há várias caixas de seleção sobrepostas ou que duas caixas de seleção estão vinculadas a uma célula e uma célula não está vinculada a nenhuma caixa de seleção. O que costumo fazer é criar uma lista e, em vez de marcar, digitar 1 ou 0 na célula adjacente e, em seguida, total. Você pode até mesmo fazer uma tabela dinâmica se suas informações ficarem complicadas. Por exemplo, digamos que você tenha outra coluna com o sexo dos participantes. Você poderia descobrir quantos homens e quantas mulheres compareceram.
Este comentário foi feito pelo moderador no site
Muito obrigado!, pela caixa de seleção.
Este comentário foi feito pelo moderador no site
Existe uma maneira de fazer com que o texto da caixa de seleção seja o texto da célula selecionada?
Este comentário foi feito pelo moderador no site
Sim. Sim existe. Há sempre uma maneira.
Este comentário foi feito pelo moderador no site
[citação] Sim. Sim existe. Há sempre uma maneira.Por Danny[/quote] Tudo bem. Como eu conseguiria isso. Eu não sou bem versado na sintaxe do Excel. Eu tentei .text e .value (para c no código acima). Com resultados incorretos. Eu tentei uma infinidade de coisas que normalmente seriam o resultado, mas sem sorte. O que eu tenho é uma grande lista de itens que gostaria de substituir o marcador por uma caixa de seleção e fazer com que o valor e o texto dessa caixa fossem o texto original do item de marcador
Este comentário foi feito pelo moderador no site
Ei pessoal, isso é tão útil - obrigado! Pergunta rápida, sou completamente inexperiente com esse tipo de coisa, então desculpe se for estúpido! Gostaria de ter apenas caixas de marcação (sem o verdadeiro ou falso) e gostaria que as caixas ficassem amarelas quando não marcadas, mas sem preenchimento uma vez marcada, para indicar alunos que não entregaram rascunhos e avaliação, etc. possível? Alguém poderia postar o código real para isso ou me orientar? Muito obrigado antecipadamente!!!
Este comentário foi feito pelo moderador no site
como alterar o endereço de referência para várias caixas de seleção
Este comentário foi feito pelo moderador no site
Tenho uma planilha excel que tem uma pergunta e depois a direita tem outras colunas "Controles atendidos, coluna f e G com check boxes que foram marcados, coluna F sim ou coluna G não. Só quero usar o filtro para obter cada um dos rolos que tem uma marca de verificação, mas o filtro não vê a marca de verificação
Este comentário foi feito pelo moderador no site
como mudar o endereço do celular
Este comentário foi feito pelo moderador no site
Sub RelinkCheckBoxes() 'Você seleciona células que incluem as caixas de seleção que estão agindo de forma estranha. 'Então você executa a macro. 'Ele altera essas caixas de seleção para que as células vinculadas correspondam às células abaixo. 'Também faz com que o texto da caixa de seleção se transforme no texto da célula. Dim ckbox As Shape Dim rngLinkedCell As Range If ActiveSheet.CheckBoxes.Count = 0 Then Exit Sub 'Test that selection is a range. Se TypeName(Selection) "Range" Then Exit Sub For Each ckbox In ActiveSheet.Shapes 'Teste se a forma é um controle. If ckbox.Type = msoFormControl Then 'testa se o controle é uma caixa de seleção If ckbox.FormControlType = xlCheckBox Then 'encontra a célula sob a caixa de seleção que está dentro da seleção Set rngLinkedCell = Application.Intersect(ckbox.TopLeftCell, Selection) 'atribui um novo endereço de link e renomeie a caixa de seleção para corresponder. Se não rngLinkedCell não for nada, então com ckbox .OLEFormat.Object.LinkedCell = rngLinkedCell.Address .Name = rngLinkedCell.Address .TextFrame.Characters.Text = rngLinkedCell.Text Terminar com End If End If End If Next
Este comentário foi feito pelo moderador no site
O código funcionou muito bem. Obrigada!
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos