Microsoft Excel indeholder en indbygget programmeringssprog kaldet Visual Basic , som lader dig oprette scripts , der udfører opgaver, der ikke er indbygget i Microsoft Excel. Disse scripts kaldes makroer. En måde du kan skrive makroer , er at optage dem (Udvikler > Optag makro) , og en anden måde er at åbne Visual Basic integrerede udviklingsmiljø og skrive manuskriptet i hånden. Skrivning scripts på denne måde kan du skræddersy script til dine specifikke behov. Men , skal du enten have en praktisk kendskab til Visual Basic sproget til at skrive scripts, eller et eksisterende script , du kan komme ind i IDE. Validering Email Adresser
Følgende script validerer e-mail adresser gemt i det første regneark i en Excel-projektmappe dokument . Indtast nogle e-mail -adresser i cellerne A1 til A5 i regnearket . Gør forsætlige fejl i nogle af adresserne ved at udelade og-tegnet ( "@" ) . Efter indtastning scriptet i denne artikel , skal du køre scriptet ( Alt- F8 , " Validate_Emails " ) for at se de forkerte fremhævet adresser.
Type Script
For at begynde skrive scriptet , når du har åbnet Excel , skal du indtaste Visual Basic IDE ( alt - F11) . (Du kan også kopiere og indsætte scriptet i stedet for at skrive det linie for linie . ) I projektaktiviteterne ruden til venstre , skal du klikke på navnet på din Excel-projektmappe , vælg derefter Indsæt modulet. Dette giver dig et nyt modul , hvor at indtaste koden.
Koden visningen af modulet , du lige har oprettet , skal du skrive disse funktioner , være omhyggelig med at matche for hvert enkelt bogstav.
Sub Validate_Emails ( ) Dim arrEmail Som VariantDim rc Som BooleanarrEmail = Range (" A1: a5 "). Value
'check hver celle e-mail adresse , nu i en arrayFor i = 1 til UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail ( i, 1 ) ) If ( rc = False ) Then'Highlight cellen med en ugyldig email addressHilightCell ( i) End IfNextEnd Sub
Public Function blnEmailIsOkay ( CellContents As Variant ) Som Boolean
< p > p = InStr (1, CellContents , "@" )
p Hvis (p = 0) ThenblnEmailIsOkay = FalseElseblnEmailIsOkay = TrueEnd Hvis
End Function
Public Sub HilightCell (i ) r = "a" & i & " : a". & i
Med Range ( r ) Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 65535.TintAndShade = 0.PatternTintAndShade = 0End WithEnd Sub
-----------------------------------
Sådan fungerer det
" arrEmail = " erklæring i starten af Validate_Emails kopierer e-mail adresser fra cellerne A1 til A5 i regneark 1 , til en intern array ( arrEmail ) .
for løkke der følger gennemløber denne array, og kalder en anden funktion , blnEmailsIsOkay , at søge efter "@" tegnet er nødvendigt for e-mail adresser . Hvis blnEmailsIsOkay ikke finder tegn ( returnerer falsk) , en anden funktion, HilightCell , er kaldet til at male den fejlende celle gul. Den HilightCell funktion er et godt sted at starte fifle med og udforske kode , fordi du kan ændre detaljer som farven og andre formateringsindstillinger , mens den overordnede funktionalitet af programmet intakt. Prøv for eksempel at ændre highlight farve fra gul til blå eller mønstret til noget udover " xlSolid ". Tryk på F1 , mens markøren er over " . Pattern " og " . Color " egenskaber for at få en idé om andre muligheder for disse egenskaber.
