Hur man spelar in makro och sedan hur man ändrar koden

Anonim

I den här artikeln lär vi oss hur man spelar in makro och sedan hur man ändrar det och gör det lättare att lära sig.

Hur man skriver makro för Sum formel i VBE

Vi har en Excel -data i intervallet A1: C14, där kolumn A innehåller namn, kolumn B med märkena för ämne 1 och kolumn C med märken för ämne 2. I kolumn D vill jag returnera totala betyg.

För att infoga summaformel med VBA i Microsoft Excel, följ nedanstående steg:-

  • Öppna Excel -data.
  • Först spelar du in makrot för att returnera totala betyg i cell D2.
  • På fliken "Utvecklare" väljer du "Spela in makro" från gruppen "Kod".
  • Dialogrutan "Spela in makro" visas.
  • Skriv "makronamn" i rutan "Makronamn" utan att använda mellanslag och specialtecken.
  • Ange kortkommandot som du vill.
  • Och skriv beskrivningen om makrot i beskrivningsrutan.
  • Inspelningen startar nu.
  • Skriv summan formeln i cell D2.
  • Klistra in formeln i intervall D3: D14.
  • Klicka på "Stoppa inspelning"
  • För att se de inspelade makron, tryck på knappen "ALT+F11".
  • Inspelad kod skulle vara så här:-
Sub SUM () '' SUMMAKRO 'Totalt betyg erhåller' 'Tangentbordsgenväg: Ctrl+Shift+S' Område ("D2"). Välj ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Välj Selection.End (xlDown) .Välj Range (" D14 "). Välj Range (Selection, Selection.End (xlUp)). Välj ActiveSheet.Paste Range (" D2 " Välj End Sub

Som du kan se är den ovan nämnda VBA-koden för lång för att returnera totala betyg, och det är inte heller lätt att förstå. Således ändrar vi kodningen.

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

Hur man skriver makro för Medelformel i VBE

Vi har en Excel -data i intervall A1: C14, där kolumn A innehåller namn, kolumn B med märkena för ämne 1 och kolumn C med märken för ämne 2. I kolumn D vill jag returnera genomsnittskarakterna.

För att infoga en genomsnittlig formel med VBA i Microsoft Excel 2010 och 2013, följ nedanstående steg:-

  • Öppna Excel -data.
  • Först spelar du in makrot för att returnera genomsnittliga betyg i cellen D2.
  • På fliken "Utvecklare" väljer du "Spela in makro" från gruppen "Kod".
  • Dialogrutan "Spela in makro" visas.
  • Skriv "makronamn" i rutan "Makronamn" utan att använda mellanslag och specialtecken.
  • Skriv kortkommandot -vad du vill.
  • Och skriv beskrivningen om makrot i beskrivningsrutan.
  • Inspelningen startar nu.
  • Skriv "MEDEL" -formeln i cell D2.
  • Klistra in formeln i intervall D3: D14.
  • Klicka på "Stoppa inspelning".
  • För att se de inspelade makron, tryck på knappen "ALT+F11".
  • Inspelad kod skulle vara så här:-
Sub GENNEMSNITT () '' GENNEMSNITT Makro 'Totalt antal poäng erhålls' 'Tangentbordsgenväg: Ctrl+Skift+A' ActiveCell.FormulaR1C1 = "= MEDEL (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Välj Selection.Copy Range (" D2 "). Välj Selection.End (xlDown) .Välj Range (" E14 "). Välj Range (Selection, Selection.End (xlUp)). Välj ActiveSheet.Paste Range ( "E13"). Välj Selection.End (xlUp) .Välj End Sub

Som du kan se är den ovan nämnda VBA-koden för lång för att returnera totalbetyg och det är inte heller lätt att förstå; Därför ändrar vi koden.

Delmedelvärde () Dim X som heltal X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X) .Value = "= Average (B2: C2)" End Sub

På detta sätt kan vi lära oss hur man spelar in makro och sedan hur man ändrar det.

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen