U ovom ćemo članku naučiti kako snimiti makro, a zatim kako ga izmijeniti i olakšati učenje.
Kako napisati makro za formulu zbroja u VBE -u
Imamo Excel podatke u rasponu A1: C14, u kojem stupac A sadrži imena, stupac B s oznakama predmeta 1 i stupac C s oznakama predmeta 2. U stupcu D želim vratiti ukupne ocjene.
Za umetanje formule zbroja pomoću VBA u Microsoft Excel, slijedite dolje navedene korake:-
- Otvorite Excel podatke.
- Prvo snimite makro za vraćanje ukupnih ocjena u ćeliju D2.
- Na kartici "Developer" odaberite "Record Macro" iz grupe "Code".
- Pojavit će se dijaloški okvir "Snimanje makronaredbi".
- U okvir “Naziv makronaredbe” upišite naziv makronaredbe bez upotrebe razmaka i posebnih znakova.
- Upišite tipku prečaca kako god želite.
- I upišite opis makroa u okvir za opis.
- Snimanje će početi sada.
- Formulu zbroja upišite u ćeliju D2.
- Zalijepite formulu u raspon D3: D14.
- Kliknite na "Zaustavi snimanje"
- Za pregled snimljenih makronaredbi pritisnite tipku “ALT+F11”.
- Snimljeni kod bi bio ovakav:-
Sub SUM () '' SUM Makro 'Ukupno se dobiju ocjene' 'Tipkovnički prečac: Ctrl+Shift+S' Raspon ("D2"). Odaberite 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 " ). Odaberite Kraj podv
Kao što vidite da je gore spomenuti VBA kôd predug da bi vratio ukupne ocjene, a također ga nije lako razumjeti. Tako mijenjamo kodiranje.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Raspon ("A: A")) Raspon ("D2: D" & X). Vrijednost = "= Zbroj (B2: C2)" Kraj pod
Kako napisati makro za formulu Prosjek u VBE -u
Imamo Excel podatke u rasponu A1: C14, u kojem stupac A sadrži imena, stupac B s oznakama predmeta 1 i stupac C s oznakama predmeta 2. U stupcu D želim vratiti prosječne ocjene.
Za umetanje prosječne formule pomoću VBA u Microsoft Excel 2010 i 2013 slijedite dolje navedene korake:-
- Otvorite Excel podatke.
- Prvo snimite makro za vraćanje prosječnih ocjena u ćeliju D2.
- Na kartici "Developer" odaberite "Record Macro" iz grupe "Code".
- Pojavit će se dijaloški okvir "Snimanje makronaredbi".
- U okvir "Naziv makronaredbe" upišite naziv makronaredbe bez razmaka i posebnih znakova.
- Upišite prečac -što god želite.
- I upišite opis makroa u okvir za opis.
- Snimanje će početi sada.
- Napišite formulu “PROSJEČNO” u ćeliju D2.
- Zalijepite formulu u raspon D3: D14.
- Pritisnite "Zaustavi snimanje".
- Za pregled snimljenih makronaredbi pritisnite tipku “ALT+F11”.
- Snimljeni kod bi bio ovakav:-
Sub PROSJEČNA () '' PROSJEČNA makronaredba 'Dobivanje ukupnih ocjena' 'Prečac na tipkovnici: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= PROSJEČNA (RC [-3]: RC [-2])" Odabir.Kopiraj raspon (" E2 "). Odaberite Odabir. Kopiraj raspon (" D2 "). Odaberite Odabir. Kraj (xlDown). Odaberite raspon (" E14 "). Odaberite raspon (odabir, odabir. Kraj (xlUp)). Odaberite ActiveSheet. "E13"). Odaberite Selection.End (xlUp) .Odaberite End Sub
Kao što vidite da je gore spomenuti VBA kôd predug za vraćanje ukupnih ocjena, a također ga nije lako razumjeti; stoga mijenjamo kôd.
Podprosjek () Dim X As Integer X = Application.WorksheetFunction.CountA (Raspon ("A: A")) Raspon ("E2: E" & X). Vrijednost = "= Prosjek (B2: C2)" Kraj pod
Na taj način možemo naučiti kako snimati makro, a zatim ga i mijenjati.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte