? Você pode facilmente criar uma forma de entrada de dados com um botão de encontrar em seu aplicativo do Microsoft Excel usando um " UserForm " e Visual Basic for Applications (VBA). A " UserForm " é uma interface de usuário onde você pode colocar controles, como caixas de texto e botões. VBA é a linguagem de programação que você pode usar para executar o comando "Find" método e procurar texto na folha de cálculo Excel. O método " Localizar " irá procurar por um período e retorna o valor se encontra , caso contrário ele não retorna nada . Instruções
1

Abra o Microsoft Excel, tipo "um" em A1, " dois" em A2, "três" em A3, "quatro" em A4, e "cinco" em A5. Clique na guia "Desenvolvedor" e clique em " Visual Basic ". Clique no menu "Inserir" e clicar em " UserForm " para adicionar um novo formulário. Clique em " Caixa de Texto " no painel de caixa de ferramentas e clique no formulário para adicionar uma nova caixa de texto. Adicionar um novo " rótulo ", usando a mesma técnica. Adicionar " CommandButton " para o seu formulário também usando a mesma técnica .
2

Clique duas vezes no botão para criar um evento de clique do botão. Adicione o seguinte código para definir uma declaração " GoTo " para capturar erros :

Private Sub CommandButton1_Click () On Error GoTo Err_CommandButton1_Click :
3

Definir a variável de cadeia você vai usar para salvar o texto que deseja encontrar em sua planilha:

Dim fINDSTR Como StringfindStr = TextBox1.Text
4

Copie e cole o seguinte código para executar o método "Find" e pesquisar a planilha para o valor inserido no controle caixa de texto:

Me.Label1.Caption = Cells.Find ( What: = fINDSTR , After: = ActiveCell , LookIn : = xlFormulas , LookAt _: = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & " foi encontrado em sua planilha ! "
5

Adicione o seguinte código para acabar com o evento de clique e exibir uma mensagem se a cadeia não foi encontrado :

Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox (" ! a string que você digitou não foi encontrado em sua planilha " ) Retomar Exit_CommandButton1_Click : End Sub
6

Pressione " F5" para executar o programa e digite " dois" no controle de caixa de texto. Pressione " CommandButton1 " para exibir uma mensagem na caixa de mensagens um rótulo ou se o texto não foi encontrado.