V tem članku se bomo naučili, kako snemati makro, nato pa ga spremeniti in olajšati učenje.
Kako napisati makro za formulo Sum v VBE
Imamo Excelove podatke v obsegu A1: C14, v katerem stolpec A vsebuje imena, stolpec B z oznakami predmeta 1 in stolpec C z oznakami predmeta 2. V stolpec D želim vrniti skupne ocene.
Če želite vnesti formulo vsote z uporabo VBA v Microsoft Excel, sledite spodnjim korakom:-
- Odprite Excel podatke.
- Najprej v celico D2 zabeležite makro za vrnitev skupnih ocen.
- Na zavihku »Razvijalec« v skupini »Koda« izberite »Zapis makra«.
- Prikaže se pogovorno okno »Record Macro«.
- V polje »Ime makra« vnesite ime makra brez uporabe presledkov in posebnih znakov.
- Tipko za bližnjico vnesite, kar želite.
- V polje za opis napišite opis makra.
- Snemanje se bo začelo zdaj.
- Formulo vsote vnesite v celico D2.
- Formulo prilepite v obseg D3: D14.
- Kliknite »Ustavi snemanje«
- Za ogled posnetih makrov pritisnite tipko “ALT+F11”.
- Posneta koda bi bila takšna:-
Sub SUM () '' SUM Makro 'Skupno število ocen' 'Bližnjica na tipkovnici: Ctrl+Shift+S' Obseg ("D2"). Izberite 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 " Izberite End Sub
Kot vidite, je zgoraj omenjena koda VBA predolga, da bi vrnila skupne ocene, prav tako pa je ni enostavno razumeti. Tako spremenimo kodiranje.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X). Vrednost = "= Sum (B2: C2)" End Sub
Kako napisati makro za formulo povprečja v VBE
Imamo Excelove podatke v obsegu A1: C14, v katerem stolpec A vsebuje imena, stolpec B z oznakami predmeta 1 in stolpec C z oznakami predmeta 2. V stolpec D želim vrniti povprečne ocene.
Če želite v Microsoft Excel 2010 in 2013 vstaviti povprečno formulo z uporabo VBA, sledite spodnjim korakom:-
- Odprite Excel podatke.
- Najprej zabeležite makro za vračanje povprečnih ocen v celico D2.
- Na zavihku »Razvijalec« v skupini »Koda« izberite »Zapis makra«.
- Pojavi se pogovorno okno »Record Macro«.
- V polje »Ime makra« vnesite ime makra brez uporabe presledkov in posebnih znakov.
- Vnesite bližnjico -kar želite.
- V polje za opis napišite opis makra.
- Snemanje se bo začelo zdaj.
- V celico D2 napišite formulo »POVPREČNO«.
- Formulo prilepite v obseg D3: D14.
- Kliknite »Ustavi snemanje«.
- Za ogled posnetih makrov pritisnite tipko “ALT+F11”.
- Posneta koda bi bila takšna:-
Sub AVERAGE () '' AVERAGE Macro 'Skupno število oznak' 'Bližnjica na tipkovnici: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= POVPREČNO (RC [-3]: RC [-2])" Izbor.Kopiraj obseg (" E2 "). Izberite Selection. Copy Range (" D2 "). Select Selection.End (xlDown). Izberite Range (" E14 "). Izberite Range (Selection, Selection.End (xlUp)). Izberite ActiveSheet. "E13"). Izberite Selection.End (xlUp) .Izberite End Sub
Kot vidite, je zgoraj omenjena koda VBA predolga za vračanje skupnih ocen in je tudi ni lahko razumeti; zato kodo spremenimo.
Podpovprečje () Dim X kot celo število X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X). Vrednost = "= Povprečje (B2: C2)" End Sub
Na ta način se lahko naučimo snemati makro in ga nato spremeniti.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte