Makroer er stumper af kode, der kan køre gentagne opgaver inde fra Excel-projektmappen. At lære at skrive en makro til Excel vil give dig til at tage kontrol over de dokumenter og data , du arbejder med på daglig basis. Kort sagt, vil denne artikel instruere læseren i , hvordan man skaber stumper af kode, der vil revolutionere din multitasking oplevelse med Excel. Makroer producere en bestemt virkning i din Excel-dokumenter . Sproget i makroer , er Visual Basic for Applications ( VBA ) . Du skal bruge dette sprog til at oprette moduler, der er knyttet til Excel- projektmappe , hvor du vil gemme dine makroer. Makroer virkelig vil tilføje funktionalitet og brugervenlighed til dine Excel-dokumenter . Med makroer , kan du organisere flere ark data i et ark eller formulerer data på et ark til at opfylde nogen af dine brugernes behov. Instruktioner
Skriv en Macro i MS Excel Bruge VBA Editor
1
Klik på Funktioner drop- down menu i Excel. Peg på "Macro " . Klik på " Visual Basic Editor" .
2
Opret et sted at opbevare din makro . I menuen Indsæt på VBA editoren , klik på " Module" . Modulet vil åbne i et nyt vindue. Dette modul vil huse den makro, du vil skrive. Modulet er faktisk gemt i en mappe mærket " VBA Project" .
3
Skriv ordet "Sub " i tomt vindue . Må ikke skrive i den tekst, der lyder " End Sub " . Efter Sub, skriv et navn til din makro , som " MyLoopMacro " . Et loop er den nemmeste makroen til at skrive. Et loop vil tælle rækker automatisk, indtil det når et bestemt punkt for at stoppe . Dette kan være nyttigt for store mængder af data på et regneark.
4
Fortæl løkken til at stoppe på en tom celle. I VBA -vinduet , skal du skrive følgende kode : Do While Cells ( x, 1). Value < > " " X = x + 1 Y = y + 1 Loop
5
Fortæl din makro , som du ønsker ordet " Name " for at virke mørkere end anden tekst i hele din Excel-projektmappe . Føj følgende kode i VBA editoren : IfMyCell.Value Like " Name" Så MyCell.Font.Bold = Sand End If
6
Kode din makro til at gøre mere med celler i et regneark . Dette er blot et eksempel, men en, som du kan bruge til en række ting i en makro . Du kommer til at skrive kode, der vil kombinere to celler i et ekstra celle. Dette kunne være værdifuldt , hvis du har et regneark, der kan kombinere første og sidste navne , par data sammen eller af anden grund, du ønsker at bære data over til en anden kolonne i regnearket. Indtast følgende kode i VBA editoren : Sub LoopRange1 () X = 3 Do While Cells ( x, 3). Value < > ""
7
Tilføj mere kode til din makro. Hidtil har du tildelt værdien "x " for at starte på række 3 i regnearket. Du har også skabt en kommando til at sløjfe , indtil en tom række opdages af makroen. Næste, skriv følgende tre linjer kode til at udføre værdierne af tredje og fjerde kolonne sammen med et mellemrum mellem dem i femte kolonne : Cells (x, 5). Værdi = Celler ( x , 3 ) . Værdi + _ "" +-celler ( x , 4) . Value x = x + 1
8
Foretag cellerne skifter farve for at angive et ord opdaget i et regneark. Dette kan være meget nyttig til at finde specifikke data indtastet af markedsføring. Nu er du kommer til at skabe den variable i din kode for at lede efter ordet " konkurrent " i regnearket. Indtast følgende kode i VBA -vinduet: Sub LoopRange2 ( ) Dim CompetitorCell Som Range Denne kode erklærer variablen " CompetitorCell " . Nu hit " Enter" for at skabe et rum mellem den sidste tekststreng i din kode . Indtast følgende kode . Hvis CompetitorCell.Value Like " * Konkurrent * " Så MyCell.Interior.ColorIndex = 3 EllersHvis MyCell.Value Like " * Movie * " Så Mycell.Interior.ColorIndex = 4 EllersHvis MyCell.Value =" " Så MyCell.Interior.ColorIndex = xINone Else , MyCell.Interior.ColorIndex = 5 End If Næste End Sub
9
Oprette en makro , der vil slette dublerede data i regnearket. Dette kan være vidunderligt til sporing dobbelte konti i dit regneark system. Indtast følgende kode til at oprette og teste din egen makro. Sub LoopRange3 () X = ActiveCell.Row Y = x + 1 Do While Cells ( x, 4). Value < > "" Do While Cells ( y, 4). Value < > "" If ( Cells (x, 4). Value = Cells ( y, 4). Value) _ And ( Cells (x, 6). Værdi = _ Cells ( y, 6). Værdi ) og derefter celler ( y, 4). EntireRow.Delete Else y = y + 1 End If Loop & # xD ; x = x +1 y = x +1 Loop End Sub
10
Luk VBA -vinduet. Klik på Gem. Din makro er blevet oprettet. Koden bliver let at forstå , når du øve med den. Alt du skal gøre er at ændre de variable navne, loop kommandoer og cellerne i regnearket , som du ønsker dine makroer til at udføre en opgave med .
Tildel en eksisterende makro til et objekt i Excel < br >
11
Højreklik på ethvert objekt tin dit regneark , så som en graf , diagram eller firmalogo.
12
Venstre-klik " Tildel makro" . En side -menu vises, når du højreklikker, som du derefter kan vælge indstillinger fra . I dette tilfælde skal du bare klikke " Tildel makro" .
13
Klik på den makro, du vil tildele fra boksen Makronavn .
Slet en makro fra Excel < br >
14
Klik på menuen Filer i Excel. Klik på " Åbn projektmappe " . Hvis projektmappen er skjult i PERSONAL.XLSB makroprojektmappe , så er du nødt til at unhide projektmappen.
15
Klik på "Vis" og klik på " Vis igen " .
16
Klik på " personlige" under Unhide projektmapper fanen og derefter klikke på "OK".
Opret en makro fra en eksisterende makro
17
Åbn den projektmappe , der indeholder en eksisterende makro , som du ønsker at kopiere en del af for din nye makro.
18
Klik på " makroer" . Denne er placeret i fanen Udvikler i Windows Vista eller under Værktøjer til andre versioner af Windows.
19
Klik på navnet på den makro, du vil redigere.
20 < p > Klik på "Rediger " .
21
Vælg den kode fra koden vindue, der åbnes med din mus. Tryk Ctrl + C for at kopiere markeringen . Klik på modulet i Procedure boks, hvor du vil placere det kopierede kode. Klik Ctrl + V for at indsætte koden.