Tässä artikkelissa opimme makron tallentamisen ja sitten sen muokkaamisen ja helpottamisen.
Kuinka kirjoittaa makro Sum -kaavalle VBE: ssä
Meillä on Excel -tiedot alueella A1: C14, jossa sarakkeessa A on nimet, sarakkeessa B on kohteen 1 merkit ja sarakkeessa C on kohteen 2 merkit. Sarakkeessa D haluan palauttaa kokonaisarvosanat.
Jos haluat lisätä summakaavan VBA: n avulla Microsoft Excelissä, toimi seuraavasti:-
- Avaa Excel -tiedot.
- Tallennat ensin makron kokonaisarvojen palauttamiseksi soluun D2.
- Valitse "Kehittäjä" -välilehdessä "Tallenna makro" "Koodi" -ryhmästä.
- "Tallenna makro" -valintaikkuna tulee näkyviin.
- Kirjoita Makron nimi -ruutuun makron nimi ilman välilyöntejä ja erikoismerkkejä.
- Kirjoita haluamasi pikanäppäin.
- Kirjoita makron kuvaus kuvausruutuun.
- Tallennus alkaa nyt.
- Kirjoita summakaava soluun D2.
- Liitä kaava alueelle D3: D14.
- Napsauta "Lopeta tallennus"
- Jos haluat nähdä tallennetut makrot, paina näppäintä “ALT+F11”.
- Tallennettu koodi olisi seuraavanlainen:-
Sub SUM () 'SUM makro ) "Selection.Copy Range (" C2 "). Valitse Selection.End (xlDown) .Valitse alue (" D14 "). Valitse alue (Selection, Selection.End (xlUp)). Valitse ActiveSheet.Paste Range (" D2 ") Valitse Lopeta ala
Kuten huomaat, että edellä mainittu VBA-koodi on liian pitkä kokonaisarvojen palauttamiseksi, eikä sitä ole myöskään helppo ymmärtää. Muokkaamme siis koodausta.
Sub SUM () Dim X Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub
Kuinka kirjoittaa makro keskimääräiselle kaavalle VBE: ssä
Meillä on Excel -tiedot alueella A1: C14, jossa sarakkeessa A on nimet, sarakkeessa B on kohteen 1 merkit ja sarakkeessa C on kohteen 2 merkit. Sarakkeessa D haluan palauttaa keskiarvot.
Jos haluat lisätä keskimääräisen kaavan VBA: n avulla Microsoft Excel 2010: ssä ja 2013: ssa, toimi seuraavasti:-
- Avaa Excel -tiedot.
- Tallenna ensin makro keskimääräisten merkkien palauttamiseksi soluun D2.
- Valitse "Kehittäjä" -välilehdessä "Tallenna makro" "Koodi" -ryhmästä.
- "Tallenna makro" -valintaikkuna tulee näkyviin.
- Kirjoita Makron nimi -ruutuun makron nimi ilman välilyöntejä ja erikoismerkkejä.
- Kirjoita haluamasi pikanäppäin.
- Kirjoita makron kuvaus kuvausruutuun.
- Tallennus alkaa nyt.
- Kirjoita "KESKI" -kaava soluun D2.
- Liitä kaava alueelle D3: D14.
- Napsauta ”Lopeta tallennus”.
- Jos haluat nähdä tallennetut makrot, paina näppäintä “ALT+F11”.
- Tallennettu koodi olisi seuraavanlainen:-
Sub AVERAGE () '' AVERAGE Macro '' Pistemäärä: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Valitse Valinta.Kopioalue (" D2 "). Valitse Selection.End (xlDown) .Valitse alue (" E14 "). Valitse alue (Selection, Selection.End (xlUp)). Valitse ActiveSheet.Paste Range ( "E13"). Valitse Selection.End (xlUp) .Valitse End Sub
Kuten huomaat, että edellä mainittu VBA-koodi on liian pitkä kokonaispisteiden palauttamiseen, eikä sitä ole myöskään helppo ymmärtää; muutamme siis koodia.
Alakeskiarvo () Dim X kokonaislukuna X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X) .Arvo = "= Average (B2: C2)" End Sub
Tällä tavalla voimme oppia tallentamaan makron ja sitten sen muokkaamisen.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse