Abra o Excel e crie uma nova planilha.
Selecione as células onde você deseja criar o formulário. Por exemplo, se você quiser criar um formulário para coletar informações de contato, pode selecionar as células que correspondem a "Nome", "Endereço", "Telefone" e "E-mail".
Clique na guia "Desenvolvedor". Se a guia não estiver visível, clique em "Arquivo" > "Opções" > "Personalizar Faixa de Opções" e selecione a caixa de seleção "Desenvolvedor", depois clique em "OK".
Na guia "Desenvolvedor", clique em "Inserir" e selecione o tipo de controle que você deseja adicionar ao seu formulário. Por exemplo, se desejar adicionar um campo de texto para que os usuários possam inserir seus nomes, selecione "Caixa de texto".
Clique e arraste a caixa de texto para a célula correspondente na planilha. Repita o processo para cada campo que você deseja adicionar ao formulário.
Depois de adicionar todos os campos, adicione um botão para enviar o formulário. Na guia "Desenvolvedor", clique em "Inserir" e selecione "Botão".
Clique e arraste o botão para uma célula vazia na planilha. Na caixa de diálogo que aparece, selecione a opção "Atribuir macro" e clique em "Novo".
Na janela do editor de macro, digite um nome para a macro, como "Enviar Formulário". Em seguida, adicione o seguinte código:
Sub Enviar_Formulário()
'Enviar formulário para o e-mail do destinatário' Dim Email As String Dim Nome As String Dim Endereço As String Dim Telefone As String Dim E_mail As String ' Obtenha os valores dos campos' Nome = Range("A1").Value Endereço = Range("A2").Value Telefone = Range("A3").Value E_mail = Range("A4").Value ' Insira aqui o endereço de e-mail do destinatário' Email = "destinatario@email.com" ' Envie o e-mail' Set ObjEmail = CreateObject("Outlook.Application").CreateItem(0) With ObjEmail.To = Email.Subject = "Novo formulário enviado".Body = "Novo formulário enviado:" & vbCrLf & vbCrLf & "Nome: " & Nome & vbCrLf & "Endereço: " & Endereço & vbCrLf & "Telefone: " & Telefone & vbCrLf & "E-mail: " & E_mail.Send End With ' Limpe os campos do formulário' Range("A1:A4").ClearContents End Sub
Salve a macro e feche o editor de macro.
Volte para a planilha e selecione o botão "Enviar Formulário". Na caixa de diálogo que aparece, selecione a macro que você acabou de criar e clique em "OK".
Seu formulário está pronto! Para testá-lo, preencha os campos e clique no botão "Enviar Formulário". O Excel enviará um e-mail com os detalhes do formulário para o endereço especificado na macro.