Como Inserir no Excel Caixa de Seleção

Para inserir uma caixa de seleção no Excel, siga os seguintes passos:

  1. Abra a planilha do Excel onde deseja inserir a caixa de seleção.

  2. Clique na guia "Desenvolvedor" na faixa de opções do Excel.

  3. Se você não vê a guia Desenvolvedor, clique com o botão direito do mouse na faixa de opções e selecione a opção "Personalizar Faixa de Opções". Na janela de opções, marque a caixa de seleção "Desenvolvedor" e clique em OK.

  4. Na guia Desenvolvedor, clique no botão "Inserir" e selecione a opção "Caixa de Seleção" na seção "Controles de Formulário".

  5. Clique na célula onde deseja inserir a caixa de seleção.

  6. Na caixa de diálogo "Formatar Controle de Caixa de Seleção", selecione a opção "Atribuir Macro" na guia "Controle".

  7. Clique no botão "Nova" para criar uma nova macro.

  8. No editor de código VBA, insira o seguinte código:

Sub NomeDaMacro() If ActiveSheet.Shapes("NomeDaCaixaDeSeleção").OLEFormat.Object.Value = 1 Then ActiveSheet.Range("A1").Value = "Selecionado" Else ActiveSheet.Range("A1").Value = "Não selecionado" End If End Sub

  1. Altere "NomeDaMacro" para um nome de sua escolha e "NomeDaCaixaDeSeleção" para o nome da sua caixa de seleção.

  2. Pressione "Alt + Q" para fechar o editor de código VBA.

  3. Clique em OK para fechar a caixa de diálogo "Formatar Controle de Caixa de Seleção".

  4. Clique na caixa de seleção para selecioná-la e clique no botão "Design Mode" na guia Desenvolvedor para sair do modo de design.

Agora, quando você clicar na caixa de seleção, a macro será executada e o valor "Selecionado" ou "Não selecionado" será inserido na célula A1 da planilha.

Veja também mais Como Fazer com a letra C

Comentários