Segue abaixo um exemplo de código em VBA que atende aos requisitos solicitados: ``` Sub AntecessorSucessor() Dim num As Integer num = Range("A1").Value 'obtém o número da célula A1 da planilha ativa Range("B1").Value = num - 1 'exibe o antecessor na célula B1 da planilha ativa Range("C1").Value = num + 1 'exibe o sucessor na célula C1 da planilha ativa End Sub ``` Para associar esse procedimento a um botão em uma planilha, siga os passos abaixo: 1. Na guia "Desenvolvedor", clique em "Inserir" e selecione "Botão de comando" na seção "Controles de formulário". 2. Desenhe o botão na planilha e, na janela que aparecerá, selecione "Atribuir macro". 3. Selecione a macro "AntecessorSucessor" e clique em "OK". 4. Pronto! Agora, ao clicar no botão, o antecessor e sucessor do número da célula A1 serão exibidos nas células B1 e C1, respectivamente.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar