Microsoft Excel include un built-in linguaggio di programmazione chiamato Visual Basic , che consente di creare script che eseguono compiti che non sono incorporati in Microsoft Excel . Vengono chiamati questi script macro. Un modo è possibile scrivere macro è quello di registrarli ( sviluppatore> Registra macro ) , e un altro modo è quello di aprire l'ambiente di sviluppo integrato di Visual Basic e di scrivere la sceneggiatura a mano. La scrittura di script in questo modo consente di adattare lo script alle proprie esigenze specifiche . Ma , hai bisogno di una buona conoscenza del linguaggio Visual Basic per scrivere script , o di uno script esistente è possibile inserire nell'IDE . Convalida indirizzi e-mail

Il seguente script di convalida gli indirizzi e-mail memorizzati nel primo foglio di lavoro di un documento di lavoro di Excel . Inserire alcuni indirizzi e-mail in celle da A1 a A5 del foglio di lavoro . Commettere errori intenzionali in alcuni degli indirizzi , lasciando fuori il carattere e commerciale ( " @ " ) . Dopo aver inserito lo script in questo articolo, eseguire lo script (Alt- F8 , " Validate_Emails " ) per vedere gli indirizzi errati evidenziati .
Tipo Script

Per iniziare digitando lo script una volta che hai aperto su Excel , inserire il Visual Basic (ALT- F11 ) . ( È anche possibile copiare e incollare lo script invece di digitare riga per riga . ) Nel riquadro del progetto a sinistra , fare clic sul nome della cartella di lavoro di Excel , quindi selezionare Inserisci modulo . Questo vi dà un nuovo modulo in cui inserire il codice .

Nella visualizzazione codice del modulo appena creato, digitare queste funzioni , facendo attenzione per abbinare il caso di ogni lettera .

Sub Validate_Emails ( ) Dim arrEmail Come VariantDim rc Come BooleanarrEmail = Range (" A1: A5 " ) . Valore

'Controlla l'indirizzo email di ogni cella , ora in un arrayFor i = 1 To UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail (i, 1) ) If ( rc = False) Then'Highlight la cella con una e-mail addressHilightCell valido ( i) End Sub IfNextEnd

Public Function blnEmailIsOkay ( CellContents As Variant) Come
booleano < p > p = InStr ( 1 , CellContents , "@" ) per

Se ( p = 0 ) = ThenblnEmailIsOkay FalseElseblnEmailIsOkay = TrueEnd Se

End Function

Public Sub HilightCell (i ) r = "a" & i & " : una " . & i

Con Gamma ( r) = Interior.Pattern xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End WithEnd Sub

-----------------------------------

Come funziona

" arrEmail =" dichiarazione di inizio Validate_Emails copia gli indirizzi e-mail da celle da A1 a A5 nel foglio 1 , ad una matrice interna ( arrEmail ) .

il ciclo For che segue itera tale matrice , e chiama un'altra funzione , blnEmailsIsOkay , per cercare il carattere necessario per gli indirizzi email "@" . Se blnEmailsIsOkay non trova la e commerciale (false dichiarazioni ) , un'altra funzione , HilightCell , è chiamato a dipingere il giallo cella incriminata . La funzione HilightCell è un buon posto per iniziare ad armeggiare con e per esplorare il codice , perché è possibile modificare dettagli come il colore e le altre opzioni di formattazione , lasciando la funzionalità complessiva del programma intatto . Per esempio , provare a cambiare il colore di evidenziazione dal giallo al blu , o il modello di qualcosa oltre " xlSolid . " Premere F1 mentre il cursore è sopra il " colore". Oggetti da avere un'idea di altre opzioni per queste proprietà . " Pattern" ed .