Ako napísať makro kódovanie MS Excel

Makrá sú kúsky kódu , ktoré možno spustiť opakujúce sa úlohy v rámci zošita programu Excel . Učíme sa písať makrá pre Excel , umožní prevziať kontrolu nad dokumentov a dát , ktoré pracujú na dennej báze . Stručne povedané , bude tento článok poučiť čitateľa , ako vytvoriť kúsky kódu , ktorý spôsobí prevrat váš multitasking skúsenosti s aplikáciou Excel . Makrá produkujú špecifický účinok v dokumentoch programu Excel . Jazyk použitý v makrách je Visual Basic for Applications ( VBA ) . Budete používať tento jazyk vytvoriť moduly pripojené k zošitu programu Excel , v ktorom budete ukladať makrá . Makrá sa naozaj pridať funkčnosť a jednoduchosť použitia vašich dokumentov programu Excel . S makrami , môžete usporiadať niekoľko listov dát do jedného listu alebo formulovať na liste splniť niektorý z vašich užívateľských požiadaviek . Pokyny
Napíšte makrá v Exceli pomocou VBA Editor
1

Kliknite na Nástroje rozbaľovacej ponuky v programe Excel . Prejdite na " makro " . Kliknite na " editore jazyka Visual Basic " .
2

Vytvoriť miesto pre uloženie makra . V ponuke Vložiť na editore VBA , kliknite na tlačidlo " modul " . Modul sa otvorí v novom okne . Tento modul bude dom makro , ktoré budete písať . Modul je v skutočnosti uložené v zložke s nápisom " VBA Project " .
3

Zadajte slovo " Sub " v prázdne okno . Nepíšte cez text , ktorý znie " End Sub " . Po Sub , zadajte názov makra , napríklad " MyLoopMacro " . Slučka je najjednoduchšie makro písať . Slučka sa bude počítať riadky automaticky , kým nedosiahne zadané miesto na zastavenie . To môže byť užitočné pre veľké množstvo dát v tabuľke .
4

Povedzte slučku zastaviť na prázdne bunky . V okne VBA , zadajte nasledujúci kód : Do While Cells ( x , 1 ) . Hodnota < > " " X = x + 1 Y = y + 1 Loop
5

Informujte svojho makro , ktoré chcete slovo " Name " sa objaví tmavšie ako ostatné text v celom zošite programu Excel . Pridajte nasledujúci kód v editore VBA : IfMyCell.Value ako " Name " Tak MyCell.Font.Bold = True End Ak
6

Kód makra urobiť viac s bunkami v šírení listu . To je len príklad , ale ten , ktorý môžete použiť pre celý rad vecí v makre . Budete písať kód , ktorý bude kombinovať dve bunky do ďalšej bunky . To by mohlo byť užitočné , ak máte tabuľku , ktorá možno kombinovať krstné mená a priezviská , pár dát dohromady , alebo z akéhokoľvek iného dôvodu by ste chceli , aby prenos dát na iný stĺpec v liste . Zadajte nasledujúci kód v editore VBA : Sub LoopRange1 ( ) X = 3 Do Kým bunky ( x , 3 ) . Hodnota < > " "
7

Pridať ďalší kód makra . Zatiaľ ste priradili hodnotu " X " pre spustenie v riadku 3 v liste . Tiež ste vytvorili príkaz slučke , kým prázdny riadok je objavený makro . Ďalej , typ nasledujúce tri riadky kódu niesť hodnoty treťom a štvrtom stĺpci spolu s medzerou medzi nimi v piatom stĺpci : Bunky ( x , 5 ) . Value = Cells ( x , 3 ) . Hodnota + _ " " + bunky ( x , 4 ) . hodnota x = x + 1
8

