Ako zaznamenať makro a potom ako zmeniť kód

Anonim

V tomto článku sa naučíme zaznamenávať makro a potom ho upravovať a uľahčiť učenie.

Ako napísať makro pre sumárny vzorec vo VBE

Máme údaje z Excelu v rozsahu A1: C14, v ktorých stĺpec A obsahuje názvy, v stĺpci B sú značky predmetu 1 a stĺpci C značky predmetu 2. V stĺpci D chcem vrátiť celkové znamienka.

Ak chcete vložiť súčtový vzorec pomocou jazyka VBA do programu Microsoft Excel, postupujte podľa nižšie uvedených krokov:-

  • Otvorte údaje programu Excel.
  • Najprv zaznamenajte makro pre vrátenie súčtu značiek do bunky D2.
  • Na karte „Vývojár“ vyberte zo skupiny „Kód“ položku „Nahrať makro“.
  • Zobrazí sa dialógové okno „Nahrať makro“.
  • Do poľa „Názov makra“ napíšte názov makra bez medzery a špeciálnych znakov.
  • Napíšte klávesovú skratku, ktorú chcete.
  • Napíšte popis makra do poľa s popisom.
  • Teraz začne nahrávanie.
  • Napíšte súčtový vzorec do bunky D2.
  • Prilepte vzorec v rozsahu D3: D14.
  • Kliknite na „Zastaviť nahrávanie“
  • Ak chcete zobraziť zaznamenané makrá, stlačte kláves „ALT+F11“.
  • Zaznamenaný kód by vyzeral takto:-
Sub SUM () '' SUM Macro 'Získava sa celkový počet značiek' 'Klávesová skratka: Ctrl+Shift+S' Rozsah ("D2"). Vyberte ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Select Selection.End (xlDown) .Select Range (" D14 "). Select Range (Selection, Selection.End (xlUp)). Select ActiveSheet.Paste Range (" D2 " ). Vyberte položku End Sub

Ako vidíte, vyššie uvedený kód VBA je príliš dlhý na to, aby vrátil celkové známky, a tiež nie je ľahké ho pochopiť. Preto upravíme kódovanie.

Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub

Ako napísať makro pre priemerný vzorec vo VBE

Máme údaje z Excelu v rozsahu A1: C14, v ktorých stĺpec A obsahuje názvy, v stĺpci B sú značky predmetu 1 a stĺpci C značky predmetu 2. V stĺpci D chcem vrátiť priemerné známky.

Ak chcete vložiť priemerný vzorec pomocou jazyka VBA do programu Microsoft Excel 2010 a 2013, postupujte podľa nižšie uvedených krokov:-

  • Otvorte údaje programu Excel.
  • Najprv zaznamenajte makro pre návrat priemerných značiek do bunky D2.
  • Na karte „Vývojár“ vyberte zo skupiny „Kód“ položku „Nahrať makro“.
  • Zobrazí sa dialógové okno „Nahrať makro“.
  • Do poľa „Názov makra“ napíšte názov makra bez medzery a špeciálnych znakov.
  • Napíšte klávesovú skratku -kdekoľvek chcete.
  • Do poľa s popisom napíšte popis makra.
  • Teraz začne nahrávanie.
  • Do bunky D2 napíšte vzorec „PRIEMERNÝ“.
  • Prilepte vzorec v rozsahu D3: D14.
  • Kliknite na „Zastaviť nahrávanie“.
  • Ak chcete zobraziť zaznamenané makrá, stlačte kláves „ALT+F11“.
  • Zaznamenaný kód by vyzeral takto:-
Sub AVERAGE () '' AVERAGE Macro 'Získajú sa celkové známky' 'Klávesová skratka: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Vyberte Selection.Copy Range (" D2 "). Select Selection.End (xlDown). Select Select Range (" E14 "). Select Range (Selection, Selection.End (xlUp)). Select ActiveSheet.Paste Range ( „E13“). Vyberte Selection.End (xlUp). Vyberte End Sub

Ako vidíte, vyššie uvedený kód VBA je príliš dlhý na vrátenie celkových známok a tiež nie je ľahké ho pochopiť; preto upravíme kód.

Podpriemer () Dim X ako celé číslo X = Application.WorksheetFunction.CountA (rozsah ("A: A")) Rozsah ("E2: E" & X). Hodnota = "= priemer (B2: C2)" End Sub

Týmto spôsobom sa môžeme naučiť, ako zaznamenávať makro a potom ho upravovať.

Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku