Microsoft Excel inclui um built -in linguagem de programação chamada Visual Basic, que permite criar scripts que executam tarefas que não são incorporadas no Microsoft Excel. Estes scripts são chamados de macros. Uma maneira que você pode escrever macros é gravá-los (Developer > Gravar Macro) , e uma outra maneira é abrir o ambiente de desenvolvimento integrado do Visual Basic e escrever o roteiro com a mão. Escrever scripts desta forma permite-lhe adaptar o script para suas necessidades específicas. Mas, você nem precisa de um conhecimento prático da linguagem Visual Basic para escrever scripts ou um script existente você pode entrar no IDE. Validando endereços de email
O script a seguir valida endereços de e-mail armazenados na primeira planilha de um documento de planilha do Excel . Digite alguns endereços de e-mail nas células A1 a A5 da planilha. Cometer erros intencionais em alguns dos endereços , deixando o caráter comercial ( "@") . Depois de inserir o script neste artigo, executar o script (Alt- F8 ", Validate_Emails " ) para ver os endereços incorretos destaque .
Digite o Script
Para começar escrevendo o roteiro , uma vez que você abriu Excel , digite o IDE do Visual Basic ( alt - F11). (Você também pode copiar e colar o script em vez de digitá-lo linha por linha. ) No painel Project à esquerda, clique no nome da sua pasta de trabalho Excel, em seguida, selecione Insert Module. Isto dá-lhe um novo módulo para que você digite código.
Na visão de código do módulo que você acabou de criar , digite estas funções , tendo o cuidado para combinar com o caso de cada letra.
Sub Validate_Emails () Dim arrEmail Como VariantDim rc Como BooleanarrEmail = Range . ( "a1 : a5 " ) Valor
' Verifique o endereço de e-mail de cada célula , agora em uma arrayFor i = 1 To UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail (i , 1)) If ( rc = False) Then'Highlight a célula com um e-mail inválido addressHilightCell ( i) End Sub IfNextEnd
Função Pública blnEmailIsOkay ( CellContents as Variant ) as Boolean
p = InStr (1, CellContents , "@")
Se (p = 0) = ThenblnEmailIsOkay FalseElseblnEmailIsOkay = TrueEnd Se
End Function
Public Sub HilightCell (i ) r = "a" & i & " : a". & i
Com Range ( r) = Interior.Pattern xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End comend Sub
-----------------------------------
Como funciona
o " arrEmail =" declaração no início do Validate_Emails copia os endereços de email de células de A1 a A5 na planilha 1 , para uma matriz interna ( arrEmail ) .
o loop que segue itera através dessa matriz e chama outra função , blnEmailsIsOkay , para procurar o caractere "@ " necessário para endereços de email. Se blnEmailsIsOkay não encontrar o comercial ( retorna false) , outra função , HilightCell , é chamado para pintar a célula ofensora amarelo. A função HilightCell é um bom lugar para começar a mexer com e explorar código, porque você pode mudar detalhes como a cor e outras opções de formatação , deixando a funcionalidade geral do programa intacto. Por exemplo , tente alterar a cor de realce de amarelo para azul, ou o padrão para algo além de " xlSolid ". Pressione a tecla F1 quando o cursor está sobre o " . Padrão " e " Cor " . Propriedades para ter uma idéia de outras opções para essas propriedades.
