Microsoft Excel Visual Basic makrá Jednoduchá

Microsoft Excel obsahuje vstavaný programovací jazyk Visual Basic , ktorý umožňuje vytvárať skripty , ktoré vykonávajú úlohy , ktoré nie sú integrované do aplikácie Microsoft Excel . Tieto skripty sú volány makrá . Jeden spôsob , ako môžete písať makrá , je ich záznam ( Developer > Záznam makra ) , a iný spôsob , ako ich otvoriť Visual Basic integrované vývojové prostredie a napísať skript ručne . Písanie skriptov týmto spôsobom môžete prispôsobiť skript pre vaše konkrétne potreby . Ale musíte buď pracovnú znalosť jazyka Visual Basic písať skripty alebo existujúci skript môžete vstúpiť do IDE . Overenie e - mailovej adresy

Nasledujúci skript overuje e - mailovej adresy uložené v prvom hárku zošita dokumentu programu Excel . Zadajte niekoľko e - mailových adries v bunkách A1 až A5 listu . Uistite sa úmyselné chyby v niektorej z adries vynechaním znak ampersand ( " @ " ) . Po zadaní skript v tomto článku , spustite skript ( alt- F8 , " Validate_Emails " ) vidieť nesprávnej adresy zvýraznená .
Zadajte Script

Ak chcete začať písanie skript , akonáhle ste otvorili aplikáciu Excel , zadajte Visual Basic IDE ( alt- F11 ) . ( Môžete tiež skopírovať a vložiť skript namiesto písania to riadok po riadku . ) V table Project na ľavej strane , kliknite na názov zošita programu Excel , a potom vyberte Vložiť modul . To vám dáva nový modul , v ktorom chcete zadávať kód .

V zobrazení kódu module ste práve vytvorili , zadajte tieto funkcie , dávajte pozor , aby zodpovedala prípad každé písmeno .

Sub Validate_Emails ( ) Dim arrEmail Ako VariantDim rc Ako BooleanarrEmail = rozsah . ( " a1 : a5 " ) Hodnota

na 'Skontrolovať e - mailovú adresu , každá bunka , teraz v arrayFor i = 1 až UBound ( arrEmail ) rc = blnEmailIsOkay ( arrEmail ( i , 1 ) ) Ak je ( rc = False ) Then'Highlight bunka s neplatnú e - mailovú addressHilightCell ( i ) End Sub IfNextEnd

Public Function blnEmailIsOkay ( CellContents As Variant ) As Boolean

p = Instru ( 1 , CellContents , " @ " )

ak ( p = 0 ) ThenblnEmailIsOkay = FalseElseblnEmailIsOkay = TrueEnd Ak

End Function

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

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

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

Ako to funguje

" arrEmail = " vyhlásenie na začiatku Validate_Emails kópie e - mailových adries z bunky A1 až A5 v liste 1 , na vnútorné pole ( arrEmail ) .

pre sláčiky , ktorá nasleduje prechádza tomto poli , a volá inú funkciu , blnEmailsIsOkay , k hľadaniu " @ " charakteru nevyhnutné pre e - mailové adresy . Ak blnEmailsIsOkay nenájde ampersand ( vracia false ) , ďalšie funkcie , HilightCell , sa nazýva maľovať problematický bunky žltej . Funkcia HilightCell je dobré miesto pre štart šťourat sa a skúmanie kódu , pretože môžete meniť detaily , ako sú farby a ďalšie možnosti formátovania , pričom celkovú funkčnosť programu neporušené . Napríklad , skúste zmeniť farbu zvýraznenia zo žltej na modrú , alebo vzor na niečom inom ako o " xlSolid . " Stlačením klávesy F1 , zatiaľ čo je kurzor nad " . Vzor " a " . Color " vlastnosti , aby získali predstavu o ďalších možnostiach pre tieto vlastnosti .

• Predchádzajúca strana: Spôsoby aplikácie Excel môžu byť použité v podnikaní 
• Ďalšia strana: Učenie Advanced Excel