In dit artikel zullen we leren hoe u macro's opneemt en vervolgens hoe u deze kunt wijzigen en het gemakkelijker maken om te leren.
Hoe een macro te schrijven voor de Sum-formule in VBE
We hebben Excel-gegevens in het bereik A1: C14, waarin kolom A namen bevat, kolom B met de cijfers van onderwerp 1 en kolom C met de cijfers van onderwerp 2. In kolom D wil ik het totale aantal cijfers retourneren.
Volg de onderstaande stappen om de somformule in te voegen met VBA in Microsoft Excel: -
- Excel-gegevens openen.
- Eerst neemt u de macro op voor het retourneren van totaaltekens in cel D2.
- Selecteer op het tabblad "Ontwikkelaar" "Macro opnemen" uit de groep "Code".
- Het dialoogvenster van "Macro opnemen" zal verschijnen.
- Schrijf in het vak "Macronaam" de naam van de macro zonder spatie en speciaal teken te gebruiken.
- Typ de sneltoets, welke u maar wilt.
- En schrijf de beschrijving over de macro in het beschrijvingsvak.
- De opname begint nu.
- Schrijf de somformule in cel D2.
- Plak de formule in het bereik D3:D14.
- Klik op "Opname stoppen"
- Om de opgenomen macro's te zien, drukt u op de toets “ALT+F11”.
- Opgenomen code zou als volgt zijn: -
Sub SUM() ' 'SUM Macro 'Totaal aantal punten verkregen' ' Sneltoets: Ctrl+Shift+S ' Range("D2").Select 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" ).Selecteer End Sub
Zoals u kunt zien, is de bovengenoemde VBA-code te lang om het totale aantal punten te retourneren, en ook niet gemakkelijk te begrijpen. Daarom passen we de codering aan.
Sub SUM() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("D2:D" & X).Value = "=Sum(B2:C2)" End Sub
Hoe een macro te schrijven voor de gemiddelde formule in VBE
We hebben Excel-gegevens in het bereik A1: C14, waarin kolom A namen bevat, kolom B met de cijfers van onderwerp 1 en kolom C met de cijfers van onderwerp 2. In kolom D wil ik de gemiddelde cijfers retourneren.
Om de gemiddelde formule in te voegen met VBA in Microsoft Excel 2010 en 2013, volgt u de onderstaande stappen: -
- Excel-gegevens openen.
- Eerst neemt u de macro op voor het retourneren van gemiddelde cijfers in cel D2.
- Selecteer op het tabblad "Ontwikkelaar" "Macro opnemen" uit de groep "Code".
- Het dialoogvenster van "Macro opnemen" zal verschijnen.
- Schrijf in het vak "Macronaam" de naam van de macro zonder spatie en speciaal teken te gebruiken.
- Typ de sneltoets - wat u maar wilt.
- En schrijf de beschrijving over de macro in het beschrijvingsvak.
- De opname begint nu.
- Schrijf de formule "GEMIDDELDE" in cel D2.
- Plak de formule in het bereik D3:D14.
- Klik op "Opname stoppen".
- Om de opgenomen macro's te zien, drukt u op de toets “ALT+F11”.
- Opgenomen code zou als volgt zijn: -
Sub GEMIDDELDE() ' 'GEMIDDELDE Macro 'Totaal aantal behaalde punten' ' Sneltoets: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "=GEMIDDELDE(RC[-3]:RC[-2])" Selection.Copy Range(" E2").Selecteer Selectie.Copy Range("D2").Select Selection.End(xlDown).Select Range("E14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range( "E13").Selecteer Selectie.End(xlUp).Selecteer End Sub
Zoals u kunt zien, is de bovengenoemde VBA-code te lang om totaalcijfers te retourneren en ook niet gemakkelijk te begrijpen; dus wijzigen we de code.
Sub Average() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub
Op deze manier kunnen we leren macro's op te nemen en deze vervolgens te wijzigen.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite