|
Microsoft Excel intègre un langage de programmation appelé Visual Basic, qui vous permet de créer des scripts qui exécutent des tâches qui ne sont pas intégrées dans Microsoft Excel. Ces scripts sont appelés macros. Une façon vous pouvez écrire des macros est de les enregistrer ( développeur> Enregistrer une macro ) , et une autre façon est d'ouvrir l'environnement de développement intégré Visual Basic et écrire le script à la main. Ecriture de scripts de cette façon , vous pouvez adapter le script à vos besoins spécifiques . Mais, vous avez besoin soit d'une connaissance pratique du langage Visual Basic pour écrire des scripts , ou un script existant , vous pouvez entrer dans l'IDE . Validation des adresses email
Le script suivant valide les adresses électroniques stockées dans la première feuille d'un document de classeur Excel. Entrez des adresses e-mail dans les cellules A1 à A5 de la feuille de calcul. Faire des erreurs intentionnelles dans certaines des adresses en précisant le caractère esperluette ( "@") . Après avoir entré le script dans cet article , exécutez le script (Alt- F8 , " Validate_Emails " ) pour voir les adresses incorrectes mis en évidence.
Tapez le script
Pour commencer taper le script une fois que vous avez ouvert Excel , entrez le Visual Basic IDE ( alt- F11). (Vous pouvez également copier et coller le script au lieu de taper ligne par ligne . ) Dans le volet de projet à gauche , cliquez sur le nom de votre classeur Excel, puis sélectionnez Module d'insertion . Cela vous donne un nouveau module dans lequel entrer le code .
Dans la vue de code du module que vous venez de créer , tapez ces fonctions , en faisant attention à la casse de chaque lettre .
Sub Validate_Emails ( ) Dim arrEmail Comme VariantDim rc Comme BooleanarrEmail = Range (" A1 : A5 " ) . Value
«Vérifier l'adresse électronique de chaque cellule , maintenant dans un arrayFor i = 1 To UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail (i, 1) ) If ( rc = False ) Then'Highlight la cellule avec un e-mail addressHilightCell invalide ( i) End Sub IfNextEnd
de blnEmailIsOkay de la fonction publique ( CellContents As Variant ) As Boolean
p = InStr (1, CellContents , "@")
Si (p = 0) = ThenblnEmailIsOkay FalseElseblnEmailIsOkay = TrueEnd Si
Fin de Fonction: public Sub HilightCell (i ) r = "a" & i & " : un " . & i
Range ( r) = Interior.Pattern xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End WithEnd Sous
-----------------------------------
Comment ça marche
" arrEmail =" instruction au début de Validate_Emails copie les adresses e-mail à partir de cellules a1 à A5 dans la feuille 1, pour un tableau interne ( arrEmail ) . Photos la boucle qui suit une itération sur ce tableau et appelle une autre fonction , blnEmailsIsOkay , pour rechercher le caractère «@» nécessaire pour les adresses e-mail . Si blnEmailsIsOkay ne trouve pas l'esperluette ( retourne false ) , une autre fonction , HilightCell , est appelé pour peindre le jaune de la cellule incriminée. La fonction HilightCell est un bon endroit pour commencer à bricoler avec et explorer code, parce que vous pouvez modifier les détails comme la couleur et d'autres options de mise en forme , tout en laissant la fonctionnalité globale du programme intact. Par exemple , essayez de changer la couleur de surlignage du jaune au bleu , ou le motif à quelque chose de plus " xlSolid . " Appuyez sur F1 lorsque le curseur est sur la . " Pattern" et " Color" . Propriétés pour avoir une idée des autres options pour ces propriétés.
|
