Selles artiklis õpime makro salvestamist ja seejärel selle muutmist ning õppimise lihtsustamist.
Kuidas kirjutada VBE -s Sum valemile makro
Meil on Exceli andmed vahemikus A1: C14, kus veerg A sisaldab nimesid, veerg B sisaldab subjekti 1 märke ja veerg C tähistab subjekti 2 märke. Veerus D tahan tagastada kogumärgid.
Summa valemi sisestamiseks Microsoft Excelis VBA abil toimige järgmiselt.-
- Avage Exceli andmed.
- Esmalt salvestage lahtrisse D2 makro, et saada kogumärke.
- Vahekaardil „Arendaja” valige „Koodi” rühmast „Salvesta makro”.
- Ilmub dialoogiboks „Salvesta makro”.
- Kirjutage väljale „Makronimi” makro nimi ilma tühikut ja erimärke kasutamata.
- Sisestage soovitud kiirklahv.
- Ja kirjutage kirjelduse lahtrisse makro kirjeldus.
- Salvestamine algab kohe.
- Kirjutage summa valem lahtrisse D2.
- Kleepige valem vahemikku D3: D14.
- Klõpsake nuppu "Lõpeta salvestamine"
- Salvestatud makrode vaatamiseks vajutage klahvi “ALT+F11”.
- Salvestatud kood oleks selline:-
Sub SUM () '' SUM Macro 'Kokku saab punkte' 'Klaviatuuri otsetee: Ctrl+Tõstuklahv+S' vahemik ("D2"). Valige ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Valige Selection.End (xlDown). Valige vahemik (" D14 "). Valige vahemik (Selection, Selection.End (xlUp)). Valige ActiveSheet.Paste Range (" D2 ") ). Valige Lõpeta alam
Nagu näete, on ülalmainitud VBA-kood kogumärkide tagastamiseks liiga pikk ja seda pole ka lihtne mõista. Seega muudame kodeerimist.
Alam SUM () Dim X täisarvuna X = Application.WorksheetFunction.CountA (Vahemik ("A: A")) Vahemik ("D2: D" & X) .Väärtus = "= Sum (B2: C2)" Lõpu alam
Kuidas kirjutada makro keskmise valemi jaoks VBE -s
Meil on Exceli andmed vahemikus A1: C14, kus veerg A sisaldab nimesid, veerg B sisaldab subjekti 1 märke ja veerg C tähistab subjekti 2 märke. Veerus D tahan tagastada keskmised hinded.
Keskmise valemi sisestamiseks Microsoft Excel 2010 ja 2013 VBA abil toimige järgmiselt.-
- Avage Exceli andmed.
- Esmalt salvestage lahtrisse D2 makro keskmiste märkide tagastamiseks.
- Vahekaardil „Arendaja” valige „Koodi” rühmast „Salvesta makro”.
- Ilmub dialoogiboks „Salvesta makro”.
- Kirjutage väljale „Makronimi” makro nimi ilma tühikut ja erimärke kasutamata.
- Sisestage otsetee klahv -ükskõik, mida soovite.
- Ja kirjutage kirjelduse lahtrisse makro kirjeldus.
- Salvestamine algab kohe.
- Kirjutage lahtrisse D2 valem „KESKMINE”.
- Kleepige valem vahemikku D3: D14.
- Klõpsake nuppu "Lõpeta salvestamine".
- Salvestatud makrode vaatamiseks vajutage klahvi “ALT+F11”.
- Salvestatud kood oleks selline:-
Alam KESKMINE () '' KESKMINE Makro 'Kokku saab punkte' 'Klaviatuuri otsetee: Ctrl+Tõstuklahv+A' ActiveCell.FormulaR1C1 = "= KESKMINE (RC [-3]: RC [-2])" Valik.Koopiavahemik (" E2 "). Valige Selection.Copy Range (" D2 "). Valige Selection.End (xlDown). Valige vahemik (" E14 "). Valige vahemik (Selection, Selection.End (xlUp)). Valige ActiveSheet.Paste Range ( "E13"). Valige Selection.End (xlUp). Valige End Sub
Nagu näete, on ülalmainitud VBA-kood kogumärkide tagastamiseks liiga pikk ja seda pole ka lihtne mõista; seega muudame koodi.
Alamkeskmine () Dim X täisarvuna X = Application.WorksheetFunction.CountA (Vahemik ("A: A")) Vahemik ("E2: E" & X) .Väärtus = "= Keskmine (B2: C2)" Lõpu alam
Sel viisil saame õppida makro salvestamist ja seejärel selle muutmist.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile