Microsoft Excel bevat een ingebouwde programmeertaal Visual Basic , waarmee je scripts die taken die niet in Microsoft Excel zijn ingebouwd presteren creëren . Deze scripts worden macro's genoemd . Een manier kunt u macro's schrijven is voor hen (ontwikkelaar > Macro opnemen ) op te nemen , en de andere manier is om de Visual Basic geïntegreerde ontwikkelomgeving openen en schrijven van het script met de hand. Het schrijven van scripts op deze manier laat je het script aanpassen aan uw specifieke behoeften . Maar , moet u ofwel een praktische kennis van de Visual Basic taal om scripts te schrijven , of een bestaand script kunt u in de IDE . Valideren van e-mailadressen
Het volgende script valideert e-mailadressen opgeslagen in het eerste werkblad van een Excel-werkmap document. Voer een aantal e-mailadressen in de cellen a1 tot a5 van het werkblad . Maak opzettelijke fouten in sommige van de adressen door het weglaten van het en-teken ( " @ " ) . Na het invoeren van het script in dit artikel , het script ( alt - F8 , " Validate_Emails " ) aan de onjuiste adressen gemarkeerd zien .
Typ de Script
Om te beginnen het typen van het script als je eenmaal hebt geopend Excel , voert u de Visual Basic IDE ( alt - F11 ) . ( U kunt ook kopiëren en plakken het script in plaats van te typen regel voor regel . ) In het deelvenster Project aan de linkerkant , klikt u op de naam van uw Excel-werkmap , selecteer Module invoegen . Dit geeft u een nieuwe module in te voeren.
In de code weergave van de module die u zojuist hebt gemaakt , typt u deze functies , let daarbij goed op het geval van elke letter overeenkomt . Sub
Validate_Emails ( ) Dim arrEmail Zoals VariantDim rc Zoals BooleanarrEmail = Range ( " a1 : a5 " ) . Value
' Controleer e-mailadres van elke cel , nu in een arrayFor i = 1 To UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail ( i , 1 ) ) Als ( rc = False ) Then'Highlight de cel met een ongeldig e addressHilightCell ( i ) End Sub IfNextEnd Overheidsfunctie blnEmailIsOkay
( CellContents als Variant ) zoals Van Boole
p = InStr ( 1 , CellContents , " @ " ) op Als ( p = 0 ) ThenblnEmailIsOkay = FalseElseblnEmailIsOkay = TrueEnd Als End Function
Public Sub HilightCell
( i ) r = " a " & i & " : een " . & i
Met Range ( r ) Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End metend Sub
-----------------------------------
Hoe het werkt
de " arrEmail = " verklaring aan het begin van Validate_Emails kopieert de e-mailadressen van cellen a1 tot a5 in werkblad 1 , tot een interne array ( arrEmail ) .
de For-lus die volgt doorloopt die array , en roept andere functie , blnEmailsIsOkay , te zoeken naar de " @ "-teken nodig is voor e-mailadressen . Als blnEmailsIsOkay niet de ampersand ( onwaar ) , een andere functie , HilightCell , vind is geroepen om de overtredende cel gele verf . De HilightCell functie is een goede plek om te beginnen sleutelen aan en code verkennen , want je details zoals de kleur en andere opmaak opties kunt wijzigen , terwijl de algehele functionaliteit van het programma intact . Bijvoorbeeld , kunt u proberen de highlight kleur van geel naar blauw , of het patroon om iets naast " xlSolid . " Druk op F1 terwijl de cursor over de " . Pattern" en " . Color ' eigenschappen om een idee van de andere opties voor deze eigenschappen krijgen .
|
