Makron är bitar av kod som kan köras repetitiva uppgifter inifrån Excel-arbetsboken . Att lära sig att skriva ett makro för Excel kommer att ge dig att ta kontroll över de handlingar och uppgifter som du arbetar med på en daglig basis . Kort sagt , kommer den här artikeln instruera läsaren i hur man skapar bitar av kod som kommer att revolutionera din multitasking upplevelsen med Excel . Makron ger en specifik effekt i dina Excel-dokument . Det språk som används i makron är Visual Basic for Applications ( VBA ) . Du kommer att använda detta språk för att skapa moduler anslutna till Excel-arbetsboken , där du kommer att lagra dina makron . Makron kommer verkligen lägga till funktioner och användarvänlighet för att dina Excel-dokument . Med makron kan du ordna flera ark av data i en ark eller formulera data på ett ark för att uppfylla någon av dina användarkrav . Instruktioner
Skriv ett makro i MS Excel Använda VBA Editor
1
Klicka på Verktyg- menyn i Excel . Peka på " Macro " . Klicka på " Visual Basic Editor " .
2
Skapa en plats att lagra ditt makro . I menyn Infoga på VBA editorn , klicka " modul " . Modulen kommer att öppnas i ett nytt fönster . Denna modul kommer att inrymma det makro som du ska skriva . Modulen är faktiskt lagras i en mapp märkt " VBA-projekt " . Addera 3
Skriv ordet " Sub " i det tomma fönstret . Skriv inte över text som läser " End Sub " . Efter Sub , skriv ett namn för makrot , som " MyLoopMacro " . En slinga är det enklaste makrot att skriva . En loop räknar rader automatiskt tills den når en viss punkt att sluta . Detta kan vara användbart för stora mängder data på ett kalkylblad .
4
Berätta loopen att stanna på en tom cell . I VBA fönstret , skriv följande kod : Do While Cells ( x , 1 ) . Value < > " " X = x + 1 Y = y + 1 Loop
5
Berätta din makro som du vill ordet " Namn " ska visas mörkare än annan text under hela din Excel- arbetsbok . Lägg till följande kod i VBA editorn : IfMyCell.Value Gilla " Name " Då MyCell.Font.Bold = Sant End If
6
kod makrot att göra mer med celler i ett kalkylark . Detta är bara ett exempel , men en som du kan använda för ett antal saker i ett makro . Du ska skriva kod som kommer att kombinera två celler till en extra cell . Detta kan vara värdefullt om du har ett kalkylblad som kan kombinera första och efternamn , par uppgifter tillsammans eller av någon annan anledning du skulle vilja transportera data över till en annan kolumn i kalkylbladet . Skriv följande kod i VBA editorn : Sub LoopRange1 ( ) X = 3 Do While Cells ( x , 3 ) . Value < > " "
7
Lägg koden till ditt makro . Hittills har du tilldelas värdet " x " för att börja på rad 3 i kalkylbladet . Du har också skapat ett kommando för att slinga tills en tom rad upptäcks av makrot . Därefter skriver du följande tre rader kod för att bära värdena för de tredje och fjärde kolumnerna tillsammans med ett mellanslag mellan dem i den femte kolumnen : Cells ( x , 5 ) . Value = Celler ( x , 3 ) . Värde + _ " " + Celler ( x , 4 ) . Värde x = x + 1
8
Gör cellerna ändrar färg för att indikera ett ord upptäcktes i ett kalkylblad . Detta kan vara mycket användbart för att hitta specifika data som anges av marknadsföring . Nu ska du skapa den variabeln i koden för att leta efter ordet " konkurrent " i kalkylbladet . Skriv följande kod i VBA fönstret : Sub LoopRange2 ( ) Dim CompetitorCell Som Range Denna kod deklarerar variabeln " CompetitorCell " . Nu slår " Enter " för att skapa ett utrymme mellan den sista textsträng i din kod . Skriv följande kod . Om CompetitorCell.Value Gilla " * Konkurrent * " Då MyCell.Interior.ColorIndex = 3 ElseIf MyCell.Value Gilla " * Film * " Då Mycell.Interior.ColorIndex = 4 ElseIf MyCell.Value = " " Då MyCell.Interior.ColorIndex = xINone Else ; MyCell.Interior.ColorIndex = 5 End If Nästa End Sub
9
Skapa ett makro som tar bort dubbletter data i kalkylbladet . Detta kan vara underbart för att spåra dubbla konton i kalkylbladet systemet . Skriv följande kod för att skapa och testa din egen makro . Sub LoopRange3 ( ) X = ActiveCell.Row Y = x + 1 Do While Celler ( x , 4 ) . Value < > " " Gör medan celler ( y , 4 ) . Värde <> "" Om ( Celler (x, 4 ) . Värde = Celler ( y , 4 ) . Value) _ Och ( Celler (x, 6 ) . Value = _ Cells ( y , 6 ) . Standard ) så Cells ( y , 4 ) . EntireRow.Delete Else y = y + 1 End If Loop & # xD , x = x +1 y = x +1 Loop End Sub
10
Stäng VBA fönstret . Klicka på Spara . Din makro har skapats . Koden blir lätt att förstå när man tränar med den . Allt du behöver göra är att ändra variabelnamn , de kommandon slingan och celler i kalkylbladet som du vill att dina makron för att utföra en uppgift med . Addera Tilldela ett befintligt makro till ett objekt i Excel
11
Högerklicka på ett objekt tenn kalkylbladet , till exempel ett diagram , diagram eller företagets logotyp .
12
Vänster - klicka på " Koppla makro " . En sida -meny visas när du högerklickar , som du sedan kan välja alternativ från . I det här fallet , bara klicka på " Koppla makro " .
13
Klicka på det makro som du vill tilldela från Macro namnrutan .
Bort ett makro från Excel
14
Klicka på Arkiv-menyn i Excel . Klicka på " Öppna arbetsbok " . Om arbetsboken är dold i Personal.xlsb makroarbetsbok , måste du ta fram arbetsboken .
15
Klicka på " Visa " , klicka sedan på " Ta fram " .
16
Klicka " PERSONLIG " under Unhide arbetsböcker fliken och klicka sedan på " OK " . Addera Skapa ett makro från ett befintligt makro
17
Öppna arbetsboken som innehåller ett befintligt makro som du vill kopiera en del av din nya makrot .
18
Klicka på " Makron " . Detta ligger i fliken Utvecklare i Windows Vista eller under Verktyg för andra versioner av Windows . .
19
Klicka på namnet på det makro som du vill redigera
20
Klicka på " Redigera " .
21
Markera koden från fönstret som öppnas med musen . Tryck Ctrl + C för att kopiera markeringen . Klicka på modulen i arbetsordningen ruta där du vill placera den kopierade koden . Klicka på Ctrl + V för att klistra in koden .
