Šajā rakstā mēs iemācīsimies ierakstīt makro un pēc tam to modificēt un atvieglot mācīšanos.
Kā uzrakstīt makro summas formulai VBE
Mums ir Excel dati diapazonā A1: C14, kurā A slejā ir nosaukumi, B slejā ir 1. priekšmeta atzīmes un C slejā ir 2. temata atzīmes. D slejā es vēlos atgriezt kopējās atzīmes.
Lai Microsoft Excel ievietotu summas formulu, izmantojot VBA, rīkojieties šādi:-
- Atveriet Excel datus.
- Vispirms ierakstiet makro, lai atgrieztu kopējās atzīmes šūnā D2.
- Cilnē “Izstrādātājs” no “Koda” grupas atlasiet “Ierakstīt makro”.
- Parādīsies dialoglodziņš “Ierakstīt makro”.
- Lodziņā “Makro nosaukums” ierakstiet makro nosaukumu, neizmantojot atstarpi un īpašas rakstzīmes.
- Ievadiet īsinājumtaustiņu, kuru vēlaties.
- Un ierakstiet aprakstu par makro apraksta lodziņā.
- Ierakstīšana sāksies tūlīt.
- Ierakstiet summas formulu šūnā D2.
- Ielīmējiet formulu diapazonā D3: D14.
- Noklikšķiniet uz “Pārtraukt ierakstīšanu”
- Lai redzētu ierakstītos makro, nospiediet taustiņu “ALT+F11”.
- Ierakstītais kods būtu šāds:-
Sub SUM () 'SUM makro ) "Selection.Copy Range (" C2 "). Atlasiet Selection.End (xlDown). Izvēlieties diapazonu (" D14 "). Atlasiet diapazonu (Selection, Selection.End (xlUp)). Atlasiet ActiveSheet.Paste Range (" D2 ") ). Atlasiet Beigt apakš
Kā redzat, iepriekšminētais VBA kods ir pārāk garš, lai atgrieztu kopējās atzīmes, un arī to nav viegli saprast. Tādējādi mēs mainām kodējumu.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub
Kā uzrakstīt makro vidējai formulai VBE
Mums ir Excel dati diapazonā A1: C14, kurā A slejā ir nosaukumi, B slejā ir 1. priekšmeta atzīmes un C slejā ir 2. temata atzīmes. D slejā es vēlos atgriezt vidējās atzīmes.
Lai Microsoft Excel 2010 un 2013 ievietotu vidējo formulu, izmantojot VBA, rīkojieties šādi:-
- Atveriet Excel datus.
- Vispirms ierakstiet makro vidējo atzīmju atgriešanai šūnā D2.
- Cilnē “Izstrādātājs” no “Koda” grupas atlasiet “Ierakstīt makro”.
- Parādīsies dialoglodziņš “Ierakstīt makro”.
- Lodziņā “Makro nosaukums” ierakstiet makro nosaukumu, neizmantojot atstarpi un īpašas rakstzīmes.
- Ierakstiet īsinājumtaustiņu -vēlamo.
- Un ierakstiet aprakstu par makro apraksta lodziņā.
- Ierakstīšana sāksies tūlīt.
- Šūnā D2 ierakstiet “VIDĒJĀ” formulu.
- Ielīmējiet formulu diapazonā D3: D14.
- Noklikšķiniet uz “Pārtraukt ierakstīšanu”.
- Lai redzētu ierakstītos makro, nospiediet taustiņu “ALT+F11”.
- Ierakstītais kods būtu šāds:-
Sub AVERAGE () '' AVERAGE Macro 'Kopējās atzīmes iegūst' 'Īsinājumtaustiņš: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Atlasiet Selection.Copy Range (" D2 "). Atlasiet Selection.End (xlDown). Atlasiet Range (" E14 "). Atlasiet Range (Selection, Selection.End (xlUp)). Atlasiet ActiveSheet.Paste Range ( "E13"). Atlasiet Selection.End (xlUp). Atlasiet End Sub
Kā redzat, iepriekšminētais VBA kods ir pārāk garš, lai atgrieztu kopējās atzīmes, un arī to nav viegli saprast; tāpēc mēs modificējam kodu.
Apakšējais vidējais () Dim X kā vesels skaitlis X = Application.WorksheetFunction.CountA (Diapazons ("A: A")) Diapazons ("E2: E" & X). Vērtība = "= Vidējais (B2: C2)" Beigu apakšdaļa
Tādā veidā mēs varam iemācīties ierakstīt makro un pēc tam to mainīt.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē