Hvordan registrere makro og deretter hvordan du endrer koden

Anonim

I denne artikkelen lærer vi hvordan du spiller inn makro og deretter hvordan du endrer den og gjør den lettere å lære.

Hvordan skrive makro for sumformel i VBE

Vi har en Excel -data i område A1: C14, der kolonne A inneholder navn, kolonne B med merkene til emne 1 og kolonne C med merkene til emne 2. I kolonne D vil jeg returnere totalkarakterene.

For å sette inn sumformel ved hjelp av VBA i Microsoft Excel, følg trinnene nedenfor:-

  • Åpne Excel -data.
  • Først registrerer du makroen for å returnere totalkarakterer i celle D2.
  • I kategorien "Utvikler" velger du "Ta opp makro" fra gruppen "Kode".
  • Dialogboksen med "Ta opp makro" vises.
  • I "Makronavn" -boksen skriver du navnet på makroen uten å bruke mellomrom og spesialtegn.
  • Skriv inn snarveien som du vil.
  • Og skriv beskrivelsen om makroen i beskrivelsesboksen.
  • Innspillingen starter nå.
  • Skriv sumformelen i celle D2.
  • Lim formelen inn i område D3: D14.
  • Klikk på "Stopp innspilling"
  • Trykk på tasten “ALT+F11” for å se de innspilte makroene.
  • Registrert kode vil være slik:-
Sub SUM () '' SUM Makro 'Total merker få' 'Tastaturgenvei: Ctrl+Shift+S' Range ("D2"). Velg ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Velg Selection.End (xlDown) .Velg Range (" D14 "). Velg Range (Selection, Selection.End (xlUp)). Velg ActiveSheet.Lime inn område (" D2 " Velg End Sub 

Som du kan se at den ovennevnte VBA-koden er for lang til å returnere totalkarakterer, og det er heller ikke lett å forstå. Dermed endrer vi kodingen.

Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub 

Hvordan skrive makro for gjennomsnittlig formel i VBE

Vi har en Excel -data i område A1: C14, der kolonne A inneholder navn, kolonne B med merkene til emne 1 og kolonne C med merkene til emne 2. I kolonne D vil jeg returnere gjennomsnittskarakterene.

For å sette inn gjennomsnittlig formel ved hjelp av VBA i Microsoft Excel 2010 og 2013, følg trinnene nedenfor:-

  • Åpne Excel -data.
  • Først registrerer du makroen for å returnere gjennomsnittskarakterer i cellen D2.
  • I kategorien "Utvikler" velger du "Ta opp makro" fra gruppen "Kode".
  • Dialogboksen med "Ta opp makro" vises.
  • I "Makronavn" -boksen skriver du navnet på makroen uten å bruke mellomrom og spesialtegn.
  • Skriv inn snarveien -hva du vil.
  • Og skriv beskrivelsen om makroen i beskrivelsesboksen.
  • Innspillingen starter nå.
  • Skriv "GJENNOMSNITT" -formelen i celle D2.
  • Lim formelen inn i område D3: D14.
  • Klikk på "Stopp innspilling".
  • Trykk på tasten “ALT+F11” for å se de innspilte makroene.
  • Registrert kode vil være slik:-
Sub GJENNOMSNITT () '' GJENNOMSNITT Makro 'Totale karakterer oppnår' 'Tastatursnarvei: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= GJENNOMSNITT (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Velg Selection.Copy Range (" D2 "). Velg Selection.End (xlDown) .Velg Range (" E14 "). Velg Range (Selection, Selection.End (xlUp)). Velg ActiveSheet.Lime Range ( "E13"). Velg Selection.End (xlUp). Velg End Sub 

Som du kan se at den ovennevnte VBA-koden er for lang til å returnere totalkarakterer, og det er heller ikke lett å forstå; dermed endrer vi koden.

Sub Gjennomsnitt () Dim X Som Heltall X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X) .Value = "= Gjennomsnitt (B2: C2)" End Sub 

På denne måten kan vi lære å spille inn makro og deretter endre den.

Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post