Usar Excel embutido linguagem de programação Visual Basic for Applications, ou VBA, para substituir uma string dentro de aspas ao usar a função dessa linguagem Substituir. Essa função procura por um substring especificado dentro de uma cadeia maior, em seguida, substitui a substring com uma terceira corda que você fornecer. Note-se que esta operação não altera a string original , mas gera uma nova seqüência de caracteres , o que você pode capturar em uma nova variável de cadeia. Você pode usar o que você aprendeu neste projeto para remover aspas supérfluos que os usuários de seus programas VBA entram em planilhas . Instruções
1
Clique no botão " Option" do menu " Arquivo", em seguida, clique no controle " Customize Ribbon " no painel " Categorias" . Clique na caixa de seleção "Developer" para indicar que você deseja exibir essa guia , em seguida, fechar todas as caixas de diálogo abertas . Excel irá agora exibir a guia "Desenvolvedor" . Esta etapa permite que você digite o ambiente de desenvolvimento VBA através do botão " desenvolvedores" da aba " Visual Basic" .
2
Clique na guia "Desenvolvedor" , clique em " Visual Basic" botão para entrar no ambiente de programação Visual Basic for Applications . Clique na guia "Inserir" dentro do ambiente , em seguida, clique no comando "Module" para inserir uma nova janela para inserir declarações VBA.
3
Cole o seguinte parte do programa para a janela você acabou de criar. Este fragmento define uma variável de cadeia e atribui a ele uma corda que está dentro de aspas. O fragmento usa a instrução Chr para adicionar as aspas . Se você tentar adicionar as aspas , sem uma função de ajudar como Chr, o ambiente de desenvolvimento irá relatar um erro de sintaxe . A razão é que o verificador de sintaxe VBA interpreta cada par de aspas literais como uma nova string.
Sub replaceQuotedString ( ) Dim x , longerString , newString Como Stringx = Chr (34 ) & " abc" e , Chr (34 ) End Sub
4
cole o fragmento de programa seguinte após o último "X =" instrução no fragmento anterior. Este fragmento faz uma designação para duas novas cadeias. A primeira tarefa é a string " longerString ", e inclui a variável "X" com suas aspas. A função Replace executa a segunda tarefa , que é a esta função substitui uma substring de uma longa seqüência por outra seqüência
longerString = " Vamos substituir esta string: " " newString . " . & XnewString = Replace ( longerString , x, "abc" )
5
Clique em qualquer declaração no programa, em seguida, pressione "F8" para entrar no modo para a execução de programas de uma instrução de cada vez. Pressione " F8" repetidamente até que a instrução com " newString " é realçado.
6
Passe o mouse sobre a variável " longerString " . VBA irá exibir o valor da seqüência , que inclui a variável X com sua seqüência citada, "abc ".
7
Pressione " F8" novamente para executar a instrução substituir, e passar o mouse sobre a variável " newString " . VBA exibirá uma string com o mesmo valor de " longerString ", mas com uma nova seqüência no lugar da parte "abc ", citou . A nova seqüência é " abc" , sem as aspas.