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

Como podemos inserir rapidamente várias caixas de seleção no Excel? Por favor, siga estes métodos engenhosos no Excel:

Inserir várias caixas de seleção com a Alça de Preenchimento

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

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

Inserir várias caixas de seleção com a Alça de Preenchimento

No Excel, a Alça de Preenchimento é uma função poderosa para fazer muitas coisas. Ela também pode preencher as caixas de seleção. Primeiro, você deve inserir uma caixa de seleção. Siga os passos abaixo:

1. Clique em Desenvolvedor na barra de menu, depois clique em Inserir e escolha a imagem da caixa de seleção em Controle de Formulário. Veja a captura de tela:

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

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

4. Em seguida, selecione a célula onde a caixa de seleção está localizada. Depois, arraste a alça de preenchimento sobre o intervalo de células que deseja preencher. Veja a captura de tela:

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

Se você acha que o primeiro método é um pouco complicado, o seguinte código VBA pode ajudá-lo a inserir facilmente e rapidamente várias caixas de seleção.

1. Clique em Desenvolvedor > Visual Basic, uma nova janela Microsoft Visual Basic para Aplicativos será exibida, clique em Inserir > Módulo e 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. Em seguida, clique no botão para executar o código. Uma caixa de aviso aparecerá para lembrá-lo de selecionar um intervalo de células onde deseja inserir as caixas de seleção. Veja a captura de tela:

3. E então clique em OK, as caixas de seleção foram inseridas no intervalo de forma organizada e bonita. Veja a captura de tela:

Inserir várias caixas de seleção com o Kutools para Excel

Aqui, posso apresentar-lhe uma maneira fácil e prática de inserir várias caixas de seleção - Kutools para Excel, com o recurso Inserir Caixas de Seleção em Lote, você pode inserir as caixas de seleção em células em branco ou células com dados.

Após instalar o Kutools para Excel, siga os passos abaixo:

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

2. Clique em Kutools > Inserir > Inserir Caixas de Seleção em Lote, veja a captura de tela:

3. Então suas células selecionadas serão preenchidas com as caixas de seleção conforme mostrado nas capturas de tela a seguir:

Inserir caixas de seleção em células em branco	Inserir caixas de seleção em células com dados

Artigo Relacionado:

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