Uistite sa , že bunky zmení farbu na označenie slovo objavil v tabuľke . To by mohlo byť veľmi užitočné pre hľadanie konkrétnych údajov vložených do marketingu . Teraz sa chystáte vytvoriť premennú v kóde hľadať slovo " konkurenta " v liste . Zadajte nasledujúci kód do okna VBA : Sub LoopRange2 ( ) Dim CompetitorCell Ako sortimente kód deklaruje premennú " CompetitorCell " . Teraz stlačte " Enter " vytvoriť priestor medzi posledným reťazcami texte v kóde . Zadajte nasledujúci kód . Ak CompetitorCell.Value Like " * Súťažiaci * " Potom MyCell.Interior.ColorIndex = 3 ElseIf MyCell.Value Like " * Film * " Potom Mycell.Interior.ColorIndex = 4 ElseIf MyCell.Value = " " Tak MyCell.Interior.ColorIndex = xINone Else ; MyCell.Interior.ColorIndex = 5 End If Next End Sub
9

Vytvorte makro , ktoré bude odstrániť duplicitné dáta v liste . To môže byť skvelé pre sledovanie duplicitné účty v tabuľkovom systéme . Zadajte nasledujúci kód vytvoriť a otestovať si vlastné makrá . sub LoopRange3 ( ) X = Y = ActiveCell.Row x + 1 Do keď Cells ( x , 4 ) . Hodnota < > " " Do While Cells ( y , 4 ) . Hodnota < > " " Ak ( Cells ( x , 4 ) . Value = Cells ( y , 4 ) . Hodnota ) _ A ( Cells ( x , 6 ) . value = _ Cells ( y , 6 ) . ) , potom bunky ( y , 4 ) . EntireRow.Delete Else y = y + 1 End If Loop & # xD ; x = x + 1 y = x + 1 Loop End Sub
10

Zatvorte okno VBA . Kliknite na tlačidlo Uložiť . Váš makro bol vytvorený . Kód sa ľahko pochopiť , keď cvičíte s ním . Všetko , čo musíte urobiť , je zmeniť názvy premenných , príkazov slučky a bunky v tabuľke , ktoré chcete , aby vaše makrá na vykonanie úlohy sa .
Priradenie existujúceho makra k objektu v programe Excel

11

kliknite pravým tlačidlom myši na ľubovoľný objekt cínu listu , ako je graf , graf alebo firemné logo .
12

Left - kliknite na " Priradiť makro " . Zobrazí sa side - out ponuka po kliknutí pravým tlačidlom myši , ktoré si potom môžu vybrať si z ponuky . V tomto prípade stačí kliknúť na " Priradiť makro " .
13

Kliknite na makro , ktoré chcete priradiť z textového poľa Názov makra .
Odstránenie makra z programu Excel

14

Kliknite v ponuke Súbor v programe Excel . Kliknite na tlačidlo " Otvoriť zošit " . Ak zošit je skrytý v Personal.xlsb makro zošita , potom sa budete musieť odkryť zošit .
15

Kliknite na " Zobraziť " , potom kliknite na " príkaz Zobraziť " .
16

Kliknite na " osobné " pod záložkou Unhide zošitov a potom kliknite na tlačidlo " OK " .
Vytvorte makro z existujúcej makro
17

Otvorte zošit , ktorý obsahuje existujúce makro , ktoré chcete skopírovať časť pre nové makro .
18

Kliknite na " makrá " . To sa nachádza na karte Vývojár v systéme Windows Vista alebo v rámci nástroja pre iné verzie operačného systému Windows .
19

Kliknutím na názov makra , ktoré chcete upraviť .
20

Kliknite na tlačidlo " Upraviť " .
21

Vyberte kód z okna kód , ktorý sa otvorí s myšou . Stlačte Ctrl + C skopírujte výber . Kliknite na modul v poli procedúra , kam chcete umiestniť skopírovaný kód . Kliknite Ctrl + V vložte kód .

• Predchádzajúca strana: Ako odstrániť stĺpce v programe Microsoft Excel 2003 
• Ďalšia strana: Ako zmeniť desatinný formátovanie zaradení do buniek v programe Microsoft Excel 2003