So zeichnen Sie ein Makro auf und ändern dann den Code

Anonim

In diesem Artikel erfahren Sie, wie Sie ein Makro aufzeichnen und dann ändern und das Erlernen erleichtern.

So schreiben Sie ein Makro für die Summenformel in VBE

Wir haben Excel-Daten im Bereich A1:C14, in denen Spalte A Namen enthält, Spalte B die Noten von Fach 1 und Spalte C die Noten von Fach 2. In Spalte D möchte ich die Gesamtpunktzahl zurückgeben.

Um eine Summenformel mit VBA in Microsoft Excel einzufügen, führen Sie die folgenden Schritte aus:

  • Excel-Daten öffnen.
  • Zuerst zeichnen Sie das Makro für die Rückgabe der Gesamtpunktzahl in Zelle D2 auf.
  • Wählen Sie auf der Registerkarte "Entwickler" aus der Gruppe "Code" "Makro aufnehmen" aus.
  • Das Dialogfeld „Makro aufnehmen“ wird angezeigt.
  • Schreiben Sie in das Feld „Makroname“ den Namen des Makros ohne Leerzeichen und Sonderzeichen.
  • Geben Sie die gewünschte Tastenkombination ein.
  • Und schreiben Sie die Beschreibung des Makros in das Beschreibungsfeld.
  • Die Aufnahme beginnt jetzt.
  • Schreiben Sie die Summenformel in Zelle D2.
  • Fügen Sie die Formel in den Bereich D3:D14 ein.
  • Klicken Sie auf „Aufnahme beenden“
  • Um die aufgezeichneten Makros anzuzeigen, drücken Sie die Taste „ALT+F11“.
  • Aufgezeichneter Code würde so aussehen:
Sub SUM() ' 'SUM Macro 'Gesamtnoten erhalten ' ' Tastaturkürzel: Strg+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" ).Wählen Sie End Sub

Wie Sie sehen, ist der oben erwähnte VBA-Code zu lang, um Gesamtnoten zurückzugeben, und er ist auch nicht leicht zu verstehen. Daher ändern wir die Codierung.

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

So schreiben Sie ein Makro für die Durchschnittsformel in VBE

Wir haben Excel-Daten im Bereich A1:C14, in denen Spalte A Namen enthält, Spalte B die Noten von Fach 1 und Spalte C die Noten von Fach 2. In Spalte D möchte ich die Durchschnittsnoten zurückgeben.

Um eine Durchschnittsformel mit VBA in Microsoft Excel 2010 und 2013 einzufügen, führen Sie die folgenden Schritte aus:

  • Excel-Daten öffnen.
  • Zuerst zeichnen Sie das Makro für die Rückgabe von Durchschnittsnoten in der Zelle D2 auf.
  • Wählen Sie auf der Registerkarte "Entwickler" aus der Gruppe "Code" "Makro aufnehmen" aus.
  • Das Dialogfeld „Makro aufnehmen“ wird angezeigt.
  • Geben Sie in das Feld „Makroname“ den Namen des Makros ohne Leerzeichen und Sonderzeichen ein.
  • Geben Sie die Tastenkombination ein - was immer Sie wollen.
  • Und schreiben Sie die Beschreibung über das Makro in das Beschreibungsfeld.
  • Die Aufnahme beginnt jetzt.
  • Schreiben Sie die Formel "DURCHSCHNITT" in Zelle D2.
  • Fügen Sie die Formel in den Bereich D3:D14 ein.
  • Klicken Sie auf „Aufnahme beenden“.
  • Um die aufgezeichneten Makros anzuzeigen, drücken Sie die Taste „ALT+F11“.
  • Aufgezeichneter Code würde so aussehen:
Sub AVERAGE() ' 'AVERAGE Macro 'Gesamtnoten erhalten ' ' Tastaturkürzel: Strg+Shift+A 'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])" Selection.Copy Range(" E2").Select Selection.Copy Range("D2").Select Selection.End(xlDown).Select Range("E14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range( "E13").Select Selection.End(xlUp).Select End Sub

Wie Sie sehen können, ist der oben erwähnte VBA-Code zu lang, um die Gesamtpunktzahl zurückzugeben, und er ist auch nicht leicht zu verstehen; Daher ändern wir den Code.

Sub Average() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub

Auf diese Weise können wir lernen, wie man Makros aufzeichnet und dann modifiziert.

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site