V tomto článku se naučíme, jak zaznamenávat makro a poté, jak jej upravit a usnadnit učení.
Jak napsat makro pro součet ve VBE
Máme data aplikace Excel v rozsahu A1: C14, ve kterých sloupec A obsahuje názvy, sloupec B se značkami předmětu 1 a sloupec C se značkami předmětu 2. Ve sloupci D chci vrátit celkový počet značek.
Chcete-li vložit součet pomocí VBA v aplikaci Microsoft Excel, postupujte podle níže uvedených kroků:-
- Otevřete data aplikace Excel.
- Nejprve zaznamenejte makro pro vrácení celkových značek do buňky D2.
- Na kartě „Vývojář“ vyberte ze skupiny „Kód“ možnost „Nahrát makro“.
- Zobrazí se dialogové okno „Nahrát makro“.
- Do pole „Název makra“ napište název makra bez použití mezer a speciálních znaků.
- Zadejte klávesovou zkratku, co chcete.
- A napište popis makra do pole popisu.
- Nyní začne nahrávání.
- Napište součtový vzorec do buňky D2.
- Vložte vzorec v rozsahu D3: D14.
- Klikněte na „Zastavit nahrávání“
- Zaznamenaná makra zobrazíte stisknutím klávesy „ALT+F11“.
- Zaznamenaný kód by vypadal takto:-
Sub SUM () '' SUM Macro 'Získává se celkový počet bodů' 'Klávesová zkratka: 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 End Sub
Jak vidíte, výše uvedený kód VBA je příliš dlouhý na to, aby vrátil celkové známky, a také není snadné ho pochopit. Upravíme tedy kódování.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub
Jak napsat makro pro průměrný vzorec ve VBE
Máme data aplikace Excel v rozsahu A1: C14, ve kterém sloupec A obsahuje názvy, sloupec B má značky předmětu 1 a sloupec C značky předmětu 2. Ve sloupci D chci vrátit průměrné známky.
Chcete-li vložit průměrný vzorec pomocí jazyka VBA v aplikaci Microsoft Excel 2010 a 2013, postupujte podle níže uvedených kroků:-
- Otevřete data aplikace Excel.
- Nejprve zaznamenejte makro pro vrácení průměrných značek do buňky D2.
- Na kartě „Vývojář“ vyberte ze skupiny „Kód“ možnost „Nahrát makro“.
- Zobrazí se dialogové okno „Nahrát makro“.
- Do pole „Název makra“ napište název makra bez použití mezer a speciálních znaků.
- Zadejte klávesovou zkratku -jakkoli chcete.
- A napište popis makra do pole popisu.
- Nyní začne nahrávání.
- Do buňky D2 napište vzorec „PRŮMĚR“.
- Vložte vzorec v rozsahu D3: D14.
- Klikněte na „Zastavit nahrávání“.
- Zaznamenaná makra zobrazíte stisknutím klávesy „ALT+F11“.
- Zaznamenaný kód by vypadal takto:-
Dílčí PRŮMĚR () '' PRŮMĚRNÉ Makro 'Získá se celkový počet bodů' 'Klávesová zkratka: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= PRŮMĚR (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Vyberte Selection.Copy Range (" D2 "). Select Selection.End (xlDown). Select Range (" E14 "). Select Range (Selection, Selection.End (xlUp)). Select ActiveSheet.Paste Range ( „E13“). Vyberte Selection.End (xlUp). Vyberte End Sub
Jak vidíte, výše uvedený kód VBA je příliš dlouhý na vrácení celkových známek a také není snadné ho pochopit; tedy upravíme kód.
Dílčí průměr () Dim X jako celé číslo X = Application.WorksheetFunction.CountA (rozsah ("A: A")) Rozsah ("E2: E" & X). Hodnota = "= průměr (B2: C2)" End Sub
Tímto způsobem se můžeme naučit, jak zaznamenávat makro a poté jej upravovat.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail